📄 wm.class_sort.asp
字号:
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
'合并分类
Conn.Execute ("Update WM_ClassAD 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_ClassSort 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_ClassSort 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_ClassAD 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_ClassAD Where WM_ClassID=" & Rs("WM_ID")&Channel)
Do While Not Rso.EOF
Conn.Execute ("Delete From WM_ClassRevert Where WM_ParentID=" & Rso(0) & Channel)
Rso.MoveNext
Loop
Rso.Close
Conn.Execute ("Delete From WM_ClassAD Where WM_ClassID=" & Rs("WM_ID")&Channel)
End If
Conn.Execute ("Delete From WM_ClassSort Where WM_ID=" & Rs("WM_ID")&Channel)
End If
Rs.MoveNext
Loop
Rs.Close
If WM_ParentID > 0 Then
Conn.Execute ("Update WM_ClassSort set WM_Child=WM_Child-1 Where WM_ID=" & WM_ParentID&Channel)
End If
Conn.Execute ("Update WM_ClassSort 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_ClassAD Where WM_ClassID=" & WM_ID&Channel)
Do While Not Rso.EOF
Conn.Execute ("Delete From WM_ClassRevert Where WM_ParentID=" & Rso(0) & Channel)
Rso.MoveNext
Loop
Rso.Close
Conn.Execute ("Delete from WM_ClassAD Where WM_ClassID=" & WM_ID&Channel)
End If
Conn.Execute ("Delete from WM_ClassSort Where WM_ID=" & WM_ID&Channel)
End If
Call ClassSort()
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_ClassSort 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_ClassSort 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_ClassSort 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_ClassSort 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_ClassSort 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_ClassSort 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_ClassSort set WM_ClassID=0 Where WM_ClassID=" & WM_ClassID - 1 & Channel)
Conn.Execute ("Update WM_ClassSort set WM_ClassID=WM_ClassID-1 Where WM_ClassID=" & WM_ClassID & Channel)
Conn.Execute ("Update WM_ClassSort 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_ClassSort set WM_ClassID=0 Where WM_ClassID=" & WM_ClassID + 1 & Channel)
Conn.Execute ("Update WM_ClassSort set WM_ClassID=WM_ClassID+1 Where WM_ClassID=" & WM_ClassID & Channel)
Conn.Execute ("Update WM_ClassSort set WM_ClassID=" & WM_ClassID & " Where WM_ClassID=0"&Channel)
End If
Case Else '无限级分类
Rso.Open "Select WM_Taxis from WM_ClassSort 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_ClassSort 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_ClassSort set WM_Taxis=0 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis - 1 & Channel)
Conn.Execute ("Update WM_ClassSort set WM_Taxis=WM_Taxis-1 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis & Channel)
Conn.Execute ("Update WM_ClassSort 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_ClassSort set WM_Taxis=0 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis + 1 & Channel)
Conn.Execute ("Update WM_ClassSort set WM_Taxis=WM_Taxis+1 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis & Channel)
Conn.Execute ("Update WM_ClassSort set WM_Taxis=" & WM_Taxis & " Where WM_ParentID=" & Parent & " and WM_Taxis=0"&Channel)
End If
End Select
End If
Call ClassSort()
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
Function testCon()
testCon = testCon & "租金：<input name=DB1T type=hidden value=""租金：""><select name=""DB1"" size=""1"">" & vbCrLf
testCon = testCon & " <option value=""小于200元/月"" [$DB1(小于200元/月)$]>小于200</option>" & vbCrLf
testCon = testCon & " <option value=""200-500元/月"" [$DB1(200-500元/月)$]>200-500</option>" & vbCrLf
testCon = testCon & " <option value=""500-800元/月"" [$DB1(500-800元/月)$]>500-800</option>" & vbCrLf
testCon = testCon & " <option value=""800-1200元/月"" [$DB1(800-1200元/月)$]>800-1200</option>" & vbCrLf
testCon = testCon & " <option value=""1200-2000元/月"" [$DB1(1200-2000元/月)$]>1200-2000</option>" & vbCrLf
testCon = testCon & " <option value=""2000以上元/月"" [$DB1(2000以上元/月)$]>2000以上</option>" & vbCrLf
testCon = testCon & " </select> 元/月<br>" & vbCrLf
testCon = testCon & "面积：<input name=DB2T type=hidden value=""面积：""><input name=""DB2"" type=""text"" maxlength=""6"" value=""[$DB2$]"" size=5> ㎡"
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -