wm.coupon_sort.asp

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

      Content = Content & "  </tr>" & vbCrLf
      Content = Content & "  <tr class=td2>" & vbCrLf
      Content = Content & "    <td><strong>是否开放</strong><br>关闭则不允许在此分类下登记店铺</font></td>" & vbCrLf
      Content = Content & "    <td><input type=radio name=WM_Key value=0 checked> 开放　　<input type=radio name=WM_Key value=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'></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,60,ChannelID,"TempID")&"</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>无下级栏目模板选择</strong><br>此分类如果为最终分类时请在此选择自定义模板</td><td>"&TempSelect(0,74,ChannelID,"NoTempID")&"</td></tr>" & vbCrLf
      Content = Content & "  <tr class=td3><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_Name.focus()</script>"
   
    Case "Edit" '修改分类
      Rs.Open "Select * from WM_CouponSort 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.Coupon_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_CouponSort 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") & "'> <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' value='"&Rs("WM_Dir")&"'> <font Class=Font2>*</font></td>" & vbCrLf
      Content = Content & "  </tr>" & vbCrLf
      Content = Content & "  <tr class=td2>" & vbCrLf
      Content = Content & "    <td><strong>是否开放</strong><br>关闭则不允许在此分类下登记店铺</font></td>" & vbCrLf
      Content = Content & "    <td><input type=radio name=WM_Key value=0"&WRMPS.GetCheckVer(Rs("WM_Key"),0,1)&"> 开放　　<input type=radio name=WM_Key value=1"&WRMPS.GetCheckVer(Rs("WM_Key"),1,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"),46,ChannelID,"TempID")&"</td></tr>" & vbCrLf
      Content = Content & "<tr class=td2><td><strong>无下级栏目模板选择</strong><br>此分类如果为最终分类时请在此选择自定义模板</td><td>"&TempSelect(Rs("WM_NoTempID"),47,ChannelID,"NoTempID")&"</td></tr>" & vbCrLf
      Content = Content & "  <tr class=td3><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_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)
      If WM_Name = "" Then Call WRMPS.ErrView("·请输入分类名称", 0): Exit Sub
	  Dir = WRMPS.CheckStr(Request.Form("Dir"), 0)
	  If Dir = "" 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
	  WM_Key = WRMPS.CheckStr(Request.Form("WM_Key"), 1)
	  If WM_Key = "" Then WM_Key = 0
	  If WM_ParentID > 0 Then
        Rs.Open "Select WM_ParentPath,WM_ClassID,WM_Taxis,WM_ParentDir,WM_Dir,WM_ChannelDir from WM_CouponSort 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_CouponSort 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
	  Rs.Open"Select WM_ID From WM_CouponSort Where WM_Dir='"&Dir&"' and WM_ParentDir='"&WM_ParentDir&"' and WM_ChannelDir='"&WM_ChannelDir&"'",Conn,1,1
	  If Not Rs.Eof Then
	    Call WRMPS.ErrView("·此目录已经存在，请重新输入", 0)
	  End If
	  Rs.CLose
      Conn.Execute ("insert into WM_CouponSort(WM_ClassID,WM_Taxis,WM_ParentID,WM_Name,WM_ParentPath,WM_Depth,WM_Child,WM_Dir,WM_ParentDir,WM_ChannelID,WM_ChannelDir,WM_MetaKey,WM_MetaContent,WM_TempID,WM_NoTempID,WM_Key) Values(" & WM_ClassID & "," & WM_Taxis & "," & WM_ParentID & ",'" & WM_Name & "','" & WM_ParentPath & "'," & WM_Depth & ",0,'"&Dir&"','"&WM_ParentDir&"',"&ChannelID&",'"&WM_ChannelDir&"','"&MetaKey&"','"&MetaContent&"',"&TempID&","&NoTempID&","&WM_Key&")")
      If WM_ParentID > 0 Then
         Conn.Execute ("update WM_CouponSort set WM_Child=WM_Child+1 Where WM_ID=" & WM_ParentID&Channel)
         Rs.Open "Select * from WM_CouponSort Where WM_ID Is Not Null" & Channel & " Order By WM_ID Desc", Conn, 1, 1
           Conn.Execute ("update WM_CouponSort 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
	  Call CouponSort()
      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
	  Dir = WRMPS.CheckStr(Request.Form("Dir"), 0)
	  If Dir = "" 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
	  WM_Key = WRMPS.CheckStr(Request.Form("WM_Key"), 1)
	  If WM_Key = "" Then WM_Key = 0
      Rs.Open "Select WM_ParentDir,WM_ChannelDir from WM_CouponSort Where WM_ID=" & WM_ID & Channel, Conn, 1, 1
      If Not Rs.Eof Then
        WM_ParentDir = Rs(0)
		WM_ChannelDir = Rs(1)
	  End If
      Rs.Close
	  Rs.Open"Select WM_ID From WM_CouponSort Where WM_Dir='"&Dir&"' and WM_ParentDir='"&WM_ParentDir&"' and WM_ChannelDir='"&WM_ChannelDir&"' and WM_ID<>" & WM_ID,Conn,1,1
	  If Not Rs.Eof Then
	    Call WRMPS.ErrView("·此目录已经存在，请重新输入", 0)
	  End If
	  Rs.CLose
	  Conn.Execute ("Update WM_CouponSort Set WM_Key="&WM_Key&",WM_Name= '" & WM_Name & "',WM_Dir='"&Dir&"',WM_MetaKey='"&MetaKey&"',WM_MetaContent='"&MetaContent&"',WM_TempID="&TempID&",WM_NoTempID="&NoTempID&" Where WM_ID=" & WM_ID&Channel)
	  Call CouponSort()
      Response.Redirect "?Action=View&eID="&eID&"&ChannelID=" & ChannelID & ""

    Case "Del" '删除
       '得到要移动分类相关
       If WRMPS.CheckStr(Request("Coalition"), 0) <> "" Then
          ClassID = WRMPS.CheckStr(Request("ClassID"), 1)
          WM_ClassID = WRMPS.CheckStr(Request("WM_ClassID"), 1)
          If ClassID = "" Or ClassID < 0 Then Call WRMPS.ErrView("·请选择待移动分类", 0): Exit Sub
          If WM_ClassID = "" Or WM_ClassID < 0 Then Call WRMPS.ErrView("·请选择目标分类", 0): Exit Sub
          If ClassID = WM_ClassID Then Call WRMPS.ErrView("·待移动分类和目标分类不能相同", 0): Exit Sub
	      Dim NewParentPath
	      Rs.Open "Select WM_ParentDir,WM_Dir,WM_ParentPath From WM_CouponSort Where WM_ID = " & WM_ClassID&Channel, Conn, 1, 1
          If Not Rs.EOF Then
            Dir = Rs(0) & Rs(1) & "/"
			NewParentPath = Rs(2)
          Else
            Dir = "/"
			WM_ClassID = 0
          End If
          Rs.Close
		  If Instr(NewParentPath&",",","&ClassID&",") > 0 And WRMPS.CheckStr(Request("Del"), 1) <> "" Then
		    Call WRMPS.ErrView("·目标分类为待移动分类的下属分类，不能选择“删除被移动的分类及子分类”", 0): Exit Sub
		  End If
          Del = WRMPS.CheckStr(Request("Del"), 1)
          If Del = "" Then Del = 0
          WM_ID = ClassID