📄 wm.class_sort.asp

📁 网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="WM.Sys_Cook.asp"-->
<!--#include file="WM.Cre_Cls.asp"-->
<%
If CheckAdminFlag("ClassClass") = 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_ClassSort 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_ClassSort 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_ClassSort 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> | 　　　　　 &nbsp;"
		  Else
		    Content = Content & "开启 | <a href=?Action=Option&eID="&eID&"&ChannelID="&ChannelID&"&WM_ID=" & Rs("WM_ID") & ">独立选项控制</a>"
		  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 "OptionSave"
    Content = WRMPS.CheckStr(Request.Form("Content"),9)
	If Content = "" Or IsNull(Content) Then Content = Null
	Conn.Execute("Update WM_ClassSort Set WM_DB = '"&Content&"' Where WM_ID = "&WM_ID)
	Call WRMPS.ErrView("·操作完成<meta http-equiv=refresh content='1;URL=?Action=View&eID="&eID&"&ChannelID="&ChannelID&"'>",1)

  Case "Option"
    Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
    Content = Content & "<form action='?Action=OptionSave&WM_ID="&WM_ID&"&eID="&eID&"&ChannelID="&ChannelID&"' name=myform method=POST>" & vbCrLf
    Content = Content & "<tr class=td4><td><strong>分类选项控制</strong></td></tr>" & vbCrLf
	Set Rs = Server.CreateObject("ADODB.RecordSet")
	Rs.Open"Select WM_DB From WM_ClassSort Where WM_ID = "&WM_ID,Conn,1,1
	If Not Rs.Eof Then
	  OptionCon = Rs(0)
      Content = Content & "<tr class=td2 align=center>" & vbCrLf
      Content = Content & "<td><INPUT type='hidden' name='Content' value=""" & WRMPS.GetHtmlEncode(OptionCon) & """><IFRAME ID=Content SRC='../Plus/TempEdit/Index.asp?ID=Content&Tool=None&Preview=Right' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='300'></IFRAME></td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
	End If
	Rs.Close
	Set Rs = Nothing
    Content = Content & "<tr class=td3>" & vbCrLf
    Content = Content & "<td align=center><input type=submit name='submit' value=' 保 存 '>　<input type='button' name='submit' value=' 示 例 ' onclick=""Select()""></td>" & vbCrLf
    Content = Content & "</tr></Form>" & vbCrLf
    Content = Content & "<tr class=td2 style='display:none' id=SelectPic>" & vbCrLf
    Content = Content & "<td><INPUT type='hidden' name='test' value=""" & WRMPS.GetHtmlEncode(testCon()) & """><IFRAME ID=test SRC='../Plus/TempEdit/Index.asp?ID=test&Tool=None&Preview=Right' FRAMEBORDER=0 SCROLLING=no WIDTH='100%' HEIGHT='150'></IFRAME></td>" & vbCrLf
    Content = Content & "</tr>" & vbCrLf
    Content = Content & "<tr><td class=td2> <b>注意事项：</b><br>" & vbCrLf
    Content = Content & "① 请在此框中设置不带&lt;from&gt;的表单。<br>" & vbCrLf
    Content = Content & "② 自定义选项暂只支持下拉列表框和文本框型式的选项。<br>" & vbCrLf
    Content = Content & "③ 如果某个选项需为数字，请在用户输入框中做好判断。<br>" & vbCrLf
    Content = Content & "④ 最多支持十个自定义选项，表单名请用 DB1 ... DB10 代替。<br>" & vbCrLf
    Content = Content & "⑤ 项目名称请用表单隐藏发送，隐藏表单名请用 DB1T ... DB10T 代替。<br>" & vbCrLf
    Content = Content & "⑥ 表单值请用 [$DB1$](文本框) 或 [$DB1(值)$](下拉列表框) 代替。<br>" & vbCrLf
    Content = Content & "⑦ 请不要在数据中出现下划线。</td>" & vbCrLf
    Content = Content & "</tr>" & vbCrLf
	Content = Content & "</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.Class_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_ClassSort 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
12 3 下一页
💿 文件大小 4665 K
👤 上传用户 zergwyk
📂 所属分类其他行业
🏷️ 相关标签

#5.0 #分类 #信息系统 #商
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -