风讯标签编辑器、标签样式编辑器简化版,去除了原来的什么自动完成功能,现在看到的直接就是源代码,想怎么写就怎么写,增加了插入标签后自动选中刚插入的标签,方便查看。
label_creat.asp
<%
Option
Explicit
%>
<!-- #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 ><
<!-- #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 ><