wm.coupon_sort.asp

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

          '合并分类
          Conn.Execute ("UpDate WM_Coupon Set WM_ClassID = " & WM_ClassID & ",WM_ClassDir = '" & Dir & "' Where WM_ClassID = " & ClassID&Channel)
       Else
          Del = 1
       End If

       '删除分类的相关信息
       If Del = 1 Then
         Rs.Open "Select * from WM_CouponSort Where WM_ID=" & WM_ID&Channel, Conn, 1, 1
         If Not Rs.EOF Then
           WM_TaxisID = Rs("WM_ClassID")
           WM_Taxis = Rs("WM_Taxis")
           WM_ParentID = Rs("WM_ParentID")
		   DelDir = "../" & Rs("WM_ChannelDir") & Rs("WM_ParentDir") & Rs("WM_Dir")
         End If
         Rs.Close
		 '删除分类文件
		 If DelDir <> ".." and DelDir <> "../" Then
		   Call WRMPS.FsoBegin()
		     WRMPS.FsoDel "Dir",DelDir
		   Call WRMPS.FsoEnd()
		 End If
         '删除下级分类
         Rs.Open "Select * From WM_CouponSort Where WM_ClassID=" & WM_TaxisID & Channel &" and WM_ParentPath<>'0'", Conn, 1, 1
         Do While Not Rs.EOF
		   If Instr(Rs("WM_ParentPath")&",",","&WM_ID&",") Then
               If WRMPS.CheckStr(Request("Coalition"), 0) <> "" Then
                  Conn.Execute ("UpDate WM_Coupon Set WM_ClassID = " & WM_ClassID & ",WM_ClassDir = '" & Dir & "' Where WM_ClassID = " & Rs("WM_ID")&Channel)
               Else
                  Set Rso = Conn.Execute("Select WM_ID From WM_Coupon Where WM_ClassID=" & Rs("WM_ID")&Channel)
                  Do While Not Rso.EOF
                     Conn.Execute ("Delete From WM_CouponRevert Where WM_ComID=" & Rso(0) & Channel)
				  Rso.MoveNext
                  Loop
                  Rso.Close
                  Conn.Execute ("Delete From WM_Coupon Where WM_ClassID=" & Rs("WM_ID")&Channel)
               End If
               Conn.Execute ("Delete From WM_CouponSort Where WM_ID=" & Rs("WM_ID")&Channel)
           End If
         Rs.MoveNext
         Loop
         Rs.Close
		 
         If WM_ParentID > 0 Then
           Conn.Execute ("Update WM_CouponSort set WM_Child=WM_Child-1 Where WM_ID=" & WM_ParentID&Channel)
         End If
         Conn.Execute ("Update WM_CouponSort set WM_Taxis=WM_Taxis-1 Where WM_ClassID=" & WM_TaxisID & " and WM_Taxis > " & WM_Taxis & Channel &"")
         If WRMPS.CheckStr(Request("Coalition"), 0) = "" Then
            Set Rso = Conn.Execute("Select WM_ID From WM_Coupon Where WM_ClassID=" & WM_ID&Channel)
            Do While Not Rso.EOF
               Conn.Execute ("Delete From WM_CouponRevert Where WM_ComID=" & Rso(0) & Channel)
            Rso.MoveNext
            Loop
            Rso.Close
            Conn.Execute ("Delete from WM_Coupon Where WM_ClassID=" & WM_ID&Channel)
         End If
         Conn.Execute ("Delete from WM_CouponSort Where WM_ID=" & WM_ID&Channel)
       End If
	   Call CouponSort()
       Response.Redirect "?Action=View&eID="&eID&"&ChannelID=" & ChannelID & ""

    Case "Taxis" '排序
       Content = Content & "<table width='100%' border=0 align=center cellpadding=5 cellspacing=1 class=td1>" & vbCrLf
       Content = Content & "  <tr class=td4><td colspan=4><strong>分类排序</strong></td></tr>" & 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 & "<tr class=td2><td align=center colspan=4>还没有任何分类或分类</td></tr>" & vbCrLf
         Else
       Content = Content & "<tr class=td3 align=center>" & vbCrLf
       Content = Content & "      <td width='5%'>ID</td>" & vbCrLf
       Content = Content & "      <td width='35%'>分类名称</td>" & vbCrLf
       Content = Content & "      <td width='10%' colspan=2>操作</td>" & vbCrLf
       Content = Content & "    </tr>" & vbCrLf
         Rso.Open "Select WM_ID from WM_CouponSort Where WM_ID Is Not Null"&Channel&" Order By WM_ClassID Desc,WM_Taxis Desc", Conn, 1, 1
         If Not Rso.Eof Then
		     WM_ClassBig = Rso(0)
         End If
		 Rso.Close
         Rso.Open "Select WM_ClassID from WM_CouponSort Where WM_ID Is Not Null"&Channel&" Order By WM_ClassID", Conn, 1, 1
         If Not Rso.Eof Then
           WM_ClassSmall = Rso(0)
         End If
		 Rso.Close
         Do While Not Rs.EOF
       Content = Content & "    <tr class=td2 align=center> " & vbCrLf
       Content = Content & "      <td>" & Rs("WM_ID") & "</td>" & vbCrLf
       Content = Content & "      <td align=left>" & vbCrLf
       If Rs("WM_Depth") > 0 Then
         For i = 1 To Rs("WM_Depth")
           Content = Content & "　"
         Next
       End If
       If Rs("WM_ParentPath") = "0" Then Content = Content & "<b>" & Rs("WM_Name") & "</b>" Else Content = Content & Rs("WM_Name")
       If Rs("WM_Child") <> 0 Then Content = Content & " <font class=font3>(" & Rs("WM_Child") & ")</font>"
       Content = Content & "   </td><td>"
       If Rs("WM_ClassID") > Int(WM_ClassSmall) Or Rs("WM_Taxis") > 1 Then
          Content = Content & "<a href=?Action=TaxisSave&eID="&eID&"&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&Parent=" & Rs("WM_ParentID") & "&Taxis=Up onclick=""Loading.style.display='';Loading.style.bottom=100;""><img src='img/Up.gif' border=0 Title='向上一级'></a>" & vbCrLf
       End If
       Content = Content & "</td><td>"
       If Rs("WM_ID") <> Int(WM_ClassBig) Then
         Content = Content & "<a href=?Action=TaxisSave&eID="&eID&"&ChannelID=" & ChannelID & "&WM_ID=" & Rs("WM_ID") & "&Parent=" & Rs("WM_ParentID") & "&Taxis=Down onclick=""Loading.style.display='';Loading.style.bottom=100;""><img border=0 src='img/Down.gif' Title='向下一级'></a>" & vbCrLf
       End If
       Content = Content & "</td></tr>"
       Rs.MoveNext
       Loop
       End If
       Content = Content & "</table>"
	   
    Case "TaxisSave" '排序保存
       Rs.Open "Select WM_Taxis,WM_ClassID from WM_CouponSort Where WM_ID=" & WM_ID & " and WM_ParentID = " & Parent & Channel, Conn, 1, 1
       If Not Rs.EOF Then
       WM_ClassID = Rs(1)
       WM_Taxis = Rs(0)
	    Select Case Parent
		  Case 0 '一级分类
            Rso.Open "Select WM_ClassID from WM_CouponSort Where WM_ID Is Not Null"&Channel&" Order By WM_ClassID Desc", Conn, 1, 1
            If Not Rso.Eof Then
              WM_ClassBig = Rso(0)
            End If
            Rso.Close
            Rso.Open "Select WM_ClassID from WM_CouponSort Where WM_ID Is Not Null"&Channel&" Order By WM_ClassID", Conn, 1, 1
            If Not Rso.Eof Then
              WM_ClassSmall = Rso(0)
            End If
            Rso.Close
            If WRMPS.CheckStr(Request("Taxis"), 0) = "Up" Then
                If WM_ClassID <= WM_ClassSmall Then Call WRMPS.ErrView("·此分类已经排在最上面", 0): Exit Sub
                Conn.Execute ("Update WM_CouponSort set WM_ClassID=0 Where WM_ClassID=" & WM_ClassID - 1 & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_ClassID=WM_ClassID-1 Where WM_ClassID=" & WM_ClassID & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_ClassID=" & WM_ClassID & " Where WM_ClassID=0"&Channel)
            ElseIf WRMPS.CheckStr(Request("Taxis"), 0) = "Down" Then
                If WM_ClassID >= WM_ClassBig Then Call WRMPS.ErrView("·此分类已经排在最下面", 0): Exit Sub
                Conn.Execute ("Update WM_CouponSort set WM_ClassID=0 Where WM_ClassID=" & WM_ClassID + 1 & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_ClassID=WM_ClassID+1 Where WM_ClassID=" & WM_ClassID & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_ClassID=" & WM_ClassID & " Where WM_ClassID=0"&Channel)
            End If
		  Case Else '无限级分类
            Rso.Open "Select WM_Taxis from WM_CouponSort Where WM_ParentID=" & Parent &Channel&" Order By WM_ClassID Desc,WM_Taxis Desc", Conn, 1, 1
            If Not Rso.Eof Then
              WM_ClassBig = Rso(0)
            End If
            Rso.Close
            Rso.Open "Select WM_Taxis from WM_CouponSort Where WM_ParentID=" & Parent &Channel&" Order By WM_ClassID,WM_Taxis", Conn, 1, 1
            If Not Rso.Eof Then
              WM_ClassSmall = Rso(0)
            End If
            Rso.Close
            If WRMPS.CheckStr(Request("Taxis"), 0) = "Up" Then
                If WM_Taxis <= WM_ClassSmall Then Call WRMPS.ErrView("·此分类已经排在最上面", 0): Exit Sub
                Conn.Execute ("Update WM_CouponSort set WM_Taxis=0 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis - 1 & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_Taxis=WM_Taxis-1 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_Taxis=" & WM_Taxis & " Where WM_ParentID=" & Parent & " and WM_Taxis=0"&Channel)
            ElseIf WRMPS.CheckStr(Request("Taxis"), 0) = "Down" Then
                If WM_Taxis >= WM_ClassBig Then Call WRMPS.ErrView("·此分类已经排在最下面", 0): Exit Sub
                Conn.Execute ("Update WM_CouponSort set WM_Taxis=0 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis + 1 & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_Taxis=WM_Taxis+1 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis & Channel)
                Conn.Execute ("Update WM_CouponSort set WM_Taxis=" & WM_Taxis & " Where WM_ParentID=" & Parent & " and WM_Taxis=0"&Channel)
            End If
		End Select
      End If
	  Call CouponSort()
      Response.Redirect "?Action=Taxis&eID="&eID&"&ChannelID=" & ChannelID & ""
  End Select
  Set Rso = Nothing
  Set Rs = Nothing
  Call WRMPS.Loading("")
  Call DBConnEnd()
  Call ClassEnd()
  Response.write Content
  Call GetBottom()
End Sub
%>