📄 admin_class.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_Content.asp"-->
<!--#include file="../Include/PowerEasy.Class.asp"-->
<!--#include file="../Include/PowerEasy.Common.Content.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 1 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim arrInvalidDir
Dim pNum, pNum2, OpenType_Class, iOrderID
Dim ClassLink
Dim HtmlDir
HtmlDir = InstallDir & ChannelDir
ParentID = PE_CLng(Trim(Request("ParentID")))
arrInvalidDir = "HTML,JS,Special,List,Images,UploadFiles,UploadSoft,UploadSoftPic,UploadThumbs,UploadPhotos,UploadFlash,UploadVideo,UploadMusic"
Response.Write "<html><head><title>" & ChannelName & "管理----栏目管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Call ShowPageTitle(ChannelName & "管理----栏目管理", 10003)
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30'><strong>管理导航：</strong></td>"
Response.Write " <td height='30'>"
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "'>" & ChannelShortName & "栏目管理首页</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Add'>添加" & ChannelShortName & "栏目</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Order'>一级栏目排序</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=OrderN'>N级栏目排序</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Reset'>复位所有" & ChannelShortName & "栏目</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Unite'>" & ChannelShortName & "栏目合并</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Batch'>批量设置</a> | "
Response.Write "<a href='Admin_Class.asp?ChannelID=" & ChannelID & "&Action=Patch'>修复栏目结构</a>"
Response.Write " </td></tr></table>" & vbCrLf
Select Case Action
Case "Add"
Call AddClass
Case "SaveAdd"
Call SaveAdd
Case "Modify"
Call Modify
Case "SaveModify"
Call SaveModify
Case "Move"
Call MoveClass
Case "SaveMove"
Call SaveMove
Case "Del"
Call DeleteClass
Case "Clear"
Call ClearClass
Case "UpOrder"
Call UpOrder
Case "DownOrder"
Call DownOrder
Case "Order"
Call order
Case "UpOrderN"
Call UpOrderN
Case "DownOrderN"
Call DownOrderN
Case "OrderN"
Call OrderN
Case "Reset"
Call Reset
Case "SaveReset"
Call SaveReset
Case "Unite"
Call Unite
Case "SaveUnite"
Call SaveUnite
Case "Batch"
Call ShowBatch
Case "DoBatch"
Call DoBatch
Case "Patch"
Call Patch
Case "DoPatch"
Call DoPatch
Case "ResetChildClass"
Call ResetChildClass
Case "CreateJS"
Call CreateJS_Class
Call WriteSuccessMsg("已经成功生成栏目JS文件。", ComeUrl)
Case Else
Call main
End Select
If FoundErr = True Then
Call WriteEntry(2, AdminName, "栏目管理操作失败，失败原因：" & ErrMsg)
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
Dim arrShowLine(20), i
For i = 0 To UBound(arrShowLine)
arrShowLine(i) = False
Next
Dim sqlClass, rsClass, iDepth, ClassDir, ClassItemDir
sqlClass = "select * from PE_Class where ChannelID=" & ChannelID & " order by RootID,OrderID"
Set rsClass = Conn.Execute(sqlClass)
Response.Write "<br>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='1' class='border'>"
Response.Write " <tr class='title' height='22'> "
Response.Write " <td width='30' align='center'><strong>ID</strong></td>"
Response.Write " <td align='center'><strong>栏目名称及目录</strong></td>"
Response.Write " <td width='60' align='center'><strong>栏目权限</strong></td>"
Response.Write " <td width='100' align='center'><strong>栏目属性</strong></td>"
Response.Write " <td width='380' align='center'><strong>操作选项</strong></td>"
Response.Write " </tr>" & vbCrLf
If rsClass.BOF And rsClass.EOF Then
Response.Write "<tr><td colspan='10' height='50' align='center'>没有任何栏目</td></tr>"
Else
Do While Not rsClass.EOF
Response.Write "<tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='30' align='center'>" & rsClass("ClassID") & "</td>"
Response.Write " <td>"
iDepth = rsClass("Depth")
If rsClass("NextID") > 0 Then
arrShowLine(iDepth) = True
Else
arrShowLine(iDepth) = False
End If
If iDepth > 0 Then
For i = 1 To iDepth
If i = iDepth Then
If rsClass("NextID") > 0 Then
Response.Write "<img src='../images/tree_line1.gif' width='17' height='16' valign='abvmiddle'>"
Else
Response.Write "<img src='../images/tree_line2.gif' width='17' height='16' valign='abvmiddle'>"
End If
Else
If arrShowLine(i) = True Then
Response.Write "<img src='../images/tree_line3.gif' width='17' height='16' valign='abvmiddle'>"
Else
Response.Write "<img src='../images/tree_line4.gif' width='17' height='16' valign='abvmiddle'>"
End If
End If
Next
End If
If rsClass("Child") > 0 Then
Response.Write "<img src='../images/tree_folder4.gif' width='15' height='15' valign='abvmiddle'>"
Else
Response.Write "<img src='../images/tree_folder3.gif' width='15' height='15' valign='abvmiddle'>"
End If
If rsClass("Depth") = 0 Then
Response.Write "<b>"
End If
Response.Write "<a href='Admin_Class.asp?Action=Modify&ChannelID=" & ChannelID & "&ClassID=" & rsClass("ClassID") & "' title='" & nohtml(rsClass("Tips")) & "'>" & rsClass("ClassName") & "</a>"
If rsClass("Child") > 0 Then
Response.Write "（" & rsClass("Child") & "）"
End If
If rsClass("ClassType") = 2 Then
Response.Write " <font color=blue>（外）</font>"
Else
Response.Write " [" & rsClass("ClassDir") & "]"
End If
'Response.Write " " & rsClass("ClassID") & "," & rsClass("PrevID") & "," & rsClass("NextID") & "," & rsClass("ParentID") & "," & rsClass("RootID")
Response.Write "</td><td align='center' width='60'>"
Select Case rsClass("ClassPurview")
Case 0
Response.Write "<font color='green'>开放</font>"
Case 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -