📄 wm.article_sort.asp
字号:
Conn.Execute ("Update WM_ArticleSort Set WM_Name= '" & WM_Name & "',WM_Url='"&Url&"',WM_MemberFlag="&MemberFlag&",WM_ShowOnParent='"&ShowOnParent&"',WM_ShowOnTop='"&ShowOnTop&"',WM_Title='"&WM_Title&"',WM_MetaKey='"&MetaKey&"',WM_MetaContent='"&MetaContent&"',WM_TempID="&TempID&",WM_NoTempID="&NoTempID&" Where WM_ID=" & WM_ID&Channel)
Response.Redirect "?Action=View&eID="&eID&"&ChannelID=" & ChannelID & ""
Case "ClassDefault" '设为默认
Conn.Execute ("update WM_ArticleSort set WM_IsDefault=0 Where WM_ID Is Not Null" & Channel & "")
Conn.Execute ("update WM_ArticleSort set WM_IsDefault=1 Where WM_ID=" & WM_ID&Channel)
Response.Redirect "?Action=View&eID="&eID&"&ChannelID=" & ChannelID & ""
Case "DelDefault" '取消默认
Conn.Execute ("update WM_ArticleSort set WM_IsDefault=0 Where WM_ID Is Not Null" & Channel & "")
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_ArticleSort 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
'合并栏目
Conn.Execute ("UpDate WM_Article 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_ArticleSort 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")
WM_Type = Rs("WM_Type")
End If
Rs.Close
'删除栏目文件
If WM_Type > 0 and DelDir <> ".." and DelDir <> "../" Then
Call WRMPS.FsoBegin()
Call WRMPS.FsoDel("Dir",DelDir)
Call WRMPS.FsoEnd()
End If
'删除下级栏目
Rs.Open "Select * From WM_ArticleSort 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_Article 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_Article Where WM_ClassID=" & Rs("WM_ID")&Channel)
Do While Not Rso.EOF
Conn.Execute ("Delete From WM_ArticleRevert Where WM_ParentID=" & Rso(0) & Channel)
Rso.MoveNext
Loop
Rso.Close
Conn.Execute ("Delete From WM_Article Where WM_ClassID=" & Rs("WM_ID")&Channel)
End If
Conn.Execute ("Delete From WM_ArticleSort Where WM_ID=" & Rs("WM_ID")&Channel)
End If
Rs.MoveNext
Loop
Rs.Close
If WM_ParentID > 0 Then
Conn.Execute ("Update WM_ArticleSort set WM_Child=WM_Child-1 Where WM_ID=" & WM_ParentID&Channel)
End If
Conn.Execute ("Update WM_ArticleSort 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_Article Where WM_ClassID=" & WM_ID&Channel)
Do While Not Rso.EOF
Conn.Execute ("Delete From WM_ArticleRevert Where WM_ParentID=" & Rso(0) & Channel)
Rso.MoveNext
Loop
Rso.Close
Conn.Execute ("Delete from WM_Article Where WM_ClassID=" & WM_ID&Channel)
End If
Conn.Execute ("Delete From WM_ArticleSort Where WM_ID=" & WM_ID&Channel)
End If
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_ArticleSort 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_ArticleSort 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_ArticleSort 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><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><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_ArticleSort 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_ArticleSort 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_ArticleSort 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_ArticleSort set WM_ClassID=0 Where WM_ClassID=" & WM_ClassID - 1 & Channel)
Conn.Execute ("Update WM_ArticleSort set WM_ClassID=WM_ClassID-1 Where WM_ClassID=" & WM_ClassID & Channel)
Conn.Execute ("Update WM_ArticleSort 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_ArticleSort set WM_ClassID=0 Where WM_ClassID=" & WM_ClassID + 1 & Channel)
Conn.Execute ("Update WM_ArticleSort set WM_ClassID=WM_ClassID+1 Where WM_ClassID=" & WM_ClassID & Channel)
Conn.Execute ("Update WM_ArticleSort set WM_ClassID=" & WM_ClassID & " Where WM_ClassID=0"&Channel)
End If
Case Else '无限级分类
Rso.Open "Select WM_Taxis From WM_ArticleSort 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_ArticleSort 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_ArticleSort set WM_Taxis=0 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis - 1 & Channel)
Conn.Execute ("Update WM_ArticleSort set WM_Taxis=WM_Taxis-1 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis & Channel)
Conn.Execute ("Update WM_ArticleSort 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_ArticleSort set WM_Taxis=0 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis + 1 & Channel)
Conn.Execute ("Update WM_ArticleSort set WM_Taxis=WM_Taxis+1 Where WM_ParentID=" & Parent & " and WM_Taxis=" & WM_Taxis & Channel)
Conn.Execute ("Update WM_ArticleSort set WM_Taxis=" & WM_Taxis & " Where WM_ParentID=" & Parent & " and WM_Taxis=0"&Channel)
End If
End Select
End If
Response.Redirect "?Action=Taxis&eID="&eID&"&ChannelID=" & ChannelID & ""
End Select
Set Rso = Nothing
Set Rs = Nothing
Call DBConnEnd()
Call ClassEnd()
Response.write Content
Call GetBottom()
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -