wm.skin_label.asp
来自「网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。」· ASP 代码 · 共 952 行 · 第 1/5 页
ASP
952 行
<!--#include file="WM.Sys_Cook.asp"-->
<%
If CheckAdminFlag("Label") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
Call WM_Content
Sub WM_Content()
Dim WM_Name,WM_Name1, WM_Explain, WM_Content, WM_Taxis,WM_Type,Tit,WM_ID,aLabelSort,WM_Cache
Dim Export,TDCSS,IndexText,TDStopCSS,ColsNum,Explain,CSS,OpenType,Symbol,SymbolCSS,Show,TDCSS1,TDCSS2
Dim CTDCSS,CTDCSS1,CTDCSS2,BNum,BCols,BFontNum,BCss,BCompart,BCompartCss,Target,Child,BigID,CNum,CCols,CCss,CFontNum,CCompart,CCompartCss,CTarget,BShow,BShowCSS,CShow,CShowCSS
Dim eType,Num,Commend,Taxis,WM_SaveType,WM_SkinDir
Dim A_Table,A_Type,A_Channel,A_Class,A_ChildClass,A_Special,A_ChildSpecial,A_Area,A_ChildArea,A_IsDefault,A_IsHot,A_IsElite,A_Num,A_ColsNum,A_InputerName,A_DayNum,A_TitleHand,A_TitleHand_1,A_HandLinkCss,A_HandOpenType,A_HandSymbol,A_HandSymbolColor,A_Len,A_TitleEllipsis,A_Tips,A_ShowIncludePic,A_OrderType,A_LinkCss,A_OpenType,A_CommentLink,A_CommentCss,A_HotSign,A_HotNum,A_DateType,A_NewSign,A_NewNum,A_Editor,A_Hits,A_TeilSymbol,A_TeilSymbolColor,A_ContentLen,A_ContentColor,A_Width,A_Height,A_SearchKey,A_Commend,A_SearchType
Dim A_BigID,A_ChildID,A_IsOver,A_IsPic,A_Author,A_Date,A_Hand,A_Desc,A_Css,A_Pic,A_CNew,A_CNewDay,A_CSymbol,A_CSymbolColor,A_Ellipsis
Dim A_ParentID,A_AreaID,A_SortNum,A_SortColsNum
Dim A_Symbol,A_Hit,HitCss,A_NextPage,A_PageNum,A_TagCss,LabelSort,LSort,ESQL,LabelHand
Dim A_ClassID,A_Post,A_State,A_IsDeleted,A_Com,IsRecruit,A_User,A_ComID,A_Map
Dim Group,Agent,Sex,RZEmail,RZID,OrderType,TypeID
WM_ID = WRMPS.CheckStr(Request("WM_ID"), 1)
WM_Type = WRMPS.CheckStr(Request("Type"), 1)
LabelSort = WRMPS.CheckStr(Request("LabelSort"), 0)
If LabelSort = "" Then LabelSort = "未分类"
aLabelSort = " and WM_Sort='"&LabelSort&"'"
If WM_Type = "" Then WM_Type = 1
Select Case WM_Type
Case 1
Tit = "自订义标签"
ESQL = 1
LabelHand = "My"
Case 2
Tit = "系统函数标签"
ESQL = 2
LabelHand = "Mr"
Case 3
Tit = "自订义Js标签"
ESQL = 1
LabelHand = "MyJs"
Case 4
Tit = "系统函数Js标签"
ESQL = 2
LabelHand = "MrJs"
End Select
WRMPS.DelCache "TempEditLabel"&WM_Type
WM_Name = WRMPS.CheckStr(Request.Form("WM_Name"), 0)
LSort = WRMPS.CheckStr(Request.Form("LSort"), 0)
If LSort = "" Then LSort = "未分类"
WM_Name1 = WRMPS.CheckStr(Request.Form("WM_Name1"), 0)
WM_Taxis = WRMPS.CheckStr(Request.Form("WM_Taxis"), 1)
WM_Explain = WRMPS.CheckStr(Request.Form("WM_Explain"), 0)
If WM_Explain = "" Then WM_Explain = Null
Call DBConnBegin()
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<tr class=td2><td><a href=?Type="&WM_Type&">管理首页</a> | <a href=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&">添加"&Tit&"</a> | <a href=WM.Skin_Label_Sort.asp?Type="&WM_Type&">分类管理</a></td></tr>" & vbCrLf
Content = Content & "</table>" & vbCrLf
Set Rs = Server.CreateObject("ADODB.RecordSet")
Select Case WRMPS.CheckStr(Request("Action"), 0)
Case "Del"
Conn.Execute ("delete from WM_Label Where WM_ID=" & WM_ID & "")
Call WRMPS.ErrView("·"&Tit&"删除成功<meta http-equiv=refresh content='1;URL=?LabelSort="&LabelSort&"&Type="&WM_Type&"'>", 1): Exit Sub
Case "EditSave1"
If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit1&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"'>", 0): Exit Sub
If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit1&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"'>", 0): Exit Sub
WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
WM_Content = Request.Form("Content")
If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空'><meta http-equiv=refresh content='1;URL=?Action=Edit1&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"'>", 0): Exit Sub
If WM_Content = "" Then Call WRMPS.ErrView("·"&Tit&"内容不能为空'><meta http-equiv=refresh content='1;URL=?Action=Edit1&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"'>", 0): Exit Sub
Call EditSaveData(LSort,WM_Type,WM_Name1,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,WM_ID,LabelHand)
Case "Edit1"
Rs.Open "Select WM_Name,WM_Explain,WM_Content,WM_Taxis,WM_Sort from WM_Label Where WM_ID=" & WM_ID & "", Conn, 1, 1
If Not Rs.EOF Then
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form name=addform method='post' action='?LabelSort="&LabelSort&"&Action=EditSave1'>" & vbCrLf
Content = Content & "<input name=Type type=hidden value=" & WM_Type & ">" & vbCrLf
Content = Content & "<input name=WM_ID type=hidden value=" & WM_ID & ">" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2><strong>修改"&Tit&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='30%'><strong>标签名称</strong><br>将以 {$"&LabelHand&"_标签名称} 的形式调用</td>" & vbCrLf
Content = Content & "<td width='70%'>{$"&LabelHand&"_<input name='WM_Name' value='"&Mid(Rs(0),Len(LabelHand)+4,Len(Rs(0))-(Len(LabelHand)+4))&"' type='text' style='width:200' maxlength=30><input name='WM_Name1' value='"&Rs(0)&"' type='hidden' size=20 style='width:100' maxlength=30>}</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>所属分类</strong></td><td>"&GetLabelSort(WM_Type,Rs(4),"LSort","",0)&"</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>优 先 级</strong><br>数字越大，优先级越高。当标签中再嵌套调用其他标签时，就需要决定标签的优先级</td>" & vbCrLf
Content = Content & "<td><input name='WM_Taxis' type='text' size=10 style='width:40' value="&Rs(3)&" maxlength=10> <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>标签说明</strong></td>" & vbCrLf
Content = Content & "<td><input name=WM_Explain type=text size=20 style='width:400' maxlength=50 value='"&Rs(1)&"'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>标签内容</strong></td><td><input type=submit name=Submit value='提 交' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td colspan=2><INPUT type='hidden' name='Content' value=""" & Server.HTMLEncode(Rs(2)) & """><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Tool=My&Preview=Bottom' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='400'></IFRAME></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='提 交' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
Content = Content & "</form></table><script>document.addform.WM_Label.focus()</script>" & vbCrLf
End If
Rs.Close
Case "Save1"
WM_Content = Request.Form("Content")
If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"'>", 0): Exit Sub
If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"'>", 0): Exit Sub
If WM_Content = "" Then Call WRMPS.ErrView("·"&Tit&"内容不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"'>", 0): Exit Sub
WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
Call SaveData(LSort,WM_Type,WM_Name,WM_Explain,WM_Content,WM_Taxis,Tit,LabelHand)
Case "Add1" '自订义标签
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 Class=td1>" & vbCrLf
Content = Content & "<form name=addform method='post' action='?LabelSort="&LabelSort&"&Action=Save1'>" & vbCrLf
Content = Content & "<input name=Type type=hidden value=" & WM_Type & ">" & vbCrLf
Content = Content & "<tr Class=td4><td colspan=2><strong>添加"&Tit&"</strong></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td width='30%'><strong>标签名称</strong><br>将以 {$"&LabelHand&"_标签名称} 的形式调用<br><span class=font2>修改此处请修改相应调用此标签的地方</span></td>" & vbCrLf
Content = Content & "<td width='70%'>{$"&LabelHand&"_<input name='WM_Name' type='text' style='width:200' maxlength=30>} <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>所属分类</strong></td><td>"&GetLabelSort(WM_Type,LabelSort,"LSort","",0)&"</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>优 先 级</strong><br>数字越大，优先级越高。当标签中再嵌套调用其他标签时，就需要决定标签的优先级</td><td>" & vbCrLf
Rs.Open "Select Top 1 WM_Taxis from WM_Label Where WM_Type = "&WM_Type&" and WM_SkinDir = '"&WR_Setting(5)&"' Order By WM_Taxis Desc", Conn, 1, 1
If Not Rs.EOF Then
Content = Content & "<input name='WM_Taxis' type='text' size=10 style='width:40' value=" & Rs(0) + 1 & " maxlength=10>"
Else
Content = Content & "<input name='WM_Taxis' type='text' size=10 style='width:40' value=1 maxlength=10>"
End If
Rs.Close
Content = Content & " <font Class=Font2>*</font></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>标签说明</strong></td>" & vbCrLf
Content = Content & "<td><input name=WM_Explain type=text size=20 style='width:400' maxlength=50></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>标签内容</strong></td><td><input type=submit name=Submit value='提 交' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td colspan=2><INPUT type='hidden' name='Content' value=''><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Tool=My&Preview=Bottom' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='400'></IFRAME></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td></td><td><input type=submit name=Submit value='提 交' onclick=""Loading.style.display='';Loading.style.bottom=100;""></td></tr>" & vbCrLf
Content = Content & "</form></table><script>document.addform.WM_Label.focus()</script>" & vbCrLf
Case "Edit2"
Content = Content & AddLabel(Request("SaveType"),WM_Type,Tit,WM_ID,LabelSort)
Case "Add2"
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<form name='form1' action='?Action=Add2' method='post'>"
Content = Content & "<input name=Type type=hidden value=" & WM_Type & ">" & vbCrLf
Content = Content & "<input name=LabelSort type=hidden value=" & LabelSort & ">" & vbCrLf
Content = Content & "<tr Class=td3><td width='30%'><strong>标签类型</strong></td><td width='70%'>" & vbCrLf
Content = Content & "<select name=SaveType onChange='javascript:submit()' style='font: 12px Tahoma, Verdana;font-weight: normal'>" & vbCrLf
Content = Content & "<option value=''>请选择标签类型</option>" & vbCrLf
Content = Content & "<optgroup label='---文章模块标签---'>" & vbCrLf
Content = Content & "<option value='ArticleSort'"&WRMPS.GetCheckVer("ArticleSort",request("SaveType"),0)&">|-文章栏目标签</option>" & vbCrLf
Content = Content & "<option value='ArticleSortList'"&WRMPS.GetCheckVer("ArticleSortList",request("SaveType"),0)&">|-循环栏目显示文章标签</option>" & vbCrLf
Content = Content & "<option value='Article'"&WRMPS.GetCheckVer("Article",request("SaveType"),0)&">|-通用文章调用标签</option>" & vbCrLf
Content = Content & "<option value='InArticle'"&WRMPS.GetCheckVer("InArticle",request("SaveType"),0)&">|-文章调用标签</option>" & vbCrLf
Content = Content & "</optgroup>" & vbCrLf
Content = Content & "<optgroup label='---店铺标签---'>" & vbCrLf
Content = Content & "<option value='CompanySort'"&WRMPS.GetCheckVer("CompanySort",request("SaveType"),0)&">|-店铺分类标签</option>" & vbCrLf
Content = Content & "<option value='InCompanySort'"&WRMPS.GetCheckVer("InCompanySort",request("SaveType"),0)&">|-个性化店铺分类标签</option>" & vbCrLf
Content = Content & "<option value='InCompany'"&WRMPS.GetCheckVer("InCompany",request("SaveType"),0)&">|-店铺调用标签</option>" & vbCrLf
Content = Content & "<option value='CompanyDP'"&WRMPS.GetCheckVer("CompanyDP",request("SaveType"),0)&">|-点评调用标签</option>" & vbCrLf
Content = Content & "</optgroup>" & vbCrLf
Content = Content & "<optgroup label='---优惠券标签---'>" & vbCrLf
Content = Content & "<option value='CouponSort'"&WRMPS.GetCheckVer("CouponSort",request("SaveType"),0)&">|-优惠券分类标签</option>" & vbCrLf
Content = Content & "<option value='InCouponSort'"&WRMPS.GetCheckVer("InCouponSort",request("SaveType"),0)&">|-个性化优惠券分类标签</option>" & vbCrLf
Content = Content & "<option value='InCoupon'"&WRMPS.GetCheckVer("InCoupon",request("SaveType"),0)&">|-优惠券标签</option>" & vbCrLf
Content = Content & "</optgroup>" & vbCrLf
Content = Content & "<optgroup label='---分类广告模块标签---'>" & vbCrLf
Content = Content & "<option value='ClassSort'"&WRMPS.GetCheckVer("ClassSort",request("SaveType"),0)&">|-信息分类标签</option>" & vbCrLf
Content = Content & "<option value='InClassSort'"&WRMPS.GetCheckVer("InClassSort",request("SaveType"),0)&">|-个性化信息分类标签</option>" & vbCrLf
Content = Content & "<option value='ClassSortList'"&WRMPS.GetCheckVer("ClassSortList",request("SaveType"),0)&">|-循环分类显示信息标签</option>" & vbCrLf
Content = Content & "<option value='InClassAD'"&WRMPS.GetCheckVer("InClassAD",request("SaveType"),0)&">|-分类信息标签</option>" & vbCrLf
Content = Content & "</optgroup>" & vbCrLf
Content = Content & "<optgroup label='---留言标签---'>" & vbCrLf
Content = Content & "<option value='GuestBook'"&WRMPS.GetCheckVer("GuestBook",request("SaveType"),0)&">|-留言列表标签</option>" & vbCrLf
Content = Content & "</optgroup>" & vbCrLf
Content = Content & "<optgroup label='---通用标签---'>" & vbCrLf
Content = Content & "<option value='User'"&WRMPS.GetCheckVer("User",request("SaveType"),0)&">|-会员调用标签</option>" & vbCrLf
Content = Content & "<option value='Menu'"&WRMPS.GetCheckVer("Menu",request("SaveType"),0)&">|-首页/频道菜单标签</option>" & vbCrLf
Content = Content & "<option value='Link'"&WRMPS.GetCheckVer("Link",request("SaveType"),0)&">|-友情链接标签</option>" & vbCrLf
Content = Content & "<option value='Gift'"&WRMPS.GetCheckVer("Gift",request("SaveType"),0)&">|-礼品调用标签</option>" & vbCrLf
Content = Content & "<option value='SearchKey'"&WRMPS.GetCheckVer("SearchKey",request("SaveType"),0)&">|-热门关键词搜索调用标签</option>" & vbCrLf
Content = Content & "</optgroup>" & vbCrLf
Content = Content & "</select>" & vbCrLf
Content = Content & "</td></tr>" & vbCrLf
Content = Content & "</form>" & vbCrLf
Content = Content & "</table>" & vbCrLf
If Request("SaveType") <> "" Then Content = Content & AddLabel(Request("SaveType"),WM_Type,Tit,0,LabelSort)
Case "SaveSearchKey"
If WM_ID = 0 Then
If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Add"&ESQL&"&LabelSort="&LabelSort&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
Else
If WM_Name = "" Then Call WRMPS.ErrView("·"&Tit&"名称不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
If WM_Taxis = "" Then Call WRMPS.ErrView("·"&Tit&"排序不能为空<meta http-equiv=refresh content='1;URL=?Action=Edit"&ESQL&"&LabelSort="&LabelSort&"&WM_ID="&WM_ID&"&Type="&WM_Type&"&SaveType="&Request("SaveType")&"'>", 0): Exit Sub
End If
WM_Name = "{$"&LabelHand&"_" & WM_Name & "}"
Export = WRMPS.CheckStr(Request.Form("Export"),1)
Select Case Export
Case 1
TDCSS = ""
Case 2
TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
Case 3
TDCSS = WRMPS.CheckStr(Request.Form("TDCSS"),0)
End Select
A_Num = WRMPS.CheckStr(Request.Form("Num"),1)
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?