📄 wm.article_sort.asp
字号:
Content = Content & "i.style.display = """";" & vbCrLf
Content = Content & "}" & vbCrLf
Content = Content & "</script>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>栏目类型</strong><br><font class=font2>请慎重选择，栏目一旦添加后就不能再更改</font></td>" & vbCrLf
Content = Content & " <td><input name=WM_Type type=radio value=1 checked class=radio onclick=classselect(a1)>内部栏目 <input name=WM_Type type=radio value=0 class=radio onclick=classselect(a2)>外部栏目</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2 id=a1>" & vbCrLf
Content = Content & " <td><strong>栏目目录</strong><br>只能是英文或数字，不能带空格或“\”“/”等符号<br><font class=font2>请慎重录入，栏目一旦添加后就不能修改此项</font></td>" & vbCrLf
Content = Content & " <td><input type='text' size=20 name='Dir' maxlength='50'></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2 id=a2 style='display:none'>" & vbCrLf
Content = Content & " <td><strong>外部栏目连接地址</strong><br>可为绝对路经和完整URL地址<br><font class=font2>{$InstallDir}</font>为本站安装路径</td>" & vbCrLf
Content = Content & " <td><input type='text' style='width:300' name='Url'></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>是否对会员开放</strong><br>开放则会员可在此栏目发表文章</td>" & vbCrLf
Content = Content & " <td><input type=radio name=MemberFlag value=1 Class=radio checked>是 <input type=radio name=MemberFlag value=0 Class=radio>否</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>是否在顶部导航栏显示</strong><br>此选项只对一级栏目有效</td>" & vbCrLf
Content = Content & " <td><input type=radio name=ShowOnTop value=1 Class=radio checked>是 <input type=radio name=ShowOnTop value=0 Class=radio>否</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>是否在父栏目的分类列表处显示</strong><br>如果某栏目下有几十个子栏目，但只想显示其中几个子栏目的文章列表，这个选项就非常有用</td>" & vbCrLf
Content = Content & " <td><input type=radio name=ShowOnParent value=1 Class=radio checked>是 <input type=radio name=ShowOnParent value=0 Class=radio>否</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>栏目META关键词</strong></td><td><input name='MetaKey' type='text' style='width:300'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>栏目META网页描述</strong></td><td><input name='MetaContent' type='text' style='width:300'></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>有下级栏目模板选择</strong><br>此分类如果有下级分类时请在此选择自定义模板</td><td>"&TempSelect(0,22,ChannelID,"TempID")&"</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>无下级栏目模板选择</strong><br>此分类如果为最终分类时请在此选择自定义模板</td><td>"&TempSelect(0,23,ChannelID,"NoTempID")&"</td></tr>" & vbCrLf
Content = Content & " <tr class=td3><td></td><td><input type=submit name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
Content = Content & "</form></table><script>document.addform.WM_Name.focus()</script>"
Case "Edit" '修改栏目
Rs.Open "Select * From WM_ArticleSort Where WM_ID=" & WM_ID & Channel, Conn, 1, 1
Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
Content = Content & "<form name='addform' method='post' Action='WM.Article_Sort.asp?eID="&eID&"'>" & vbCrLf
Content = Content & "<input name='Action' type='hidden' value='ClassEditSave'>" & vbCrLf
Content = Content & "<input name='WM_ID' type='hidden' value='" & WM_ID & "'>" & vbCrLf
Content = Content & "<input name=ChannelID type=hidden value=" & ChannelID & ">" & vbCrLf
Content = Content & " <tr class=td4><td colspan=2><strong>修改栏目</strong></td></tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td width='35%'><strong>所属栏目</strong></td>" & vbCrLf
Content = Content & " <td width='65%'><strong>"
If Rs("WM_ParentID") > 0 Then
Rso.Open "Select WM_Name From WM_ArticleSort Where WM_ID = "&Rs("WM_ParentID")&Channel,Conn,1,1
If Not Rso.Eof Then
Content = Content & Rso(0)
End If
Rso.Close
Else
Content = Content & "一级栏目"
End If
Content = Content & "</strong></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>栏目名称</strong></td>" & vbCrLf
Content = Content & " <td><input name='WM_Name' type='text' size=20 style='width:150' maxlength='50' value='" & Rs("WM_Name") & "'></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>栏目说明</strong></td>" & vbCrLf
Content = Content & " <td><input name='WM_Title' type='text' size=20 style='width:300' maxlength='50' value='" & Rs("WM_Title") & "'></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>栏目类型</strong></td>" & vbCrLf
Content = Content & " <td><input name=WM_Type type=radio value=1 class=radio"
If Rs("WM_Type") = 1 Then Content = Content & " checked" Else Content = Content & " disabled"
Content = Content & ">内部栏目 <input name=WM_Type type=radio value=0 class=radio"
If Rs("WM_Type") = 1 Then Content = Content & " disabled" Else Content = Content & " checked"
Content = Content & ">外部栏目</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2"
If Rs("WM_Type") = 1 Then Content = Content & "" Else Content = Content & " style='display:none'"
Content = Content & ">" & vbCrLf
Content = Content & " <td><strong>栏目目录</strong><br>只能是英文或数字，不能带空格或“\”“/”等符号<br><font class=font2>请慎重录入，栏目一旦添加后就不能修改此项</font></td>" & vbCrLf
Content = Content & " <td><input type='text' size=20 name='Dir' disabled maxlength='50' value='"&Rs("WM_Dir")&"'></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2"
If Rs("WM_Type") = 1 Then Content = Content & " style='display:none'" Else Content = Content & ""
Content = Content & ">" & vbCrLf
Content = Content & " <td><strong>外部栏目连接地址</strong><br>可为绝对路经和完整URL地址<br><font class=font2>{$InstallDir}</font>为本站安装路径</td>" & vbCrLf
Content = Content & " <td><input type='text' style='width:300' name='Url' value='"&Rs("WM_Url")&"'></td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>是否对会员开放</strong><br>开放则会员可在此栏目发表文章</td>" & vbCrLf
Content = Content & " <td><input type=radio name=MemberFlag value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_MemberFlag"), 1) & ">是 <input type=radio name=MemberFlag value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_MemberFlag"), 1) & ">否</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>是否在顶部导航栏显示</strong><br>此选项只对一级栏目有效</td>" & vbCrLf
Content = Content & " <td><input type=radio name=ShowOnTop value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_ShowOnTop"), 1) & ">是 <input type=radio name=ShowOnTop value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_ShowOnTop"), 1) & ">否</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & " <tr class=td2>" & vbCrLf
Content = Content & " <td><strong>是否在父栏目的分类列表处显示</strong><br>如果某栏目下有几十个子栏目，但只想显示其中几个子栏目的文章列表，这个选项就非常有用</td>" & vbCrLf
Content = Content & " <td><input type=radio name=ShowOnParent value=1 Class=radio" & WRMPS.GetCheckVer(1, Rs("WM_ShowOnParent"), 1) & ">是 <input type=radio name=ShowOnParent value=0 Class=radio" & WRMPS.GetCheckVer(0, Rs("WM_ShowOnParent"), 1) & ">否</td>" & vbCrLf
Content = Content & " </tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>栏目META关键词</strong></td><td><input name='MetaKey' type='text' style='width:300' value=""" & Rs("WM_MetaKey") & """></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>栏目META网页描述</strong></td><td><input name='MetaContent' type='text' style='width:300' value=""" & Rs("WM_MetaContent") & """></td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>有下级栏目模板选择</strong><br>此分类如果有下级分类时请在此选择自定义模板</td><td>"&TempSelect(Rs("WM_TempID"),22,ChannelID,"TempID")&"</td></tr>" & vbCrLf
Content = Content & "<tr class=td2><td><strong>无下级栏目模板选择</strong><br>此分类如果为最终分类时请在此选择自定义模板</td><td>"&TempSelect(Rs("WM_NoTempID"),23,ChannelID,"NoTempID")&"</td></tr>" & vbCrLf
Content = Content & " <tr class=td3><td></td><td><input type=submit name='Submit' value=' 提 交 '></td></tr>" & vbCrLf
Content = Content & "</form></table><script>document.addform.WM_Name.focus()</script>"
Rs.Close
Case "ClassSave" '添加保存
WM_ParentID = WRMPS.CheckStr(Request.Form("WM_ParentID"), 1)
WM_Name = WRMPS.CheckStr(Request.Form("WM_Name"), 0)
WM_Title = WRMPS.CheckStr(Request.Form("WM_Title"), 0)
If WM_Title = "" Then WM_Title = NUll
If WM_Name = "" Then Call WRMPS.ErrView("·请输入栏目名称", 0): Exit Sub
MetaKey = WRMPS.CheckStr(Request.Form("MetaKey"), 0)
If MetaKey = "" Then MetaKey = Null
MetaContent = WRMPS.CheckStr(Request.Form("MetaContent"), 0)
If MetaContent = "" Then MetaContent = Null
TempID = WRMPS.CheckStr(Request.Form("TempID"), 1)
If TempID = "" Then TempID = 0
NoTempID = WRMPS.CheckStr(Request.Form("NoTempID"), 1)
If NoTempID = "" Then NoTempID = 0
If WM_ParentID > 0 Then
Rs.Open "Select WM_ParentPath,WM_ClassID,WM_Taxis,WM_ParentDir,WM_Dir,WM_ChannelDir From WM_ArticleSort Where WM_ID=" & WM_ParentID & Channel, Conn, 1, 1
If Not Rs.Eof Then
WM_ParentPath = Rs(0) & "," & WM_ParentID
WM_Depth = UBound(Split(WM_ParentPath, ","))
WM_ClassID = Rs(1)
WM_Taxis = Rs(2) + 1
WM_ParentDir = Rs(3) & Rs(4) & "/"
WM_ChannelDir = Rs(5)
End If
Rs.Close
Else
Rs.Open "Select WM_ClassID From WM_ArticleSort Where WM_ID Is Not NULL"&Channel&" Order By WM_ClassID Desc", Conn, 1, 1
If Rs.EOF Then
WM_ClassID = 1
Else
WM_ClassID = Rs(0) + 1
End If
Rs.Close
Rs.Open "Select WM_ChannelDir from WM_Channel Where WM_ID=" & ChannelID & "", Conn, 1, 1
If Not Rs.Eof Then
WM_ChannelDir = Rs(0)
Else
Call WRMPS.ErrView("·请按规定操作", 0)
End If
Rs.Close
WM_Taxis = 1
WM_ParentPath = 0
WM_Depth = 0
WM_ParentDir = "/"
End If
WM_Type = WRMPS.CheckStr(Request.Form("WM_Type"), 1)
Select Case WM_Type
Case 1
Url = Null
Dir = WRMPS.CheckStr(Request.Form("Dir"), 0)
If Dir = "" Then Call WRMPS.ErrView("·你选择的是系统内部栏目，请填写栏目目录", 0): Exit Sub
Call WRMPS.FsoBegin()
If WRMPS.FsoIsTrue("Dir","../"& WM_ChannelDir&WM_ParentDir& Dir) Then
Call WRMPS.ErrView("·栏目目录已存在，请重新输入", 0): Exit Sub
End If
Call WRMPS.FsoEnd()
Case 0
Url = WRMPS.CheckStr(Request.Form("Url"), 0)
WM_ParentDir = Null
WM_ChannelDir = Null
Dir = Null
If Url = "" Then Call WRMPS.ErrView("·你选择的是外部栏目，请填写连接地址", 0): Exit Sub
End Select
MemberFlag = WRMPS.CheckStr(Request.Form("MemberFlag"), 1)
ShowOnParent = WRMPS.CheckStr(Request.Form("ShowOnParent"), 1)
ShowOnTop = WRMPS.CheckStr(Request.Form("ShowOnTop"), 1)
Conn.Execute ("insert into WM_ArticleSort(WM_ClassID,WM_Taxis,WM_ParentID,WM_Name,WM_ParentPath,WM_Depth,WM_Child,WM_IsDefault,WM_Type,WM_Url,WM_Dir,WM_ParentDir,WM_MemberFlag,WM_ShowOnParent,WM_ShowOnTop,WM_Title,WM_ChannelID,WM_ChannelDir,WM_MetaKey,WM_MetaContent,WM_TempID,WM_NoTempID) Values(" & WM_ClassID & "," & WM_Taxis & "," & WM_ParentID & ",'" & WM_Name & "','" & WM_ParentPath & "'," & WM_Depth & ",0,0,"&WM_Type&",'"&Url&"','"&Dir&"','"&WM_ParentDir&"',"&MemberFlag&","&ShowOnParent&","&ShowOnTop&",'"&WM_Title&"',"&ChannelID&",'"&WM_ChannelDir&"','"&MetaKey&"','"&MetaContent&"',"&TempID&","&NoTempID&")")
If WM_ParentID > 0 Then
Conn.Execute ("update WM_ArticleSort set WM_Child=WM_Child+1 Where WM_ID=" & WM_ParentID&Channel)
Rs.Open "Select * From WM_ArticleSort Where WM_ID Is Not Null" & Channel & " Order By WM_ID Desc", Conn, 1, 1
Conn.Execute ("update WM_ArticleSort set WM_Taxis=WM_Taxis+1 Where WM_ClassID=" & WM_ClassID & Channel &" and WM_Taxis>=" & WM_Taxis & " and WM_ID<>" & Rs("WM_ID") & "")
Rs.Close
End If
If WM_ParentID <> "" Then
Response.Redirect "?Action=Add&eID="&eID&"&WM_ID=" & WM_ParentID & "&ChannelID="&ChannelID
Else
Response.Redirect "?Action=Add&eID="&eID&"&WM_ID=" & WM_ID & "&ChannelID="&ChannelID
End If
Case "ClassEditSave" '修改保存
WM_Name = WRMPS.CheckStr(Request.Form("WM_Name"), 0)
If WM_Name = "" Then Call WRMPS.ErrView("·请输入栏目名称", 0): Exit Sub
WM_Title = WRMPS.CheckStr(Request.Form("WM_Title"), 0)
If WM_Title = "" Then WM_Title = NUll
WM_Type = WRMPS.CheckStr(Request.Form("WM_Type"), 1)
MetaKey = WRMPS.CheckStr(Request.Form("MetaKey"), 0)
If MetaKey = "" Then MetaKey = Null
MetaContent = WRMPS.CheckStr(Request.Form("MetaContent"), 0)
If MetaContent = "" Then MetaContent = Null
TempID = WRMPS.CheckStr(Request.Form("TempID"), 1)
If TempID = "" Then TempID = 0
NoTempID = WRMPS.CheckStr(Request.Form("NoTempID"), 1)
If NoTempID = "" Then NoTempID = 0
Select Case WM_Type
Case 1
Url = Null
Case 0
Url = WRMPS.CheckStr(Request.Form("Url"), 0)
If Url = "" Then Call WRMPS.ErrView("·你选择的是外部栏目，请填写连接地址", 0): Exit Sub
End Select
MemberFlag = WRMPS.CheckStr(Request.Form("MemberFlag"), 1)
ShowOnParent = WRMPS.CheckStr(Request.Form("ShowOnParent"), 1)
ShowOnTop = WRMPS.CheckStr(Request.Form("ShowOnTop"), 1)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -