wm.article_sort.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="WM.Sys_Cook.asp"-->
<%
Call WM_Content()
Sub WM_Content()
  Dim Action,i,ID,N,eID,e_ID
  Dim WM_ParentID, WM_Name, WM_ParentPath, WM_Depth, ClassID, WM_ClassID, Del, WM_Taxis, WM_ID, WM_ClassBig, WM_ClassSmall
  Dim WM_Type,Url,Dir,ShowOnParent,ShowOnTop,WM_ParentDir,WM_TaxisID,DelDir,MemberFlag,WM_Title,Channel,WM_ChannelDir
  Dim Parent,NoTempID
  Parent = WRMPS.CheckStr(Request("Parent"), 1)
  Action = WRMPS.CheckStr(Request("Action"), 0)
  WM_ID = WRMPS.CheckStr(Request("WM_ID"), 1)
  ChannelID = WRMPS.CheckStr(Request("ChannelID"), 1)
  If ChannelID = "" Then Call WRMPS.ErrView("·操作错误", 0)
  If CheckAdminFlag("ArticleClass_"&ChannelID) = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
  Channel = " And WM_ChannelID = " & ChannelID
  eID = WRMPS.CheckStr(Request("eID"), 1)

  If Action = "" Then Action = "View"
  Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
  Content = Content & "<tr class=td2><td colspan=2>&nbsp;<a href=?Action=View&ChannelID=" & ChannelID & ">管理首页</a> | <a href=?Action=Add&eID="&eID&"&WM_ID="&eID&"&ChannelID=" & ChannelID & ">添加栏目</a> | <a href=?Action=Taxis&eID="&eID&"&ChannelID=" & ChannelID & ">栏目排序</a> | <a href=?Action=Coalition&eID="&eID&"&ChannelID=" & ChannelID & ">栏目合并</a></td></tr>" & vbCrLf
  Content = Content & "</table>" & vbCrLf
  Call DBConnBegin()
  Set Rs = server.createobject("adodb.recordset")
  Set Rso = server.createobject("adodb.recordset")
  
  Select Case Action
    Case "Coalition" '栏目合并
      Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "<form name='addform' method='post' Action='?Coalition=Save&eID="&eID&"&ChannelID=" & ChannelID & "'>" & vbCrLf
      Content = Content & "<input name='Action' type='hidden' value='Del'>" & vbCrLf
      Content = Content & "  <tr class=td4><td><strong>栏目合并</strong></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td>　<strong>将栏目</strong><select name='ClassID'>" & vbCrLf
      Content = Content & "<option value=''>== 请选择 ==</option>" & vbCrLf
      Rs.Open "Select * From WM_ArticleSort Where WM_Type = 1"&Channel&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
      If Rs.EOF Then
        Content = Content & "<option value=''>请先添加栏目</option>"
      Else
        Do While Not Rs.EOF
        Content = Content & "<option value='" & Rs("WM_ID") & "'"
        If WM_ID <> "" Then
          If Int(WM_ID) = Rs("WM_ID") Then Content = Content & " selected"
        End If
        Content = Content & ">"
        If Rs("WM_Depth") > 0 Then
          For i = 1 To Rs("WM_Depth")
            Content = Content & "　"
          Next
        End If
        If Rs("WM_Child") > 0 Then Content = Content & "+ " Else Content = Content & "- "
        Content = Content & Rs("WM_Name")
        Content = Content & "</option>" & vbCrLf
        Rs.MoveNext
        Loop
      End If
	  Rs.Close
      Content = Content & "</select>　　<strong>移动到</strong> <select name='WM_ClassID'>" & vbCrLf
      Content = Content & "<option value=''>== 请选择 ==</option>" & vbCrLf
      Rs.Open "Select * From WM_ArticleSort Where WM_Type = 1"&Channel&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
      If Rs.EOF Then
        Content = Content & "<option value=''>请先添加栏目</option>"
      Else
        Do While Not Rs.EOF
        Content = Content & "<option value='" & Rs("WM_ID") & "'"
        If WM_ID <> "" Then
          If Int(WM_ID) = Rs("WM_ID") Then Content = Content & " selected"
        End If
        Content = Content & ">"
        If Rs("WM_Depth") > 0 Then
          For i = 1 To Rs("WM_Depth")
            Content = Content & "　"
          Next
        End If
        If Rs("WM_Child") > 0 Then Content = Content & "+ " Else Content = Content & "- "
        Content = Content & Rs("WM_Name")
        Content = Content & "</option>" & vbCrLf
        Rs.MoveNext
        Loop
      End If
	  Rs.Close
      Content = Content & "</select></td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td>　<input type='checkbox' name='Del' value=1 Class=radio> 删除被移动的栏目及子栏目</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td>　<input type=submit name='submit' value='确定移动'></td></tr>" & vbCrLf
      Content = Content & "<tr><td class=td2><strong>注意事项：</strong><br>"
      Content = Content & "① 所有操作不可逆，请慎重操作<br>"
      Content = Content & "② 选择“删除被移动的栏目及子栏目”则不能在同一个栏目内进行操作、不能将一个版面合并到其下属栏目中<br>"
      Content = Content & "③ 选择“删除被移动的栏目及子栏目”则被移动栏目及其下属栏目所有内容都将移动到您所指定的目标栏目<br>"
      Content = Content & "<font class=font2>④ 请重新生成您所指定的目标栏目及其所有内容</font><br>"
      Content = Content & "</td></tr>" & vbCrLf
      Content = Content & "</form></table>"
		  
    Case "View" '查看栏目
	  If eID <> "" Then e_ID = " WM_ParentID="&eID Else e_ID = " WM_ParentID=0"
      Content = Content & "<table width='100%' border=0 align=center cellpadding=5 cellspacing=1 class=td1>" & vbCrLf
      Content = Content & "  <tr class=td4><td colspan=7><strong>栏目管理</strong></td></tr>" & vbCrLf
	  Rs.Open "Select * From WM_ArticleSort Where"&e_ID&Channel&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
        If Rs.EOF Then
           Content = Content & "<tr class=td2><td align=center colspan=7>还没有任何栏目或栏目，<a href=?Action=Add&ChannelID="&ChannelID&"&eID="&eID&"&WM_ID=" & eID & " class=red>现在添加？</a></td></tr>" & vbCrLf
        Else
          Content = Content & "    <tr class=td3 align=center> " & vbCrLf
          Content = Content & "      <td width='4%'>ID</td>" & vbCrLf
          Content = Content & "      <td>栏目名称</td>" & vbCrLf
          Content = Content & "      <td width='25%'>栏目目录/连接地址</td>" & vbCrLf
          If eID = "" Then Content = Content & "      <td width='10%'>顶部导航</td>" & vbCrLf
          If eID <> "" Then Content = Content & "      <td width='10%'>父栏目导航</td>" & vbCrLf
          Content = Content & "      <td width='5%'>默认</td>" & vbCrLf
          Content = Content & "      <td width='30%'>操作</td>" & vbCrLf
          Content = Content & "    </tr>" & vbCrLf
		Do While Not Rs.EOF
          Content = Content & "    <tr class=td2 align=center> " & vbCrLf
          Content = Content & "      <td>"&Rs(0)&"</td>" & vbCrLf
          Content = Content & "      <td align=left>" & vbCrLf
          Content = Content & "<b>"
		  If Rs("WM_Type") = 1 Then Content = Content & "<a href=?ChannelID="&ChannelID&"&eID=" & Rs("WM_ID") & ">"
		  Content = Content & Rs("WM_Name")
		  If Rs("WM_Type") = 1 Then Content = Content & "</a>"
          Content = Content & "</b>"
          If Rs("WM_Child") <> 0 Then Content = Content & " <font class=font3>(" & Rs("WM_Child") & ")</font>"
          Content = Content & "</td><td align=left>"
		  Select Case Rs("WM_Type")
		    Case 1
			  Content = Content & "目录：/" & Rs("WM_ChannelDir")&Rs("WM_ParentDir") & Rs("WM_Dir")
			Case 0
			  Content = Content & "<font class=font2>连接：" & Rs("WM_Url") & "</font>"
		  End Select
          If eID = "" Then 
            Content = Content & "</td><td>"
		    Select Case Rs("WM_ShowOnTop")
		      Case 0
			    Content = Content & "<font class=font2>隐藏</font>"
			  Case 1
			    Content = Content & "显示"
		    End Select
		    Content = Content & "</td>"
		  End If
          If eID <> "" Then 
		    Content = Content & "<td>"
		    Select Case Rs("WM_ShowOnParent")
		      Case 0
			    Content = Content & "<font class=font2>隐藏</font>"
			  Case 1
			    Content = Content & "显示"
		    End Select
            Content = Content & "</td>" & vbCrLf
		  End If
		  Content = Content & "<td>"
        If Rs("WM_IsDefault") = 1 Then
          Content = Content & "      <a href=?Action=DelDefault&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & " title=取消默认 class=Red><font class=font2><strong>是</strong></font></a>"
        Else
          Content = Content & "      <a href=?Action=ClassDefault&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & " title=设为默认 >否</a>"
        End If
          Content = Content & "</td>" & vbCrLf
          Content = Content & "<td>"
          If Rs("WM_Type") = 1 Then Content = Content & "<a href=?ChannelID="&ChannelID&"&eID=" & Rs("WM_ID") & ">子栏目管理</a> | <a href=?Action=Add&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & ">添加子栏目</a> | " Else Content = Content & "&nbsp;　　　　　 &nbsp;&nbsp;　　　　　 &nbsp;"
          Content = Content & "<a href=?Action=Edit&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & ">修改</a> | <a href=?Action=Del&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & " onclick=""return confirm('确定删除？');"">删除</a>" & vbCrLf
          Content = Content & "</td></tr>" & vbCrLf
        Rs.MoveNext
        Loop
        End If
      Rs.Close
	  Content = Content & "<tr class=td2><td colspan=7><strong>注意事项：</strong><br>" & vbCrLf
      Content = Content & "① 设为默认即可以在添加内容时默认显示此栏目，方便在某一栏目同时添加很多内容时使用" & vbCrLf
      Content = Content & "</td></tr></form></table>" & vbCrLf
    
	Case "Add" '添加栏目
      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='ClassSave'>" & 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><br><Font Color=red>添加后将不能修改</Font></td>" & vbCrLf
      Content = Content & "    <td width='65%'><select name='WM_ParentID'>" & vbCrLf
      Content = Content & "<option value=0>做为一级栏目</option>" & vbCrLf
	  Rs.Open "Select * From WM_ArticleSort Where WM_Type = 1"&Channel&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
      If Rs.EOF Then
        Content = Content & "<option value=0>请先添加栏目</option>"
      Else
        Do While Not Rs.EOF
        Content = Content & "<option value='" & Rs("WM_ID") & "'"
        If WM_ID <> "" Then
          If Int(WM_ID) = Rs("WM_ID") Then Content = Content & " selected"
        End If
        Content = Content & ">"
        If Rs("WM_Depth") > 0 Then
          For i = 1 To Rs("WM_Depth")
            Content = Content & "　"
          Next
        End If
        If Rs("WM_Child") > 0 Then Content = Content & "+ " Else Content = Content & "- "
        Content = Content & Rs("WM_Name")
        Content = Content & "</option>" & vbCrLf
        Rs.MoveNext
        Loop
      End If
	  Rs.Close
      Content = Content & "</select></td></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'></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'></td>" & vbCrLf
      Content = Content & "  </tr>" & vbCrLf
      Content = Content & "<script>" & vbCrLf
      Content = Content & "function classselect(i){" & vbCrLf
	  Content = Content & "a1.style.display = ""none"";" & vbCrLf
	  Content = Content & "a2.style.display = ""none"";" & vbCrLf