wm.coupon_sort.asp

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

<!--#include file="WM.Sys_Cook.asp"-->
<!--#include file="WM.Cre_Cls.asp"-->
<%
If CheckAdminFlag("CouClass") = False Then Call WRMPS.ErrView("·您没有权限进行此操作",0)
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,WM_Key
  Dim WM_Type,Url,Dir,ShowOnParent,ShowOnTop,WM_ParentDir,WM_TaxisID,DelDir,MemberFlag,Channel,WM_ChannelDir,OptionCon
  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)
  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_CouponSort Where WM_ID Is Not Null"&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_CouponSort Where WM_ID Is Not Null "&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='确定移动' onclick=""Loading.style.display='';Loading.style.bottom=100;""></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_CouponSort 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
          Content = Content & "      <td width='15%'>发布权限</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>"
		  Content = Content & "<a href=?ChannelID="&ChannelID&"&eID=" & Rs("WM_ID") & ">" & Rs("WM_Name") & "</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>/" & Rs("WM_ChannelDir")&Rs("WM_ParentDir") & Rs("WM_Dir") & "</td>"
          Content = Content & "<td>"
		  If Rs("WM_Key") > 0 Then 
		    Content = Content & "<span class=font2>关闭</span>"
		  Else
		    Content = Content & "开启"
		  End If
          Content = Content & "</td>" & vbCrLf
		  Content = Content & "<td><a href=?ChannelID="&ChannelID&"&eID=" & Rs("WM_ID") & ">子分类管理</a> | <a href=?Action=Add&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & ">添加子分类</a> | "
          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('确定删除？');Loading.style.display='';Loading.style.bottom=100;"">删除</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.Coupon_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_CouponSort Where WM_ID Is Not Null"&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> <font Class=Font2>*</font></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'> <font Class=Font2>*</font></td>" & vbCrLf
      Content = Content & "  </tr>" & vbCrLf
      Content = Content & "  <tr class=td2>" & 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'> <font Class=Font2>*</font></td>" & vbCrLf