风讯标签编辑器、标签样式编辑器简化版
风讯标签编辑器、标签样式编辑器简化版，去除了原来的什么自动完成功能，现在看到的直接就是源代码，想怎么写就怎么写，增加了插入标签后自动选中刚插入的标签，方便查看。
label_creat.asp
<!-- #include file="../../FS_Inc/Const.asp" -->
<!-- #include file="../../FS_Inc/Function.asp" -->
<!-- #include file="../../FS_Inc/md5.asp" -->
<!-- #include file="../../FS_InterFace/MF_Function.asp" -->
<!-- #include file="../../FS_InterFace/NS_Function.asp" -->
<!-- #include file="../../FS_InterFace/HS_Function.asp" -->
<!-- #include file="../../FS_InterFace/AP_Function.asp" -->
<!-- #include file="../../FS_Inc/Cls_SysConfig.asp" -->
<%
Response.Buffer = True
Response.Expires = - 1
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
Response.CacheControl = " no-cache "
Dim Conn,obj_Label_Rs,SQL,strShowErr,str_CurrPath,sRootDir
MF_Default_Conn
' session判断
MF_Session_TF
if not MF_Check_Pop_TF( " MF025 " ) then Err_Show
Dim LableName,txt_Content,LableClassID,Labelclass_SQL,obj_Labelclass_rs,obj_Count_rs,isDel,tmps_LableName
if G_VIRTUAL_ROOT_DIR <> "" then sRootDir = " / " + G_VIRTUAL_ROOT_DIR else sRootDir = ""
If Session( " Admin_Is_Super " ) = 1 then
str_CurrPath = sRootDir & " / " & G_UP_FILES_DIR
Else
If Session( " Admin_FilesTF " ) = 0 Then
str_CurrPath = Replace (sRootDir & " / " & G_UP_FILES_DIR & " /adminfiles/ " & UCase (md5(Session( " Admin_Name " ), 16 )), " // " , " / " )
Else
str_CurrPath = sRootDir & " / " & G_UP_FILES_DIR
End If
End if
Rem 2007-07-25
Dim Label_ConMaxNum,Sys_Obj
Set Sys_Obj = New Cls_SysConfig
Sys_Obj.getSysParam()
Label_ConMaxNum = Sys_Obj.Label_MaxNum
If Label_ConMaxNum = "" Or IsNull (Label_ConMaxNum) Then Label_ConMaxNum = 0
Set Sys_Obj = NOthing
Rem End
LableClassID = NoSqlHack(Request.QueryString( " LableClassID " ))
LableName = Trim (Request.Form( " LableName " ))
txt_Content = Trim (Request.Form( " TxtFileds " ))
isDel = Trim (Request.Form( " isDel " ))
if Request.Form( " Action " ) = " add_save " then
if LableName = "" or txt_Content = "" then
strShowErr = " <li>请填写完整</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
If Clng (Label_ConMaxNum) > 0 Then
if len (txt_Content) > Clng (Label_ConMaxNum) then
strShowErr = " <li>标签内容不允许大于 " & Clng (Label_ConMaxNum) & " 个字符</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
End If
Labelclass_SQL = " Select LableName,LableContent,AddDate,LableClassID,isDel from FS_MF_Lable where LableName =' " & " {FS400_ " & LableName & " } " & " ' "
Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
obj_Labelclass_rs.Open Labelclass_SQL,Conn, 1 , 3
if obj_Labelclass_rs.eof then
obj_Labelclass_rs.addnew
obj_Labelclass_rs( " LableName " ) = " {FS400_ " & LableName & " } "
obj_Labelclass_rs( " LableContent " ) = txt_Content
obj_Labelclass_rs( " AddDate " ) = now
if isDel <> "" then
obj_Labelclass_rs( " isDel " ) = 1
else
obj_Labelclass_rs( " isDel " ) = 0
end if
obj_Labelclass_rs( " LableClassID " ) = Request.Form( " LableClassID " )
obj_Labelclass_rs.update
else
strShowErr = " <li>名称重复,请重新输入</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
obj_Labelclass_rs.close: set obj_Labelclass_rs = nothing
strShowErr = " <li>添加成功</li><li><a href=Label/Label_Creat.asp>继续添加</a></li><li><a href=Label/All_Label_Stock.asp?classid= " & Request.Form( " LableClassID " ) & " >返回标签管理</a></li> "
Response.Redirect( " ../Success.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/Label_Creat.asp " )
Response.end
elseif Request.Form( " Action " ) = " edit_save " then
dim rstf
tmps_LableName = " {FS400_ " & LableName & " } "
Set rstf = Conn.execute( " Select LableName,LableContent,AddDate,LableClassID,isDel from FS_MF_Lable where LableName =' " & tmps_LableName & " ' and id <> " & NosqlHack(Request.Form( " ID " )))
if not rstf.eof then
strShowErr = " <li>名称重复,请重新输入</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
If Clng (Label_ConMaxNum) > 0 Then
if len (txt_Content) > Clng (Label_ConMaxNum) then
strShowErr = " <li>标签内容不允许大于 " & Clng (Label_ConMaxNum) & " 个字符</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
End If
Labelclass_SQL = " Select id,isDel,LableName,LableContent,AddDate,LableClassID from FS_MF_Lable where id = " & NosqlHack(Request.Form( " ID " ))
Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
obj_Labelclass_rs.Open Labelclass_SQL,Conn, 1 , 3
if not obj_Labelclass_rs.eof then
obj_Labelclass_rs( " LableName " ) = " {FS400_ " & LableName & " } "
obj_Labelclass_rs( " LableContent " ) = txt_Content
obj_Labelclass_rs( " AddDate " ) = now
if isDel <> "" then
obj_Labelclass_rs( " isDel " ) = 1
else
obj_Labelclass_rs( " isDel " ) = 0
end if
obj_Labelclass_rs( " LableClassID " ) = Request.Form( " LableClassID " )
obj_Labelclass_rs.update
obj_Labelclass_rs.close: set obj_Labelclass_rs = nothing
else
obj_Labelclass_rs.close: set obj_Labelclass_rs = nothing
strShowErr = " <li>错误的参数</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
strShowErr = " <li>修改成功</li> "
Response.Redirect( " ../Success.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/all_Label_Stock.asp " )
Response.end
end if
if Request.QueryString( " DelTF " ) = " 1 " then
Conn.execute( " Delete From FS_MF_Labestyle where StyleType=' " & Request.QueryString( " Label_Sub " ) & " ' and id= " & NoSqlHack(Request.QueryString( " id " )))
strShowErr = " <li>删除成功</li> "
Response.Redirect( " ../Success.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/All_Label_style.asp?Label_Sub= " & Request.Form( " Label_Sub " ) & "" )
Response.end
end if
dim tmp_LableName,tmp_LableClassID,tmp_LableContent,tmp_isDel,tmp_id,tmp_action
if Request.QueryString( " type " ) = " edit " then
dim rs
if not isnumeric (Request.QueryString( " id " )) then
strShowErr = " <li>错误的参数</li> "
Response.Redirect( " ../error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
set rs = Conn.execute( " select id,LableName,LableClassID,LableContent,isDel From FS_MF_Lable where id= " & Request.QueryString( " id " ))
if rs.eof then
rs.close: set rs = nothing
strShowErr = " <li>错误的参数</li> "
Response.Redirect( " ../error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
else
tmp_LableName = Replace ( Replace (rs( " LableName " ), " {FS400_ " , "" ), " } " , "" )
tmp_LableClassID = rs( " LableClassID " )
tmp_LableContent = rs( " LableContent " )
tmp_isDel = rs( " isDel " )
tmp_id = rs( " id " )
tmp_action = " edit_save "
end if
else
tmp_action = " add_save "
end if
%>
< html >
< head >
< title > 标签管理 </ title >
< meta http-equiv ="Content-Type" content ="text/html; charset=gb2312" >
< link href ="../images/skin/Css_<%=Session(" Admin_Style_Num")% > / <% = Session( " Admin_Style_Num " ) %> .css" rel="stylesheet" type="text/css">
</ head >
< script language ="JavaScript" type ="text/javascript" src ="../../FS_Inc/Get_Domain.asp" ></ script >
< script language ="JavaScript" src ="../../FS_Inc/PublicJS.js" type ="text/JavaScript" ></ script >
< script language ="JavaScript" src ="../../FS_Inc/CheckJs.js" type ="text/JavaScript" ></ script >
< body >
< table width ="98%" height ="56" border ="0" align ="center" cellpadding ="4" cellspacing ="1" class ="table" >
< tr class ="hback" >
< td width ="100%" height ="20" align ="Left" class ="xingmu" > 标签库 </ td >
</ tr >
< tr class ="hback" >
< td height ="27" align ="center" class ="hback" >< div align ="left" >< a href ="All_Label_Stock.asp" > 所有标签 </ a > ┆ < a href ="../FreeLabel/FreeLabelList.asp" >< font color ="#FF0000" > 自由标签 </ font ></ a > ┆ < a href ="All_Label_Stock.asp?isDel=1" > 备份库 </ a > ┆ < a href ="label_creat.asp" > 创建标签 </ a > ┆ < a href ="Label_Class.asp" target ="_self" > 标签分类 </ a > ┆ < a href ="All_label_style.asp" > 样式管理 </ a > < a href ="../../help?Label=MF_Label_Stock" target ="_blank" style ="cursor:help;" >< img src ="../Images/_help.gif" width ="50" height ="17" border ="0" ></ a ></ div ></ td >
</ tr >
</ table >
< table width ="98%" border ="0" align ="center" cellpadding ="4" cellspacing ="1" class ="table" >
< tr class ="xingmu" >
< td colspan ="2" class ="xingmu" > 创建标签 </ td >
</ tr >
< form name ="NewsForm" method ="post" action ="" target ="_self" >
< tr class ="hback" >
< td width ="8%" >
< div align ="right" > 标签名称 </ div >
</ td >
< td width ="92%" >< span class ="tx" > {FS400_
< input name ="LableName" type ="text" value ="<%=tmp_LableName%>" id ="LableName" size ="18" style ="border-top-width: 0px;border-right-width: 0px;border-bottom-width: 0px;border-left-width:0px;border-bottom-color: #000000;" onFocus ="Do.these('LableName',function(){return CheckContentLen('LableName','span_LableName','2-30')})" onKeyUp ="Do.these('LableName',function(){return CheckContentLen('LableName','span_LableName','2-30')})" >
} </ span >< span id ="span_LableName" ></ span >
< select name ="LableClassID" id ="LableClassID" >
< option value ="0" > 选择所属栏目 </ option >
<%
dim class_rs_obj
set class_rs_obj = Conn.execute( " select id,ParentID,ClassName From FS_MF_LableClass where ParentID=0 order by id desc " )
do while not class_rs_obj.eof
If CStr (tmp_LableClassID) = CStr (class_rs_obj( " id " )) Then
response.Write " <option value="" " & class_rs_obj( " id " ) & " "" selected > " & class_rs_obj( " ClassName " ) & " </option> "
Else
response.Write " <option value="" " & class_rs_obj( " id " ) & " ""> " & class_rs_obj( " ClassName " ) & " </option> "
End If
response.Write get_childList(class_rs_obj( " id " ), "" )
class_rs_obj.movenext
loop
class_rs_obj.close: set class_rs_obj = nothing
%>
</ select >
< label >
< input name ="isDel" type ="checkbox" id ="isDel" value ="1" <%if tmp_isDel =1 then response.Write"checked"% > >
放入备份库 </ label >
</ td >
</ tr >
< tr class ="hback" <%if request.QueryString("Label_Sub")< > "DS" then response.Write("style=""display:'none';""") else response.Write("style=""display:'';"" ") end if%>> </ tr >
< tr class ="hback" >
< td > </ td >
< td >
< table width ="100%" border ="0" cellspacing ="0" cellpadding ="0" >
< tr >
< td height ="16" valign ="top" >
<!-- <OBJECT ID="Lable"
CLASSID="CLSID:389961B3-2025-4E6D-92E8-AE75352096E2"
CODEBASE="Foosun.CAB#version=1,0,0,0">
</OBJECT>
-->
< td height ="16" valign ="top" > < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/News_label.asp',500,450,'obj');" style ="cursor:hand;" > < a href ="#" title ="新闻列表类标签" > 新闻列表 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/News_C_label.asp',500,350,'obj');" style ="cursor:hand;" > < a href ="#" title ="新闻常规类标签" > 新闻常规 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/News_Un_label.asp',500,350,'obj');" style ="cursor:hand;" > < a href ="#" title ="新闻不规则新闻标签" > 不规则新闻 </ a > | </ span > <% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBMS " ) = 1 then %> < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/Mall_label.asp',500,450,'obj');" style ="cursor:hand;" > < a href ="#" title ="商城列表类标签" > 商城列表 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/Mall_C_label.asp',450,350,'obj');" style ="cursor:hand;" > < a href ="#" title ="商城常规类标签" > 商城常规 </ a > | </ span > <% end if %> < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/down_label.asp',500,450,'TxtFileds2');" style ="cursor:hand;" >< a href ="#" title ="下载列表类标签" > 下载列表 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/down_C_label.asp',400,320,'obj');" style ="cursor:hand;" >< a href ="#" title ="下载常规类标签" > 下载常规 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/All_label.asp',500,400,'obj');" style ="cursor:hand;display:;" >< a href ="#" title ="通用类标签-所有子系统都可使用" > 通用标签 </ a > | </ span >< a href ="All_label_style.asp" target ="_self" title ="样式管理" > 样式管理 </ a > | < span id =item$pval[CatID]) style ="CURSOR: hand" onmouseup ="opencat(id_templet);" onMouseOver ="this.className='bg'" onMouseOut ="this.className='bg1'" language =javascript >< a href ="#" title ="更多标签" > 更多标签 </ a ></ span ></ td >
</ tr >
</ table >
< table width ="100%" border ="0" cellspacing ="0" cellpadding ="0" id ="id_templet" style ="display:none;" >
< tr >
< td valign ="top" > <% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBAP " ) = 1 then %> < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/job_label.asp',500,380,'obj');" style ="cursor:hand;" >< a href ="#" title ="人才类标签" > 人才标签 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/job_Search_label.asp',500,260,'obj');" style ="cursor:hand;" >< a href ="#" title ="人才类标签" > 人才搜索 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/job_C_label.asp',300,250,'obj');" style ="cursor:hand;display:none" >< a href ="#" title ="人才类标签" > 人才类标签 </ a > | </ span > <% End if %><% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBSD " ) = 1 then %> < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/supply_C_label.asp',480,460,'obj');" style ="cursor:hand;" >< a href ="#" title ="供求类标签" > 供求标签 </ a > | </ span > <% end if %><% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBHS " ) = 1 then %> < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/house_label.asp',500,400,'obj');" style ="cursor:hand;" >< a href ="#" title ="房产类标签" > 房产标签 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/house_C_label.asp',350,350,'obj');" style ="cursor:hand;" >< a href ="#" title ="房产类常规标签" > 房产常规 </ a > | </ span > <% end if %> < span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/FL_C_label.asp',300,350,'obj');" style ="cursor:hand;" >< a href ="#" title ="友情连接类标签" > 友情连接 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/st_C_label.asp',300,250,'obj');" style ="cursor:hand;" >< a href ="#" title ="常规统计类标签" > 常规统计 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/vote_C_label.asp',380,200,'obj');" style ="cursor:hand;" >< a href ="#" title ="投票类标签" > 投票 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/ads_C_label.asp',300,250,'obj');" style ="cursor:hand;" >< a href ="#" title ="广告常规类标签" > 广告 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/book_C_label.asp',400,420,'obj');" style ="cursor:hand;" >< a href ="#" title ="留言类标签" > 留言 </ a > | </ span > </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/log_C_label.asp',400,400,'obj');" style ="cursor:hand;" >< a href ="#" title ="日志类标签" > 日志 </ a > | </ span >< span onClick ="Insertlabel_News('../<%=G_ADMIN_DIR%>/label/photo_C_label.asp',320,350,'obj');" style ="cursor:hand;" >< a href ="#" title ="相册类标签" > 相册 </ a > </ span ></ td >
</ tr >
</ table >
</ td >
</ tr >
< tr class ="hback" >
< td >
< div align ="right" > 标签内容 </ div >
</ td >
< td >
<!-- 编辑器开始 -->
< textarea name ="TxtFileds" onselect ="storeCaret(this);" onclick ="storeCaret(this);" onkeyup ="storeCaret(this);" style =" width:100%;height:100px; overflow: auto;" > <% = tmp_LableContent %> </ textarea >
<!-- 编辑器结束 -->
</ td >
</ tr >
< tr class ="hback" >
< td > </ td >
< td >
< input type ="submit" name ="Submit" value ="确认保存标签" >
< input name ="Action" type ="hidden" id ="Action" value ="<%=tmp_action%>" >
< input name ="id" type ="hidden" id ="Action" value ="<%=tmp_id%>" >
< input type ="reset" name ="Submit2" value ="重置" >
</ td >
</ tr >
</ form >
</ table >
<%
Function get_childList(TypeID,f_CompatStr)
Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
Set f_ChildNewsRs = Conn.Execute( " Select id,ParentID,ClassName from FS_MF_LableClass where ParentID= " & TypeID & " order by id desc " )
f_TempStr = f_CompatStr & " ┄ "
do while Not f_ChildNewsRs.Eof
get_childList = get_childList & " <option value="" " & f_ChildNewsRs( " id " ) & " "" "
If CStr (tmp_LableClassID) = CStr (f_ChildNewsRs( " id " )) then
get_childList = get_childList & " selected " & Chr ( 13 ) & Chr ( 10 )
End If
get_childList = get_childList & " >├ " & f_TempStr & f_ChildNewsRs( " ClassName " )
get_childList = get_childList & " </option> " & Chr ( 13 ) & Chr ( 10 )
get_childList = get_childList & get_childList(f_ChildNewsRs( " id " ),f_TempStr)
f_ChildNewsRs.MoveNext
loop
f_ChildNewsRs.Close
Set f_ChildNewsRs = Nothing
End Function
Set Conn = nothing
%>
</ html >
< script language ="JavaScript" type ="text/JavaScript" >
var startpoint;
function Insertlabel_News(URL,widthe,heighte,obj)
{ var obj = window.OpenWindowAndSetValue( " ../../Fs_Inc/convert.htm? " + URL,widthe,heighte, ' window ' ,obj)
if (obj == undefined) return false ;
if (obj != '' )insertAtCaret($( " TxtFileds " ),obj);
}
$ = function (d){ return document.getElementById(d);}
function storeCaret (textEl) {
if (textEl.createTextRange)
{
textEl.caretPos = document.selection.createRange().duplicate();
var rng = event.srcElement.createTextRange();
rng.moveToPoint(event.x,event.y);
rng.moveStart( " character " , - event.srcElement.value.length)
startpoint = rng.text.length ;
}
}
function insertAtCaret (textEl, text) {
if (textEl.createTextRange && textEl.caretPos) {
var caretPos = textEl.caretPos;
startpoint = startpoint - caretPos.text.length;
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1 ) == ' ' ? text + ' ' : text;
var textlength = text.length;
var rng = textEl.createTextRange();
rng.moveEnd( " character " , - textEl.value.length) ;
rng.moveStart( " character " , - textEl.value.length) ;
rng.collapse( true );
rng.moveEnd( " character " ,startpoint + textlength) ;
rng.moveStart( " character " ,startpoint) ;
rng.select();
}
else
textEl.value = text;
}
function opencat(cat)
{
if (cat.style.display == " none " ){
cat.style.display = "" ;
} else {
cat.style.display = " none " ;
}
}
</ script >
All_Label_style.asp
<!-- #include file="../../FS_Inc/Const.asp" -->
<!-- #include file="../../FS_Inc/Function.asp" -->
<!-- #include file="../../FS_Inc/md5.asp" -->
<!-- #include file="../../FS_InterFace/MF_Function.asp" -->
<!-- #include file="../../FS_InterFace/NS_Function.asp" -->
<!-- #include file="../../FS_InterFace/HS_Function.asp" -->
<!-- #include file="../../FS_InterFace/AP_Function.asp" -->
<!-- #include file="Func_page.asp" -->
<!-- #include file="../../FS_Inc/Cls_SysConfig.asp" -->
<%
Response.Buffer = True
Response.Expires = - 1
Response.ExpiresAbsolute = Now () - 1
Response.Expires = 0
Response.CacheControl = " no-cache "
Dim Conn,obj_Label_Rs,SQL,strShowErr,str_CurrPath,sRootDir
MF_Default_Conn
' session判断
MF_Session_TF
' ----2007-02-12 By Ken
Dim GetSysConfigObj,GetStyleMaxNum
Set GetSysConfigObj = New Cls_SysConfig
GetSysConfigObj.getSysParam()
GetStyleMaxNum = Clng (GetSysConfigObj.Style_MaxNum)
Set GetSysConfigObj = Nothing
' -------------
Dim str_StyleName,txt_Content,Labelclass_SQL,obj_Labelclass_rs,obj_Count_rs
Dim Label_Sub
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_
Dim Page,cPageNo,tmp_LableClassID,LableClassID
int_RPP = 50 ' 设置每页显示数目
int_showNumberLink_ = 8 ' 数字导航显示数目
showMorePageGo_Type_ = 1 ' 是下拉菜单还是输入值跳转，当多次调用时只能选1
str_nonLinkColor_ = " #999999 " ' 非热链接颜色
toF_ = " <font face=webdings title=""首页"">9</font> " ' 首页
toP10_ = " <font face=webdings title=""上十页"">7</font> " ' 上十
toP1_ = " <font face=webdings title=""上一页"">3</font> " ' 上一
toN1_ = " <font face=webdings title=""下一页"">4</font> " ' 下一
toN10_ = " <font face=webdings title=""下十页"">8</font> " ' 下十
toL_ = " <font face=webdings title=""最后一页"">:</font> " ' 尾页
if G_VIRTUAL_ROOT_DIR <> "" then sRootDir = " / " + G_VIRTUAL_ROOT_DIR else sRootDir = ""
If Session( " Admin_Is_Super " ) = 1 then
str_CurrPath = sRootDir & " / " & G_UP_FILES_DIR
Else
If Session( " Admin_FilesTF " ) = 0 Then
str_CurrPath = Replace (sRootDir & " / " & G_UP_FILES_DIR & " /adminfiles/ " & UCase (md5(Session( " Admin_Name " ), 16 )), " // " , " / " )
Else
str_CurrPath = sRootDir & " / " & G_UP_FILES_DIR
End If
End if
Label_Sub = NoSqlHack(Request.QueryString( " Label_Sub " ))
str_StyleName = Trim (Request.Form( " StyleName " ))
txt_Content = Trim (Request.Form( " TxtFileds " ))
' txt_Content = replace(txt_Content,"{DS_","{DS:")
if Request.Form( " Action " ) = " Add_save " then
if str_StyleName = "" or txt_Content = "" then
strShowErr = " <li>请填写完整</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
set obj_Count_rs = server.CreateObject(G_FS_RS)
obj_Count_rs.Open " Select StyleName,Content,AddDate,LableClassID from FS_MF_Labestyle Order by id desc " ,Conn, 1 , 3
if Not obj_Count_rs.eof then
if obj_Count_rs.recordcount > GetStyleMaxNum then
strShowErr = " <li>您建立的样式已经超过 " & GetStyleMaxNum & " 个。你将不能再增加如果需要增加，请删除部分样式</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/All_Label_style.asp?Action=Add&Label_Sub= " & Request.Form( " Label_Sub " ) & "" )
Response.end
end if
end if
Labelclass_SQL = " Select StyleName,Content,AddDate,StyleType,LableClassID from FS_MF_Labestyle where StyleName =' " & str_StyleName & " ' "
Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
obj_Labelclass_rs.Open Labelclass_SQL,Conn, 1 , 3
if obj_Labelclass_rs.eof then
obj_Labelclass_rs.addnew
obj_Labelclass_rs( " StyleName " ) = str_StyleName
obj_Labelclass_rs( " content " ) = txt_Content
obj_Labelclass_rs( " AddDate " ) = now
obj_Labelclass_rs( " StyleType " ) = Request.Form( " Label_Sub " )
obj_Labelclass_rs( " LableClassID " ) = Request.Form( " LableClassID " ) ' ---写入数据库-------2/1 by chen---------
' tmp_LableClassID=obj_Labelclass_rs("LableClassID")
obj_Labelclass_rs.update
else
strShowErr = " <li>此样式名称重复,请重新输入</li> "
Response.Redirect( " ../Error.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl= " )
Response.end
end if
obj_Labelclass_rs.close: set obj_Labelclass_rs = nothing
strShowErr = " <li>添加成功</li> "
Response.Redirect( " ../Success.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/All_Label_style.asp?Label_Sub= " & Request.Form( " Label_Sub " ) & "" )
Response.end
elseif Request.Form( " Action " ) = " Add_edit " then
Labelclass_SQL = " Select StyleName,Content,AddDate,LableClassID from FS_MF_Labestyle where id = " & NosqlHack(Request.Form( " ID " ))
Set obj_Labelclass_rs = server.CreateObject(G_FS_RS)
obj_Labelclass_rs.Open Labelclass_SQL,Conn, 1 , 3
if not obj_Labelclass_rs.eof then
obj_Labelclass_rs( " StyleName " ) = str_StyleName
obj_Labelclass_rs( " content " ) = txt_Content
' obj_Labelclass_rs("AddDate") =now
obj_Labelclass_rs( " LableClassID " ) = Request.Form( " LableClassID " ) ' --------写入数据库----2/1 by chen--------------------
' tmp_LableClassID=obj_Labelclass_rs("LableClassID")
obj_Labelclass_rs.update
End if
obj_Labelclass_rs.close: set obj_Labelclass_rs = nothing
strShowErr = " <li>修改成功</li> "
Response.Redirect( " ../Success.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/All_Label_style.asp?Label_Sub= " & Request.Form( " Label_Sub " ) & "" )
Response.end
end if
if Request.QueryString( " DelTF " ) = " 1 " then
Conn.execute( " Delete From FS_MF_Labestyle where StyleType=' " & Request.QueryString( " Label_Sub " ) & " ' and id= " & NoSqlHack(Request.QueryString( " id " )))
strShowErr = " <li>删除成功</li> "
Response.Redirect( " ../Success.asp?ErrCodes= " & Server.URLEncode(strShowErr) & " &ErrorUrl=Label/All_Label_style.asp?Label_Sub= " & Request.Form( " Label_Sub " ) & "" )
Response.end
end if
%>
< html >
< head >
< title > 标签管理 </ title >
< meta http-equiv ="Content-Type" content ="text/html; charset=gb2312" >
< link href ="../images/skin/Css_<%=Session(" Admin_Style_Num")% > / <% = Session( " Admin_Style_Num " ) %> .css" rel="stylesheet" type="text/css">
</ head >
< script language ="JavaScript" src ="../../FS_Inc/PublicJS.js" type ="text/JavaScript" ></ script >
< script language ="JavaScript" src ="../../FS_Inc/Prototype.js" ></ script >
< script language ="JavaScript" type ="text/javascript" src ="../../FS_Inc/Get_Domain.asp" ></ script >
< body >
< table width ="98%" height ="81" border ="0" align ="center" cellpadding ="4" cellspacing ="1" class ="table" >
< tr class ="hback" >
< td width ="100%" height ="20" align ="Left" class ="xingmu" > 引用样式管理 </ td >
</ tr >
< tr class ="hback" >
< td class ="hback" align ="center" >< div align ="left" >< a href ="../Templets_List.asp" > 模板管理 </ a >
<%
if Request.QueryString( " TF " ) = " NS " then
Response.Write( " ┆<a href=News_Label.asp target=_self>返回标签管理</a> " )
elseif Request.QueryString( " TF " ) = " DS " then
Response.Write( " ┆<a href=Down_Label.asp target=_self>返回标签管理</a> " )
elseif Request.QueryString( " TF " ) = " SD " then
Response.Write( " ┆<a href=supply_Label.asp target=_self>返回标签管理</a> " )
elseif Request.QueryString( " TF " ) = " HS " then
Response.Write( " ┆<a href=House_Label.asp target=_self>返回标签管理</a> " )
elseif Request.QueryString( " TF " ) = " AP " then
Response.Write( " ┆<a href=job_Label.asp target=_self>返回标签管理</a> " )
elseif Request.QueryString( " TF " ) = " MS " then
Response.Write( " ┆<a href=Mall_Label.asp target=_self>返回</a> " )
else
Response.Write( "" )
end if
%>
┆ < a href ="All_Label_Style.asp" target ="_self" > 所有样式 </ a > ┆ < a href ="Label_Style_Class.asp" target ="_self" > 创建样式分类 </ a > < a href ="../../help?Label=MF_Label_Creat" target ="_blank" style ="cursor:help;" >< img src ="../Images/_help.gif" width ="50" height ="17" border ="0" ></ a > ┆ < a href ="javascript:history.back();" > 后退 </ a ></ div ></ td >
</ tr >
< tr class ="hback" >
< td valign ="top" class ="hback" >< strong > 分类: </ strong > < a href ="All_Label_style.asp?Label_Sub=NS" title ="浏览 新闻系统 标签引用样式" target ="_self" > 新闻系统 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=NS&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 新闻系统 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a > < a href ="All_Label_style.asp?Label_Sub=DS" title ="浏览 下载系统 标签引用样式" target ="_self" > 下载系统 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=DS&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 下载系统 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
<% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBSD " ) = 1 then %>
< a href ="All_Label_style.asp?Label_Sub=SD" title ="浏览 供求系统 标签引用样式" target ="_self" > 供求系统 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=SD&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 供求系统 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
<% end if %>
<% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBHS " ) = 1 then %>
< a href ="All_Label_style.asp?Label_Sub=HS" title ="浏览 房产楼盘 标签引用样式" target ="_self" > 房产楼盘 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=HS&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 房产楼盘 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
<% end if %>
<% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBAP " ) = 1 then %>
< a href ="All_Label_style.asp?Label_Sub=AP" title ="浏览 招聘求职 标签引用样式" target ="_self" > 招聘求职 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=AP&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 招聘求职 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
<% End if %>
<% if Request.Cookies( " FoosunSUBCookie " )( " FoosunSUBMS " ) = 1 then %>
< a href ="All_Label_style.asp?Label_Sub=MS" title ="浏览 商城B2C 标签引用样式" target ="_self" > 商城B2C </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=MS&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 商城B2C 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
<% end if %>
< a href ="All_Label_style.asp?Label_Sub=ME" title ="浏览 会员系统 标签引用样式" target ="_self" > 会员系统 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=ME&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 会员系统 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
< a href ="All_Label_style.asp?Label_Sub=Login" title ="浏览 会员登陆 标签引用样式" target ="_self" > 会员登陆 </ a >< a href ="All_Label_Style.asp?Action=Add&Label_Sub=Login&ClassID=<%= Request.QueryString(" ClassId") % > " title="创建 会员登陆 标签引用样式" target="_self"> < img src ="../Images/addstyle.gif" border ="0" ></ a >
</ td >
</ tr >
</ table >
<!-- ----2/1 by chen 控制所建立的样式的分类文件夹 并读取建立的样式---------------------------------- -->
< table width ="98%" border ="0" align ="center" cellpadding ="3" cellspacing ="1" class ="table" >
< tr >
< td width ="8%" class ="xingmu" >< div align ="center" > 样式ID号 </ div ></ td >
< td width ="32%" class ="xingmu" >< div align ="center" > 样式名称 </ div ></ td >
< td width ="25%" class ="xingmu" >< div align ="center" > 引用查看 </ div ></ td >
< td width ="14%" class ="xingmu" >< div align ="center" > 所属系统 </ div ></ td >
< td width ="21%" class ="xingmu" >< div align ="center" > 描述/操作 </ div ></ td >
</ tr >
<%
dim rs_class,str_ParentID
if trim (Request.QueryString( " ClassID " )) <> "" then
str_ParentID = " and ParentID= " & Request.QueryString( " ClassID " ) & ""
elseif not isnumeric ( trim (Request.QueryString( " ClassID " ))) then
str_ParentID = " and ParentID=0 "
else
str_ParentID = " and ParentID=0 "
end if
set rs_class = Conn.execute( " select id,ClassName,ClassContent,ParentID From FS_MF_StyleClass where 1=1 " & str_ParentID & " order by id desc " )
do while not rs_class.eof
%>
< tr class ="hback" >
< td valign ="top" >< div align ="center" >< img src ="../Images/Folder/folder.gif" alt ="文件夹" width ="20" height ="16" ></ div ></ td >
< td >< a href ="All_Label_Style.asp?ClassId=<% = rs_class(" id")% > &ParentID = <% = rs_class( " id " ) %> ">
<% = rs_class( " ClassName " ) %>
</ a ></ td >
< td > <% = rs_class( " ClassContent " ) %> </ td >
< td ></ td >
< td ></ td >
</ tr >
<%
rs_class.movenext
loop
rs_class.close: set rs_class = nothing
%>
< tr class ="hback_1" >
< td colspan ="7" height ="2" ></ td >
</ tr >
<%
dim rs_stock,ClassId,LableClassID1
if Request.QueryString( " ClassId " ) <> "" then
LableClassID1 = NoSqlHack(Request.QueryString( " ClassID " ))
Else
LableClassID1 = 0
End if
ClassId = " and LableClassID= " & LableClassID1 & ""
set rs_stock = Server.CreateObject(G_FS_RS)
rs_stock.open " select ID,StyleName,Content,LableClassID From FS_MF_Labestyle Where ID > 0 " & ClassId & " order by ID desc " ,Conn, 1 , 1
if rs_stock.eof then
rs_stock.close
set rs_stock = nothing
Response.Write " <TR class=""hback""><TD colspan=""7"" class=""hback"" height=""40"">没有记录。</TD></TR> "
end if
%>
<!-- -------2/2 by chen---------------------------------------------------------------------------------------- -->
<%
Select Case Request.QueryString( " Action " )
Case " Add "
Call Add()
Case " Add_Save "
Call Add_Save()
Case else
Call Main()
End Select
Sub Main()
%>
<%
dim tmp_Label_Sub,LableClassID
Set obj_Label_Rs = server.CreateObject(G_FS_RS)
if trim (Label_Sub) <> "" then :tmp_Label_Sub = " and StyleType=' " & Label_Sub & " ' " : else :tmp_Label_Sub = "" : end if
if Request.QueryString( " ClassId " ) <> "" then
LableClassID = " and LableClassID = " & NoSqlHack(Request.QueryString( " ClassID " ))
Else
LableClassID = " and (LableClassID < 1 Or LableClassID is Null) "
End if
SQL = " Select ID,StyleName,LoopContent,Content,AddDate,StyleType,LableClassID from FS_MF_Labestyle where id>0 " & tmp_Label_Sub & LableClassID & " Order by id desc "
obj_Label_Rs.Open SQL,Conn, 1 , 3
If not obj_Label_Rs.Eof Then
obj_Label_Rs.PageSize = int_RPP
cPageNo = NoSqlHack(Request.QueryString( " page " ))
If cPageNo = "" Then cPageNo = 1
If not isnumeric (cPageNo) Then cPageNo = 1
cPageNo = Clng (cPageNo)
If cPageNo > obj_Label_Rs.PageCount Then cPageNo = obj_Label_Rs.PageCount
If cPageNo <= 0 Then cPageNo = 1
obj_Label_Rs.AbsolutePage = cPageNo
For int_Start = 1 TO int_RPP
%>
< tr class ="hback" >
< td width ="8%" class ="hback" align ="center" > <% = obj_Label_Rs( " ID " ) %> </ td >
< td width ="32%" class ="hback" > · < a href ="All_Label_style.asp?Action=Add&type=edit&id=<%= obj_Label_Rs(" id")% > &Label_Sub = <% = obj_Label_Rs( " StyleType " ) %> &ClassID = <% If Request.QueryString( " ClassId " ) <> "" And IsNumeric (Request.QueryString( " ClassId " )) Then : Response.Write Request.QueryString( " ClassId " ) : Else : Response.Write " 0 " : End IF %> " target="_self">
<% = obj_Label_Rs( " StyleName " ) %>
</ a ></ td >
< td width ="25%" class ="hback" id =item$pval[CatID]) style ="CURSOR: hand" onmouseup ="opencat(Label<%=obj_Label_Rs(" ID")% > );" language=javascript>引用样式查看 </ td >
< td width ="14%" > <% = obj_Label_Rs( " StyleType " ) %>
</ td >
< td width ="21%" >< a href ="All_Label_style.asp?id=<%=obj_Label_Rs(" ID")% > &Label_Sub = <% = obj_Label_Rs( " StyleType " ) %> &DelTF =1" onClick="{if(confirm('确定删除此引用样式吗？')){return true;}return false;}">删除 </ a ></ td >
</ tr >
< tr id ="Label<%=obj_Label_Rs(" ID")% > " style="display:none" class="hback">
< td height ="42" colspan ="7" class ="hback" >< table width ="98%" border ="0" align ="center" cellpadding ="3" cellspacing ="1" class ="table" >
< tr >
< td height ="48" class ="hback" > <%
Dim regEx,result
Set regEx = New RegExp '
regEx.Pattern = " <img(.+?){(.+?)}(.+?)> " '
regEx.IgnoreCase = true '
regEx.Global = True '
result = regEx.replace(obj_label_Rs( " Content " ), " <img src='../images/default.png'/> " )
Response.Write(result)
%>
</ td >
</ tr >
</ table ></ td >
</ tr >
<%
obj_Label_Rs.MoveNext
If obj_Label_Rs.Eof or obj_Label_Rs.Bof Then Exit For
Next
' Response.Write "<tr><td class=""hback"" colspan=""7"" align=""left"">"&fPageCount(obj_Label_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&" 全选<input type=""checkbox"" name=""Checkallbox"" οnclick=""javascript:CheckAll('Checkallbox');"" value=""0""></td></tr>"
End If
%>
< tr class ="hback" >
< td height ="21" colspan ="7" class ="hback" >< span class ="tx" > 点击样式标题修改样式 </ span > </ td >
</ tr >
</ table >
< div align ="center" ></ div >
< p >
<%
End Sub
%>
<%
Sub Add()
dim str_id,tmp_id,tmp_StyleName,tmp_Content,tmp_Action,labelclassidd
str_id = NoSqlHack(Request.QueryString( " id " ))
if Request.QueryString( " type " ) = " edit " then
Set obj_Label_Rs = server.CreateObject(G_FS_RS)
obj_Label_Rs.Open " Select ID,StyleName,LoopContent,Content,AddDate,StyleType,LableClassID from FS_MF_Labestyle where id= " & str_id & "" ,Conn, 1 , 3
tmp_id = obj_Label_Rs( " id " )
tmp_StyleName = obj_Label_Rs( " StyleName " )
tmp_Content = obj_Label_Rs( " Content " )
labelclassidd = obj_Label_Rs( " LableClassID " )
tmp_Action = " Add_edit "
Else
tmp_id = ""
tmp_StyleName = ""
tmp_Content = ""
labelclassidd = ""
tmp_Action = " Add_save "
End if
%>
< table width ="98%" border ="0" align ="center" cellpadding ="4" cellspacing ="1" class ="table" >
< tr class ="xingmu" >
< td colspan ="2" class ="xingmu" > 创建标签引用样式(最多允许建立 < span class ="tx" > <% = GetStyleMaxNum %> </ span > 个样式) </ td >
</ tr >
< form name ="Label_Form" method ="post" action ="" target ="_self" >
< tr class ="hback" >
< td width ="13%" >< div align ="right" > 样式名称 </ div ></ td >
< td width ="87%" >< input name ="StyleName" type ="text" id ="StyleName" size ="40" value ="<% = tmp_StyleName %>" >
< input name ="id" type ="hidden" id ="id" value ="<% = tmp_id %>" >
<!-- --2/1/ by chen 选择样式分类 开始-------------- -->
< select name ="LableClassID" id ="LableClassID" >
< option value ="0" > 选择所属栏目 </ option >
<%
dim class_rs_obj
set class_rs_obj = Conn.execute( " select id,ParentID,ClassName From FS_MF_StyleClass where ParentID=0 order by id desc " )
do while not class_rs_obj.eof
If CStr (Request.QueryString( " ClassID " )) = CStr (class_rs_obj( " id " )) Then
response.Write " <option value="" " & class_rs_obj( " id " ) & " "" selected > " & class_rs_obj( " ClassName " ) & " </option> "
Else
response.Write " <option value="" " & class_rs_obj( " id " ) & " ""> " & class_rs_obj( " ClassName " ) & " </option> "
End If
response.Write get_childList(class_rs_obj( " id " ), "" )
class_rs_obj.movenext
loop
class_rs_obj.close: set class_rs_obj = nothing
%>
</ select >
<!-- --2/1/ by chen 选择样式分类 结束-------------- -->
</ td >
</ tr >
< tr class ="hback" >
< td >< div align ="right" > 插入字段 </ div ></ td >
< td > <%
Dim Label_Sub
Label_Sub = NoSqlHack(Request.QueryString( " Label_Sub " ))
select case Label_Sub
case " NS "
Call NS_select()
case " DS "
Call DS_select()
case " SD "
Call SD_select()
case " HS "
Call HS_select()
case " AP "
Call AP_select()
case " MS "
Call MS_select()
case " ME "
Call ME_select()
Case " Login "
Call ME_Login()
case else
Call NS_select()
end select
%>
</ tr >
< tr class ="hback" <%if request.QueryString("Label_Sub")< > "DS" then response.Write("style=""display:'none';""") else response.Write("style=""display:'';"" ") end if%>> </ tr >
< tr class ="hback" >
< td >< div align ="right" > 样式内容 </ div ></ td >
< td > <!-- 编辑器开始 -->
< textarea name ="TxtFileds" onselect ="storeCaret(this);" onclick ="storeCaret(this);" onkeyup ="storeCaret(this);" style =" width:100%;height:200px; overflow: auto;" > <% = tmp_Content %> </ textarea > <!-- 编辑器结束 -->
</ td >
</ tr >
< tr class ="hback" >
< td > </ td >
< td >< span class ="tx" > 特别提醒。对于高级技术人员（对html相当熟悉的人员），你可以在标签引用样式里随心所欲的写html样式，达到灵活处理前台页面的效果；对于对html不太熟悉的人员，请查看帮助文档或者插入简单的标签样式就可以！ </ span ></ td >
</ tr >
< tr class ="hback" >
< td > </ td >
< td > <%
if tmp_Action = " Add_save " then
dim obj_Count_rs_1,tmp_str,tmp_display
Set obj_Count_rs_1 = server.CreateObject(G_FS_RS)
obj_Count_rs_1.Open " Select StyleName,Content,AddDate from FS_MF_Labestyle where StyleType='NS' Order by id desc " ,Conn, 1 , 3
if Not obj_Count_rs_1.eof then
if obj_Count_rs_1.recordcount > GetStyleMaxNum then
tmp_str = " --标签样式已经超过 " & GetStyleMaxNum & " 个,不能创建。 "
tmp_display = " disabled "
Else
tmp_str = ""
tmp_display = ""
End if
Else
tmp_str = ""
tmp_display = ""
End if
Else
tmp_str = ""
tmp_display = ""
End if
%>
< input type ="submit" name ="Submit" value ="保存样式<% = tmp_str %>" <% = tmp_display % > >
< input name ="Action" type ="hidden" id ="Action" value ="<% = tmp_Action %>" >
< input name ="Label_Sub" type ="hidden" value ="<%=Request.QueryString(" Label_Sub")% > ">
< input type ="reset" name ="Submit2" value ="重置" >
</ td >
</ tr >
</ form >
</ table >
< script language ="JavaScript" type ="text/JavaScript" >
var startpoint;
function Insertlabel_Sel(Lable_obj)
{
if (Lable_obj.options[Lable_obj.selectedIndex].value == '' ){
return false ;
} else {
insertAtCaret($( " TxtFileds " ),Lable_obj.options[Lable_obj.selectedIndex].value);
}
}
$ = function (d){ return document.getElementById(d);}
function storeCaret (textEl) {
if (textEl.createTextRange)
{
textEl.caretPos = document.selection.createRange().duplicate();
var rng = event.srcElement.createTextRange();
rng.moveToPoint(event.x,event.y);
rng.moveStart( " character " , - event.srcElement.value.length)
startpoint = rng.text.length ;
}
}
function insertAtCaret (textEl, text) {
if (textEl.createTextRange && textEl.caretPos) {
var caretPos = textEl.caretPos;
startpoint = startpoint - caretPos.text.length;
caretPos.text = caretPos.text.charAt(caretPos.text.length - 1 ) == ' ' ? text + ' ' : text;
var textlength = text.length;
var rng = textEl.createTextRange();
rng.moveEnd( " character " , - textEl.value.length) ;
rng.moveStart( " character " , - textEl.value.length) ;
rng.collapse( true );
rng.moveEnd( " character " ,startpoint + textlength) ;
rng.moveStart( " character " ,startpoint) ;
rng.select();
}
else
textEl.value = text;
}
</ script >
<%
End Sub
sub NS_select()
' 得到自定义字段
dim ns_D_rs,ns_list
ns_list = ""
set ns_D_rs = Server.CreateObject(G_FS_RS)
ns_D_rs.open " select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='NS' " ,Conn, 1 , 3
if ns_D_rs.eof then
ns_list = ns_list & " <option value="">没有自定义字段</option> "
ns_D_rs.close: set ns_D_rs = nothing
else
do while not ns_D_rs.eof
ns_list = ns_list & " <option value=""{NS=Define| " & ns_D_rs( " D_Coul " ) & " }""> " & ns_D_rs( " D_Name " ) & " </option> "
ns_D_rs.movenext
loop
ns_D_rs.close: set ns_D_rs = nothing
end if
%>
< select name ="NewsFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄基本字段┄┄ </ option >
< option value ="{NS:FS_ID}" > 自动编号 </ option >
< option value ="{NS:FS_NewsID}" > NewsID </ option >
< option value ="<a href={NS:FS_NewsURL}>{NS:FS_NewsTitle}</a>" > 新闻标题(截断) </ option >
< option value ="{NS:FS_NewsTitleAll}" > 新闻完整标题 </ option >
< option value ="{NS:FS_NewsURL}" > 新闻访问路径 </ option >
< option value ="{NS:FS_CurtTitle}" > 新闻副标题 </ option >
< option value ="{NS:FS_NewsNaviContent}" > 新闻导读 </ option >
< option value ="{NS:FS_Content}" > 新闻内容 </ option >
< option value ="{NS:FS_AddTime}" > 新闻添加日期 </ option >
< option value ="{NS:FS_Author}" > 新闻作者 </ option >
< option value ="{NS:FS_Editer}" > 新闻责任编辑 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄预定义字段┄┄ </ option >
< option value ="{NS:FS_hits}" > 点击数 </ option >
< option value ="{NS:FS_KeyWords}" > 关键字 </ option >
< option value ="{NS:FS_TxtSource}" > 新闻来源 </ option >
< option value ="{NS:FS_SmallPicPath}" > 图片新闻的图片地址(小图) </ option >
< option value ="{NS:FS_PicPath}" > 图片新闻的图片地址(大图) </ option >
< option value ="{NS:FS_FormReview}" > 评论表单 </ option >
< option value ="{NS:FS_ReviewURL}" > 评论字样(带地址) </ option >
< option value ="{NS:FS_ShowComment}" > 显示评论列表 </ option >
< option value ="{NS:FS_AddFavorite}" > 加入收藏 </ option >
< option value ="{NS:FS_SendFriend}" > 发送给好友 </ option >
< option value ="{NS:FS_SpecialList}" > 所属专题列表 </ option >
< option value ="{NS:FS_PrevPage}" > 上一篇新闻 </ option >
< option value ="{NS:FS_NextPage}" > 下一篇新闻 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄栏目可定义字段┄┄ </ option >
< option value ="{NS:FS_ClassName}" > 栏目中文名称 </ option >
< option value ="{NS:FS_ClassURL}" > 栏目访问路径 </ option >
< option value ="{NS:FS_ClassNaviPicURL}" > 栏目导航图片地址 </ option >
< option value ="{NS:FS_ClassNaviDescript}" > 栏目导航说明 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄专题可定义字段┄┄ </ option >
< option value ="{NS:FS_SpecialName}" > 专题中文名称 </ option >
<!-- <option value="{NS:FS_SpecialURL}">专题访问路径</option>
<option value="{NS:FS_SpecialNaviPicURL}">专题导航图片地址</option>
<option value="{NS:FS_SpecialNaviDescript}">专题导航说明</option>
-->
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄新闻自定义字段┄┄ </ option >
<% = ns_list %>
</ select >
<% end sub %>
<% sub DS_select()
' 得到自定义字段
dim ds_D_rs,ds_list
ds_list = ""
set ds_D_rs = Server.CreateObject(G_FS_RS)
ds_D_rs.open " select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='DS' " ,Conn, 1 , 3
if ds_D_rs.eof then
ds_list = ds_list & " <option value="">没有自定义字段</option> "
ds_D_rs.close: set ds_D_rs = nothing
else
do while not ds_D_rs.eof
ds_list = ds_list & " <option value=""{DS=Define| " & ds_D_rs( " D_Coul " ) & " }""> " & ds_D_rs( " D_Name " ) & " </option> "
ds_D_rs.movenext
loop
ds_D_rs.close: set ds_D_rs = nothing
end if %>
< select name ="NewsFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄基本字段┄┄ </ option >
< option value ="{DS:FS_ID}" > 自动编号 </ option >
< option value ="{DS:FS_DownLoadID}" > DownLoadID </ option >
< option value ="<a href={DS:FS_DownURL}>{DS:FS_Name}</a>" > 下载标题(截断) </ option >
< option value ="<a href={DS:FS_DownURL}>{DS:FS_NameAll}</a>" > 下载标题(完整) </ option >
< option value ="{DS:FS_Description}" > 下载简介 </ option >
< option value ="{DS:FS_AddTime}" > 添加时间 </ option >
< option value ="{DS:FS_EditTime}" > 修改时间 </ option >
< option value ="{DS:FS_SystemType}" > 系统平台 </ option >
< option value ="{DS:FS_Accredit}" > 下载授权 </ option >
< option value ="{DS:FS_Version}" > 版本 </ option >
< option value ="{DS:FS_Appraise}" > 星级评价 </ option >
< option value ="{DS:FS_FileSize}" > 文件大小 </ option >
< option value ="{DS:FS_Language}" > 语言 </ option >
< option value ="{DS:FS_PassWord}" > 解压密码 </ option >
<!-- <option value="{DS:FS_Property}">下载性质</option> -->
< option value ="{DS:FS_Provider}" > 开发商 </ option >
< option value ="{DS:FS_ProviderUrl}" > 提供者Url地址 </ option >
< option value ="{DS:FS_EMail}" > 联系人EMAIL </ option >
< option value ="{DS:FS_Types}" > 下载类型 </ option >
< option value ="{DS:FS_OverDue}" > 过期天数 </ option >
< option value ="{DS:FS_ConsumeNum}" > 消费点数 </ option >
< option value ="{DS:FS_Address$&lt;br /&gt;}" > 下载地址 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄预定义字段┄┄ </ option >
< option value ="{DS:FS_Hits}" > 点击数 </ option >
< option value ="{DS:FS_ClickNum}" > 下载次数 </ option >
< option value ="{DS:FS_Pic}" > 显示图片地址 </ option >
< option value ="{DS:FS_ReviewURL}" > 评论字样(带地址) </ option >
< option value ="{DS:FS_FormReview}" > 评论表单 </ option >
< option value ="{DS:FS_ShowComment}" > 显示评论列表 </ option >
< option value ="{DS:FS_SpecialList}" > 所属专区列表 </ option >
< option value ="{DS:FS_AddFavorite}" > 加入收藏 </ option >
< option value ="{DS:FS_SendFriend}" > 发送给好友 </ option >
< option value ="{DS:FS_DownURL}" > 下载访问路径 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄栏目可定义字段┄┄ </ option >
< option value ="{DS:FS_ClassName}" > 栏目中文名称 </ option >
< option value ="{DS:FS_ClassURL}" > 栏目访问路径 </ option >
< option value ="{DS:FS_ClassNaviPicURL}" > 栏目导航图片地址 </ option >
< option value ="{DS:FS_ClassNaviDescript}" > 栏目导航说明 </ option >
< option value ="{DS:FS_ClassKeywords}" > 栏目关键字 </ option >
< option value ="{DS:FS_Classdescription}" > 栏目描述 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄专区可定义字段┄┄ </ option >
< option value ="{DS:FS_SpecialName}" > 专区中文名称 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄下载自定义字段┄┄ </ option >
<% = ds_list %>
</ select >
<% end sub %>
<% sub SD_select()
' 得到自定义字段
dim sd_D_rs,sd_list
sd_list = ""
set sd_D_rs = Server.CreateObject(G_FS_RS)
sd_D_rs.open " select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='SD' " ,Conn, 1 , 3
if sd_D_rs.eof then
sd_list = sd_list & " <option value="">没有自定义字段</option> "
sd_D_rs.close: set sd_D_rs = nothing
else
do while not sd_D_rs.eof
sd_list = sd_list & " <option value=""{SD=Define| " & sd_D_rs( " D_Coul " ) & " }""> " & sd_D_rs( " D_Name " ) & " </option> "
sd_D_rs.movenext
loop
sd_D_rs.close: set sd_D_rs = nothing
end if %>
< select name ="NewsFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄基本字段┄┄ </ option >
< option value ="<a href="{SD:FS_URL}" target=_blank>{SD:FS_title}" > 标题 </ option >
< option value ="{SD:FS_Alltitle}" > 完整标题(不截断) </ option >
< option value ="{SD:FS_URL}" > 供求联接路径 </ option >
< option value ="{SD:FS_PubType}" > 类型 </ option >
< option value ="{SD:FS_PubTypeLink}" > 带连接的类型 </ option >
< option value ="{SD:FS_PubContent}" > 内容 </ option >
< option value ="{SD:FS_AreaID}" > 所属地区 </ option >
< option value ="{SD:FS_ClassID}" > 所属分类 </ option >
< option value ="{SD:FS_Keyword}" > 关键字 </ option >
< option value ="{SD:FS_CompType}" > 经营方式 </ option >
< option value ="{SD:FS_PubNumber}" > 产品数量 </ option >
< option value ="{SD:FS_PubPrice}" > 产品价格 </ option >
< option value ="{SD:FS_PubPack}" > 包装说明 </ option >
< option value ="{SD:FS_Pubgui}" > 产品规格 </ option >
< option value ="{SD:FS_PubPic_1}" > 图片一地址 </ option >
< option value ="{SD:FS_PubPic_2}" > 图片二 </ option >
< option value ="{SD:FS_PubPic_3}" > 图片三 </ option >
< option value ="{SD:FS_Addtime}" > 发布时间 </ option >
< option value ="{SD:FS_EditTime}" > 最后更新时间 </ option >
< option value ="{SD:FS_ValidTime}" > 有效时间 </ option >
< option value ="{SD:FS_PubAddress}" > 产地 </ option >
< option value ="{SD:FS_Fax}" > 联系传真 </ option >
< option value ="{SD:FS_User}" > 发布会员用户名 </ option >
< option value ="{SD:FS_tel}" > 联系电话 </ option >
< option value ="{SD:FS_Mobile}" > 移动电话 </ option >
< option value ="{SD:FS_otherLink}" > 其他联系方式 </ option >
< option value ="{SD:FS_hits}" > 点击 </ option >
<!-- option value="{SD:FS_ReviewURL}">评论字样(带地址)</option -->
< option value ="{SD:FS_review}" > 发表评论 </ option >
< option value ="{SD:FS_reviewcontent}" > 评论内容 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄供求自定义字段┄┄ </ option >
<% = sd_list %>
</ select >
</ span >
<% end sub %>
<% sub HS_select()
dim hs_D_rs,hs_list
hs_list = ""
set hs_D_rs = Server.CreateObject(G_FS_RS)
hs_D_rs.open " select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='HS' " ,Conn, 1 , 3
if hs_D_rs.eof then
hs_list = hs_list & " <option value="""">没有自定义字段</option> "
hs_D_rs.close: set hs_D_rs = nothing
else
do while not hs_D_rs.eof
hs_list = hs_list & " <option value=""{HS=Define| " & hs_D_rs( " D_Coul " ) & " }""> " & hs_D_rs( " D_Name " ) & " </option> "
hs_D_rs.movenext
loop
hs_D_rs.close: set hs_D_rs = nothing
end if
%>
< select name ="HouseFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄基本字段┄┄ </ option >
< option value ="{all:HS_FS_ID}" > 自动编号 </ option >
< option value ="{all:HS_FS_Price}" > 报价 </ option >
< option value ="{all:HS_FS_PubDate}" > 发布时间 </ option >
< option value ="{all:HS_FS_UserNumber}" > 发布者编号 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄预定义字段┄┄ </ option >
< option value ="{HS_FS_FormReview}" > 评论表单 </ option >
< option value ="{HS_FS_ReviewURL}" > 评论字样地址 </ option >
< option value ="{HS_FS_ShowComment}" > 显示评论列表 </ option >
< option value ="{HS_FS_AddFavorite}" > 加入收藏 </ option >
< option value ="{HS_FS_SendFriend}" > 发送给好友 </ option >
< option value ="{HS_FS_HouseURL}" > 信息访问路径 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄房产自定义字段┄┄ </ option >
<% = hs_list %>
</ select >
< select name ="LouFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄楼盘信息┄┄ </ option >
< option value ="{Lou:HS_FS_HouseName}" > 楼盘名称 </ option >
< option value ="{Lou:HS_FS_KaiFaShang}" > 开发商 </ option >
< option value ="{Lou:HS_FS_Position}" > 楼盘位置 </ option >
< option value ="{Lou:HS_FS_Direction}" > 楼盘方位 </ option >
< option value ="{Lou:HS_FS_Class}" > 项目类别 </ option >
< option value ="{Lou:HS_FS_OpenDate}" > 开盘日期 </ option >
< option value ="{Lou:HS_FS_PreSaleRange}" > 预售范围 </ option >
< option value ="{Lou:HS_FS_Status}" > 房屋状况 </ option >
< option value ="{Lou:HS_FS_introduction}" > 房屋介绍 </ option >
< option value ="{Lou:HS_FS_Contact}" > 联系方式 </ option >
< option value ="{Lou:HS_FS_hits}" > 点击数 </ option >
< option value ="{Lou:HS_FS_Pic}" > 图片 </ option >
</ select >
< select name ="SecondFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄二手信息┄┄ </ option >
< option value ="{Second:HS_FS_UseFor}" > 用途 </ option >
< option value ="{Second:HS_FS_Label}" > 房屋编号 </ option >
< option value ="{Second:HS_FS_FloorType}" > 住宅类别 </ option >
< option value ="{Second:HS_FS_BelongType}" > 产权性质 </ option >
< option value ="{Second:HS_FS_HouseStyle}" > 户型 </ option >
< option value ="{Second:HS_FS_Structure}" > 建筑结构 </ option >
< option value ="{Second:HS_FS_Area}" > 建筑面积 </ option >
< option value ="{Second:HS_FS_BuildDate}" > 建筑年代 </ option >
< option value ="{Second:HS_FS_CityArea}" > 区县 </ option >
< option value ="{Second:HS_FS_Address}" > 地址 </ option >
< option value ="{Second:HS_FS_Floor}" > 楼层 </ option >
< option value ="{Second:HS_FS_Decoration}" > 装修情况 </ option >
< option value ="{Second:HS_FS_equip}" > 配套设施 </ option >
< option value ="{Second:HS_FS_Remark}" > 备注 </ option >
< option value ="{Second:HS_FS_LinkMan}" > 联系人 </ option >
< option value ="{Second:HS_FS_Contact}" > 联系方式 </ option >
< option value ="{Second:HS_FS_hits}" > 点击数 </ option >
< option value ="{Second:HS_FS_Pic}" > 图片 </ option >
</ select >
< select name ="TenancyFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄租赁信息┄┄ </ option >
< option value ="{Tenancy:HS_FS_UseFor}" > 使用性质 </ option >
< option value ="{Tenancy:HS_FS_XingZhi}" > 房屋性质 </ option >
< option value ="{Tenancy:HS_FS_Class}" > 类型 </ option >
< option value ="{Tenancy:HS_FS_ZaWuJian}" > 杂物间 </ option >
< option value ="{Tenancy:HS_FS_CityArea}" > 区县 </ option >
< option value ="{Tenancy:HS_FS_HouseStyle}" > 户型 </ option >
< option value ="{Tenancy:HS_FS_Area}" > 建筑面积 </ option >
< option value ="{Tenancy:HS_FS_Period}" > 有效期 </ option >
< option value ="{Tenancy:HS_FS_XiaoQuName}" > 小区名称 </ option >
< option value ="{Tenancy:HS_FS_Position}" > 房源地址 </ option >
< option value ="{Tenancy:HS_FS_JiaoTong}" > 交通状况 </ option >
< option value ="{Tenancy:HS_FS_Floor}" > 楼层 </ option >
< option value ="{Tenancy:HS_FS_BuildDate}" > 建筑年代 </ option >
< option value ="{Tenancy:HS_FS_Decoration}" > 装修情况 </ option >
< option value ="{Tenancy:HS_FS_equip}" > 配套设施 </ option >
< option value ="{Tenancy:HS_FS_Remark}" > 备注 </ option >
< option value ="{Tenancy:HS_FS_LinkMan}" > 联系人 </ option >
< option value ="{Tenancy:HS_FS_Contact}" > 联系方式 </ option >
< option value ="{Tenancy:HS_FS_hits}" > 点击数 </ option >
< option value ="{Tenancy:HS_FS_Pic}" > 图片 </ option >
</ select >
<% end sub %>
<% sub AP_select()
dim ap_D_rs,ap_list
ap_list = ""
set ap_D_rs = Server.CreateObject(G_FS_RS)
ap_D_rs.open " select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='AP' " ,Conn, 1 , 3
if ap_D_rs.eof then
ap_list = ap_list & " <option value="""">没有自定义字段</option> "
ap_D_rs.close: set ap_D_rs = nothing
else
do while not ap_D_rs.eof
ap_list = ap_list & " <option value=""{AP=Define| " & ap_D_rs( " D_Coul " ) & " }""> " & ap_D_rs( " D_Name " ) & " </option> "
ap_D_rs.movenext
loop
ap_D_rs.close: set ap_D_rs = nothing
end if
%>
< select name ="APFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄预定义字段┄┄ </ option >
< option value ="{AP:FS_AddFavorite}" > 加入收藏 </ option >
< option value ="{AP:FS_SendFriend}" > 发送给好友 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄人才自定义字段┄┄ </ option >
<% = ap_list %>
</ select >
< SELECT name ="APFields_1" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄招聘信息基本字段┄ </ option >
< option value ="{INV:AP:FS_ID}" > 自动编号 </ option >
< option value ="{INV:AP:FS_UserNumber}" > 公司名称 </ option >
<!-- ---------------2/2 by chen----------------------------------------- -->
< option value ="{INV:AP:FS_Mobile}" > 公司电话 </ option >
< option value ="{INV:AP:FS_Fax}" > 公司传真 </ option >
< option value ="{INV:AP:FS_Address}" > 公司地址 </ option >
< option value ="{INV:AP:FS_ConnectPer}" > 公司联系人 </ option >
< option value ="{INV:AP:FS_WebSit}" > 公司网站 </ option >
<!-- ----------------2/2 by chen--------------------------------------- -->
< option value ="{INV:AP:FS_JobName}" > 职位名称 </ option >
< option value ="{INV:AP:FS_JobDescription}" > 职位描述 </ option >
< option value ="{INV:AP:FS_ResumeLang}" > 简历接受语言 </ option >
< option value ="{INV:AP:FS_WorkCity}" > 工作地点 </ option >
< option value ="{INV:AP:FS_PublicDate}" > 发布日期 </ option >
< option value ="{INV:AP:FS_EndDate}" > 有效日期 </ option >
< option value ="{INV:AP:FS_NeedNum}" > 招聘人数 </ option >
< option value ="{INV:AP:FS_APURL}" > 信息访问路径 </ option >
</ SELECT >
< SELECT name ="APFields_2" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄人才信息基本字段┄ </ option >
< option value ="{TO:AP:FS_ID}" > 自动编号 </ option >
< option value ="{TO:AP:FS_UserNumber}" > 用户编号 </ option >
< option value ="{TO:AP:FS_UserName}" > 用户名 </ option >
< option value ="{TO:AP:FS_PersonURL}" > 用户求职简历路径 </ option >
< option value ="{TO:AP:FS_JobReadURL}" > 查看用户详情路径 </ option >
< option value ="{TO:AP:FS_Sex}" > 性别 </ option >
< option value ="{TO:AP:FS_Pic}" > 图片 </ option >
< option value ="{TO:AP:FS_Birthday}" > 生日 </ option >
< option value ="{TO:AP:FS_CertificateClass}" > 证件类型 </ option >
< option value ="{TO:AP:FS_CertificateNo}" > 证件号码 </ option >
< option value ="{TO:AP:FS_CurrentWage}" > 目前年薪 </ option >
< option value ="{TO:AP:FS_CurrencyType}" > 币种 </ option >
< option value ="{TO:AP:FS_WorkAge}" > 工作年限 </ option >
< option value ="{TO:AP:FS_Province}" > 所在省 </ option >
< option value ="{TO:AP:FS_City}" > 所在市 </ option >
< option value ="{TO:AP:FS_HomeTel}" > 家庭电话 </ option >
< option value ="{TO:AP:FS_CompanyTel}" > 公司电话 </ option >
< option value ="{TO:AP:FS_Mobile}" > 手机 </ option >
< option value ="{TO:AP:FS_Email}" > 电子邮件 </ option >
< option value ="{TO:AP:FS_QQ}" > QQ </ option >
< option value ="{TO:AP:FS_click}" > 浏览数 </ option >
< option value ="{TO:AP:FS_lastTime}" > 最后修改时间 </ option >
< option value ="{TO:AP:FS_ShenGao}" > 身高 </ option >
< option value ="{TO:AP:FS_XueLi}" > 学历 </ option >
< option value ="{TO:AP:FS_HowDay}" > 多久可以到岗 </ option >
< option value ="" > --所属岗位-- </ option >
< option value ="{TO:AP_1:FS_Job}" > 所属岗位 </ option >
</ SELECT >
<% end sub %>
<% sub MS_select()
' 得到自定义字段
dim ms_D_rs,ms_list
ms_list = ""
set ms_D_rs = Server.CreateObject(G_FS_RS)
ms_D_rs.open " select D_Coul,D_Name From FS_MF_DefineTable where D_SubType='MS' " ,Conn, 1 , 1
if ms_D_rs.eof then
ms_list = " <option value="""">没有自定义字段</option> "
ms_D_rs.close: set ms_D_rs = nothing
else
do while not ms_D_rs.eof
ms_list = ms_list & " <option value=""{MS=Define| " & ms_D_rs( " D_Coul " ) & " }""> " & ms_D_rs( " D_Name " ) & " </option> "
ms_D_rs.movenext
loop
ms_D_rs.close: set ms_D_rs = nothing
end if
%>
< select name ="ProductsFields" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄基本字段┄┄ </ option >
< option value ="{MS:FS_ID}" > 自动编号 </ option >
< option value ="{MS:FS_ProductTitle}" > 商品名称(截断) </ option >
< option value ="{MS:FS_ProductTitleAll}" > 商品名称（完整） </ option >
< option value ="{MS:FS_Barcode}" > 商品条形码 </ option >
< option value ="{MS:FS_Serialnumber}" > 产品序列号 </ option >
< option value ="{MS:FS_ProductURL}" > 商品浏览访问路径 </ option >
< option value ="{MS:FS_Stockpile}" > 商品库存 </ option >
< option value ="{MS:FS_OldPrice}" > 市场价格 </ option >
< option value ="{MS:FS_NewPrice}" > 会员价格 </ option >
< option value ="{MS:FS_New_VIPPrice}" > VIP价格 </ option >
< option value ="{MS:FS_ProductContent}" > 商品描述 </ option >
< option value ="{MS:FS_RepairContent}" > 保修条款 </ option >
< option value ="{MS:FS_AddTime}" > 商品添加日期 </ option >
< option value ="{MS:FS_AddMember}" > 商品添加者 </ option >
< option value ="{MS:FS_ProductAddress}" > 产品产地 </ option >
< option value ="{MS:FS_MakeFactory}" > 生产厂商 </ option >
< option value ="{MS:FS_MakeTime}" > 制造日期 </ option >
< option value ="{MS:FS_saleNumber}" > 售出数量 </ option >
< option value ="{MS:FS_SaleStyle}" > 销售形式 </ option >
< option value ="{MS:FS_DiscountStartDate}" > 打折开始时间 </ option >
< option value ="{MS:FS_DiscountEndDate}" > 打折结束时间 </ option >
< option value ="{MS:FS_Discount}" > 折扣率 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄可定义字段┄┄ </ option >
< option value ="{MS:FS_hits}" > 点击数 </ option >
< option value ="{MS:FS_KeyWords}" > 关键字(带连接的搜索) </ option >
< option value ="{MS:FS_TitleKeyWords}" > 关键字(用于搜索引擎搜索) </ option >
<!-- option value="{MS:FS_TxtSource}"> 商品来源</option -->
< option value ="{MS:FS_SmallPicPath}" > 商品图片(小图) </ option >
< option value ="{MS:FS_PicPath}" > 商品图片(大图) </ option >
< option value ="{MS:FS_ShopBagURL}" > 购物车地址 </ option >
< option value ="{MS:FS_FormReview}" > 评论表单 </ option >
< option value ="{MS:FS_ReviewTF}" > 标题后显示评论字样 </ option >
< option value ="{MS:FS_ShowComment}" > 显示评论列表 </ option >
< option value ="{MS:FS_AddFavorite}" > 加入收藏 </ option >
< option value ="{MS:FS_SendFriend}" > 发送给好友 </ option >
< option value ="{MS:FS_SpecialList}" > 所属专题列表 </ option >
<!-- <option value="{MS:FS_ProductURL}"> 新闻访问路径</option> -->
<!-- <option value="" style="background:#88AEFF;color:000000">┄┄栏目可定义字段┄┄</option> -->
< option value ="{MS:FS_ClassName}" > 栏目中文名称 </ option >
< option value ="{MS:FS_ClassURL}" > 栏目浏览访问路径 </ option >
< option value ="{MS:FS_ClassNaviPicURL}" > 栏目导航图片 </ option >
< option value ="{MS:FS_ClassNaviContent}" > 栏目导航说明 </ option >
< option value ="{MS:FS_ClassKeywords}" > 栏目关键字(用于商城栏目的终极列表，优化搜索引擎) </ option >
< option value ="{MS:FS_Classdescription}" > 栏目描述(用于商城栏目的终极列表，优化搜索引擎) </ option >
<!-- <option value="{MS:FS_Classdescription}">栏目描述</option> -->
<!-- <option value="" style="background:#88AEFF;color:000000">┄┄专题可定义字段┄┄</option> -->
< option value ="{MS:FS_SpecialName}" > 专题中文名称 </ option >
<!-- <option value="{MS:FS_SpecialURL}">专题浏览访问路径</option> -->
< option value ="{MS:FS_SpecialNaviPicURL}" > 专题导航图片 </ option >
< option value ="{MS:FS_SpecialNaviDescript}" > 专题导航说明 </ option >
< option value ="" style ="background:#88AEFF;color:000000" > ┄┄自定义字段┄┄ </ option >
<% = ms_list %>
</ select >
<% end sub
sub ME_select()
%>
< SELECT name ="APFields_1" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄个人会员基本字段┄ </ option >
< option value ="{ME:FS_UserNumber}" > 用户编号 </ option >
< option value ="{ME:FS_UserName}" > 用户名 </ option >
< option value ="{ME:FS_NickName}" > 用户昵称 </ option >
< option value ="{ME:FS_RealName}" > 真实姓名 </ option >
< option value ="{ME:FS_Sex}" > 性别 </ option >
< option value ="{ME:FS_HeadPic}" > 头像 </ option >
< option value ="{ME:FS_tel}" > 电话 </ option >
< option value ="{ME:FS_Email}" > Email </ option >
< option value ="{ME:FS_HomePage}" > 个人主页 </ option >
< option value ="{ME:FS_QQ}" > QQ </ option >
< option value ="{ME:FS_MSN}" > MSN </ option >
< option value ="{ME:FS_Province}" > 省份 </ option >
< option value ="{ME:FS_City}" > 城市 </ option >
< option value ="{ME:FS_Address}" > 地址 </ option >
< option value ="{ME:FS_PostCode}" > 邮政编码 </ option >
< option value ="{ME:FS_Vocation}" > 职业 </ option >
< option value ="{ME:FS_BothYear}" > 出生日期 </ option >
< option value ="{ME:FS_Age}" > 年龄 </ option >
< option value ="{ME:FS_Integral}" > 积分 </ option >
< option value ="{ME:FS_FS_Money}" > 金币 </ option >
< option value ="{ME:FS_IsMarray}" > 婚否 </ option >
< option value ="{ME:FS_RegTime}" > 注册日期 </ option >
</ SELECT >
< SELECT name ="APFields_2" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄企业会员基本字段┄ </ option >
< option value ="{ME:FS_C_Name}" > 企业名称 </ option >
< option value ="{ME:FS_C_ShortName}" > 企业简称 </ option >
< option value ="{ME:FS_C_logo}" > 企业Logo </ option >
< option value ="{ME:FS_C_Tel}" > 电话 </ option >
< option value ="{ME:FS_C_Fax}" > 传真 </ option >
< option value ="{ME:FS_C_VocationClassID}" > 所在行业 </ option >
< option value ="{ME:FS_C_WebSite}" > 公司网站 </ option >
< option value ="{ME:FS_C_Operation}" > 业务范围 </ option >
< option value ="{ME:FS_C_Products}" > 公司产品 </ option >
< option value ="{ME:FS_C_Content}" > 公司简介 </ option >
< option value ="{ME:FS_C_Province}" > 省份 </ option >
< option value ="{ME:FS_C_City}" > 城市 </ option >
< option value ="{ME:FS_C_Address}" > 地址 </ option >
< option value ="{ME:FS_C_PostCode}" > 邮政编码 </ option >
< option value ="{ME:FS_C_Vocation}" > 联系人职务 </ option >
< option value ="{ME:FS_C_BankName}" > 开户银行 </ option >
< option value ="{ME:FS_C_BankUserName}" > 银行帐号 </ option >
< option value ="{ME:FS_C_property}" > 公司性质 </ option >
</ SELECT >
< SELECT name ="APFields_3" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" > ┄公共字段┄ </ option >
< option value ="{ME:FS_UserURL}/ShowUser.asp?UserNumber={ME:FS_UserNumber}" > 详细信息URL </ option >
< option value ="{ME:FS_UserURL}/Message_write.asp?ToUserNumber={ME:FS_UserNumber}" > 短信URL </ option >
< option value ="{ME:FS_UserURL}/book_write.asp?ToUserNumber={ME:FS_UserNumber}&M_Type=0" > 留言URL </ option >
< option value ="{ME:FS_UserURL}/Friend_add.asp?type=0&UserName={ME:FS_UserName}" > 加为好友URL </ option >
< option value ="{ME:FS_UserURL}/UserReport.asp?action=report&ToUserNumber={ME:FS_UserNumber}" > 举报URL </ option >
< option value ="{ME:FS_UserURL}/Corp_card_add.asp?UserNumber={ME:FS_UserNumber}" > 收藏名片URL </ option >
< option value ="{ME:FS_UserURL}/?User={ME:FS_UserNumber}" > 会员个人主页URL </ option >
</ SELECT >
<% end sub %>
<% Sub ME_Login() %>
< SELECT name ="Select_Login" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" selected ="selected" > 选择会员登录标签所需要的字段 </ option >
< option value ="{Login_Name}" style ="color:#FF0000;" > 用户名输入框(必选) </ option >
< option value ="{Login_Password}" style ="color:#FF0000;" > 密码输入框(必选) </ option >
< option value ="{Login_Simbut}" style ="color:#FF0000;" > 登录提交按钮(必选) </ option >
< option value ="{Login_Type}" > 登录方式选择框 </ option >
< option value ="{Login_Reset}" > 登录取消按钮 </ option >
< option value ="{Reg_LinkUrl}" > 注册新用户连接 </ option >
< option value ="{Get_PassLink}" > 取回密码连接 </ option >
</ SELECT >
< SELECT name ="Login_Display" onChange ="Insertlabel_Sel(this)" >
< option value ="" style ="background:#88AEFF;color:000000" selected ="selected" > 选择登录后显示内容字段 </ option >
< option value ="{User_Name}" > 会员姓名 </ option >
< option value ="{User_JiFen}" > 会员积分 </ option >
< option value ="{User_JinBi}" > 会员金币 </ option >
< option value ="{User_LoginTimes}" > 登录次数 </ option >
< option value ="{User_TouGao}" > 投稿数 </ option >
< option value ="{User_ConCenter}" > 控制面板连接 </ option >
< option value ="{User_LogOut}" > 退出连接 </ option >
</ SELECT >
< br />
< span style ="margin-left:10px; text-align:left; font-size:12px; color:#FF0000;" > 可在此处利用html代码设置显示样式，更多参数在标签设置;登陆样式和显示样式以 < font color ="#0033FF" > "$*$" </ font > 分隔：登陆样式 $*$ 显示样式，否则会引起显示混乱 </ span >
<% End Sub %>
</ body >
<%
Sub Add_Save()
End Sub
Set Conn = nothing
%>
</ html >< script language ="JavaScript" type ="text/JavaScript" >
function opencat(cat)
{
if (cat.style.display == " none " ){
cat.style.display = "" ;
} else {
cat.style.display = " none " ;
}
}
</ script >
<!-- ----------2/1 by chen 获取样式分类子类别 代码开始------------------------------ -->
<%
Function get_childList(TypeID,f_CompatStr)
Dim f_ChildNewsRs,ChildTypeListStr,f_TempStr,f_isUrlStr,lng_GetCount
Set f_ChildNewsRs = Conn.Execute( " Select id,ParentID,ClassName from FS_MF_StyleClass where ParentID= " & TypeID & " order by id desc " )
f_TempStr = f_CompatStr & " ┄ "
do while Not f_ChildNewsRs.Eof
get_childList = get_childList & " <option value="" " & f_ChildNewsRs( " id " ) & " "" "
If CStr (Request.QueryString( " ClassID " )) = CStr (f_ChildNewsRs( " id " )) then
get_childList = get_childList & " selected " & Chr ( 13 ) & Chr ( 10 )
End If
get_childList = get_childList & " >├ " & f_TempStr & f_ChildNewsRs( " ClassName " )
get_childList = get_childList & " </option> " & Chr ( 13 ) & Chr ( 10 )
get_childList = get_childList & get_childList(f_ChildNewsRs( " id " ),f_TempStr)
f_ChildNewsRs.MoveNext
loop
f_ChildNewsRs.Close
Set f_ChildNewsRs = Nothing
End Function
Set Conn = nothing
%>
<!-- ----------2/1 by chen 获取样式分类子类别 代码结束------------------------------ -->
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
风讯标签编辑器、标签样式编辑器简化版相关推荐
- kali linux 里vim如何使用_Kali Linux的vi编辑器/vim编辑器使用方法
转载声明:本文为转载文章 Kali Linux系统的vi编辑器/vim编辑器的使用和CentOS有很多不同.基本使用方法如下 1.vi的基本概念 基本上vi可以分为三种状态,分别是命令模式(comma ...
- python编辑器怎么下载_海龟编辑器(Python编辑器)下载-海龟编辑器(Python编辑器)下载v1.3.6-IE浏览器中文网站...
针对少儿的一款代码编辑软件,海龟编辑器(Python编辑器)将代码以堆积木的方式呈现,让孩子在游戏中学习,降低学习难度,提高和吸引孩子的学习兴趣. 软件特点 1.一键安装第三方库. 2.扩展功能强大. ...
- python文本编辑器下载_海龟编辑器官方下载|海龟编辑器(Python编辑器)下载 v1.3.4 官方版 - 绿点软件站...
编程软件,积木和代码一键转化,学起来简单有趣,可以让孩子们搭一搭积木就轻松写出Python代码,既可以提高孩子对编程的学习兴趣,又可以降低小朋友们学习Python编程的门槛,海龟编辑器扩展功能强大,支 ...
- 简夏编辑器-微信编辑器推荐
简夏编辑器-微信编辑器推荐 自从走上微信运营的不归路之后,每天都离不开和微信编辑器打交道,市面上的编辑器也是层出不穷. 今天就为大家推荐一款微信编辑器--简夏编辑器 简夏编辑器相对于市面上其他的编辑器 ...
- vim编辑器——终端编辑器
vim编辑器--终端编辑器 打开新建文件 vi三种工作模式 命令模式 末行模式 编辑模式 常用命令 1.末行命令 2.移动命令(上下左右) 3.行内移动 4.行数移动 5.屏幕移动 6.段落移动 7. ...
- python海龟在线编辑_海龟编辑器下载_海龟编辑器(Python编辑器)v0.7.1免费下载2018最新版_酷下载...
海龟编辑器(Python编辑器)是一款非常还用且简单的编程类软件,在这款软件中,有着很多的功能及细节等待着用户们的发现,且软件界面干净整洁.使用非常的舒服. 海龟编辑器功能: 1.海龟编辑器提供简单的 ...
- 《真香编辑器—CSDN编辑器｜CSDN编辑器测评》
<真香编辑器-CSDN编辑器|CSDN编辑器测评> 文章目录 <真香编辑器-CSDN编辑器|CSDN编辑器测评> *前言 一.页面介绍 二.功能介绍 Markdown语法介绍 ...
- summernote html标签,关于summernote编辑器代码段html的插入问题
最近在做这个视频学习网站的时候,由于这个程序的代码编辑器使用的是summernote,所以就需要插入代码,让大家看的更清楚一点,之前想过使用一些高亮的插件,但是发现没有太大必要,只要大家看的清楚就可以 ...
- php百度编辑器精简版,开源web编辑器|百度编辑器ueditor下载1.4.3.4php版 下载_久友软件下载...
百度编辑器ueditor是由百度官方推出的开源web编辑器.百度编辑器ueditor能支持用户在网页上进行内容编辑,软件体积十分的轻巧,完全免费开源,加载速度极快,兼容所有主流的浏览器使用,如:Moz ...
最新文章
- (周星驰版)学习委托的最好实例 (转载+自己补充了注释)
- 博弈论入门 HDU 1850
- ML.NET Cookbook：（11）如果我的训练数据不在文本文件中怎么办？
- java immutable系列_Java Immutable类代码示例
- 内网转外网方法 Sunny-Ngrok
- Linux命令总结（之二）Find
- 【Objective-C】Objective-C语言的动态性
- idea 项目启动找不到页面问题和run/debug只能启动一个的问题
- 目前介绍区块链最好的教学视频
- QT使用ODBC连接MySQL
- mybatis sql 按照特定的字段顺序排序,按照拼音首字母排序
- 命令行基础-tar命令详解
- [每天一个知识点]25-职业生涯-核桃皮是当水果吃好还是当蔬菜吃好？
- 字符处理——大写转小写、小写转大写
- 【JavaScript】时间与时间戳相互转换
- 蓝牙语音芯片模块数传音频BLE选型 支持mp3播放外挂spiflash双模
- python re正则模块详解
- 星座 member.php,计算 星座 PHP
- 【进制】计算机底层是如何计算2+3的？
- 【HTML 教程】网页元素的属性