📄 admin_article.asp
字号:
Call ConfirmDel
Case "ClearRecyclebin"
Call ClearRecyclebin
Case "Restore"
Call Restore
Case "RestoreAll"
Call RestoreAll
Case "DelFile"
Call DelFile
Case "Batch"
Call Batch
Case "DoBatch"
Call DoBatch
Case "MoveToClass"
Call ShowForm_MoveToClass
Case "MoveToSpecial"
Call ShowForm_MoveToSpecial
Case "AddToSpecial"
Call ShowForm_AddToSpecial
Case "DoMoveToClass"
Call DoMoveToClass
Case "DoMoveToSpecial"
Call DoMoveToSpecial
Case "DoAddToSpecial"
Call DoAddToSpecial
Case "DelFromSpecial"
Call DelFromSpecial
Case "BatchReplace"
Call BatchReplace
Case "DoBatchReplace"
Call DoBatchReplace
Case "Manage"
Call main
Case "ConfirmPay"
Call ConfirmPay
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub main()
If ManageType = "HTML" And UseCreateHTML = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>本频道设置了不生成HTML，所以不用进行生成管理！</li>"
Exit Sub
End If
Dim arrUser, i, NotReceiveUser
Dim rsArticleList, sql, Querysql
PurviewChecked = False
If ClassID = 0 Then
If strField = "" And AdminPurview = 2 And AdminPurview_Channel = 3 And ManageType <> "My" Then
If ManageType = "Check" Or ManageType = "PayMoney" Then
If arrClass_Check = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>对不起，您没有在此频道审核" & ChannelShortName & "的权限！</li>"
Exit Sub
End If
Set tClass = Conn.Execute("select top 1 ClassID,ClassName,RootID,ParentID,Depth,ParentPath,Child,arrChildID,ClassPurview,ParentDir,ClassDir from PE_Class where ChannelID=" & ChannelID & " and ClassID In (" & DelRightComma(arrClass_Check) & ")")
Else
If arrClass_Manage = "" Then
FoundErr = True
ErrMsg = ErrMsg & "<li>对不起，您没有在此频道管理" & ChannelShortName & "的权限！</li>"
Exit Sub
End If
Set tClass = Conn.Execute("select top 1 ClassID,ClassName,RootID,ParentID,Depth,ParentPath,Child,arrChildID,ClassPurview,ParentDir,ClassDir from PE_Class where ChannelID=" & ChannelID & " and ClassID In (" & DelRightComma(arrClass_Manage) & ")")
End If
If tClass.BOF And tClass.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>对不起，您没有在此频道的管理权限！</li>"
Else
ClassID = tClass(0)
ClassName = tClass(1)
RootID = tClass(2)
ParentID = tClass(3)
Depth = tClass(4)
ParentPath = tClass(5)
Child = tClass(6)
arrChildID = tClass(7)
PurviewChecked = True
ClassPurview = tClass(8)
ParentDir = tClass(9)
ClassDir = tClass(10)
End If
End If
ElseIf ClassID = -1 Then
If AdminPurview = 1 Or (AdminPurview = 2 And AdminPurview_Channel < 3) Then PurviewChecked = True
ElseIf ClassID > 0 Then
Set tClass = Conn.Execute("select ClassName,RootID,ParentID,Depth,ParentPath,Child,arrChildID,ClassPurview,ParentDir,ClassDir from PE_Class where ClassID=" & ClassID)
If tClass.BOF And tClass.EOF Then
FoundErr = True
ErrMsg = ErrMsg & "<li>找不到指定的栏目</li>"
Else
ClassName = tClass(0)
RootID = tClass(1)
ParentID = tClass(2)
Depth = tClass(3)
ParentPath = tClass(4)
Child = tClass(5)
arrChildID = tClass(6)
ClassPurview = tClass(7)
ParentDir = tClass(8)
ClassDir = tClass(9)
End If
Set tClass = Nothing
End If
If FoundErr = True Then Exit Sub
If PurviewChecked = False Then
If ManageType = "Check" Or ManageType = "PayMoney" Then
If ParentID > 0 Then
PurviewChecked = CheckPurview_Class(arrClass_Check, ParentPath & "," & ClassID)
Else
PurviewChecked = CheckPurview_Class(arrClass_Check, ClassID)
End If
Else
If ParentID > 0 Then
PurviewChecked = CheckPurview_Class(arrClass_Manage, ParentPath & "," & ClassID)
Else
PurviewChecked = CheckPurview_Class(arrClass_Manage, ClassID)
End If
End If
End If
Call ShowJS_Manage(ChannelShortName)
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
If ManageType = "Special" Then
Response.Write "<tr class='title'>"
Response.Write " <td height='22'>" & GetSpecialList() & "</td></tr>" & vbCrLf
Else
Response.Write " <tr class='title'>"
Response.Write " <td height='22'>" & GetRootClass() & "</td>"
Response.Write " </tr>" & GetChild_Root() & ""
End If
Response.Write "</table><br>"
Select Case ManageType
Case "Check"
Call ShowContentManagePath(ChannelShortName & "审核")
Case "PayMoney"
Call ShowContentManagePath("稿费管理")
Case "Receive"
Call ShowContentManagePath(ChannelShortName & "签收管理")
Case "HTML"
Call ShowContentManagePath(ChannelShortName & "生成")
Case "Recyclebin"
Call ShowContentManagePath(ChannelShortName & "回收站管理")
Case "Special"
Call ShowContentManagePath("专题" & ChannelShortName & "管理")
Case Else
Call ShowContentManagePath(ChannelShortName & "管理")
End Select
Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
Response.Write " <form name='myform' method='Post' action='Admin_Article.asp' onsubmit='return ConfirmDel();'>"
Response.Write " <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
Response.Write " <tr class='title' height='22'> "
Response.Write " <td height='22' width='30' align='center'><strong>选中</strong></td>"
Response.Write " <td width='25' align='center'><strong>ID</strong></td>"
If ManageType = "Special" Then
Response.Write " <td width='120' align='center'><strong>所属专题</strong></td>"
End If
Response.Write " <td align='center' ><strong>" & ChannelShortName & "标题</strong></td>"
Response.Write " <td width='60' align='center' ><strong>录入者</strong></td>"
'添加稿费管理界面
If ManageType = "PayMoney" Then
Response.Write " <td width='60' align='center'><strong>作者</strong></td>"
Response.Write " <td width='80' align='center'><strong>稿费受益者</strong></td>"
Response.Write " <td width='60' align='center'><strong>稿费</strong></td>"
Response.Write " <td width='40' align='center'><strong>已支付</strong></td>"
If PayStatus = "True" Then
Response.Write " <td width='60' align='center' ><strong>支付日期</strong></td>"
Else
Response.Write " <td width='60' align='center' ><strong>录入日期</strong></td>"
End If
Else
Response.Write " <td width='40' align='center' ><strong>点击数</strong></td>"
Response.Write " <td width='80' align='center' ><strong>" & ChannelShortName & "属性</strong></td>"
Response.Write " <td width='60' align='center' ><strong>审核状态</strong></td>"
End If
If UseCreateHTML > 0 And ObjInstalled_FSO = True And ManageType <> "Special" Then
Response.Write " <td width='40' align='center' ><strong>已生成</strong></td>"
End If
If ManageType = "Check" Then
Response.Write " <td width='120' align='center' ><strong>审核操作</strong></td>"
ElseIf ManageType = "PayMoney" Then
If PayStatus = "False" Then
Response.Write " <td width='60' align='center' ><strong>稿费操作</strong></td>"
End If
ElseIf ManageType = "HTML" Then
Response.Write " <td width='180' align='center' ><strong>生成HTML操作</strong></td>"
ElseIf ManageType = "Recyclebin" Then
Response.Write " <td width='100' align='center' ><strong>回收站操作</strong></td>"
ElseIf ManageType = "Special" Then
Response.Write " <td width='100' align='center' ><strong>专题管理操作</strong></td>"
Else
Response.Write " <td width='150' align='center' ><strong>常规管理操作</strong></td>"
End If
Response.Write " </tr>"
If ManageType = "Special" Then
sql = "select top " & MaxPerPage & " I.InfoID,I.SpecialID,A.ArticleID,SP.SpecialName,A.Title,A.Keyword,A.Author,A.UpdateTime,A.Inputer,"
sql = sql & "A.CopyFrom,A.DefaultPicUrl,A.IncludePic,A.PaginationType,A.Receive,A.ReceiveUser,A.Received,"
sql = sql & "A.Hits,A.OnTop,A.Elite,A.Status,A.Stars,A.InfoPoint,A.VoteID"
sql = sql & " from PE_Article A right join (PE_InfoS I left join PE_Special SP on I.SpecialID=SP.SpecialID) on A.ArticleID=I.ItemID "
Else
If ClassID = -1 Or (ClassID > 0 And Child = 0) Then
sql = "select top " & MaxPerPage & " A.ClassID,A.ArticleID,A.Title,A.Keyword,A.Author,A.UpdateTime,A.Inputer,"
sql = sql & "A.CopyFrom,A.IncludePic,A.DefaultPicUrl,A.PaginationType,A.Receive,A.ReceiveUser,A.Received,"
sql = sql & "A.Hits,A.OnTop,A.Elite,A.Status,A.Stars,A.InfoPoint,A.Beneficiary,A.IsPayed,A.CopyMoney,A.PayDate,A.VoteID"
sql = sql & " from PE_Article A "
Else
sql = "select top " & MaxPerPage & " A.ClassID,A.ArticleID,C.ClassName,C.ParentDir,C.ClassDir,C.ClassPurview,A.Title,A.Keyword,A.Author,A.UpdateTime,A.Inputer,"
sql = sql & "A.CopyFrom,A.IncludePic,A.DefaultPicUrl,A.PaginationType,A.Receive,A.ReceiveUser,A.Received,"
sql = sql & "A.Hits,A.OnTop,A.Elite,A.Status,A.Stars,A.InfoPoint,A.Beneficiary,A.IsPayed,A.CopyMoney,A.PayDate,A.VoteID"
sql = sql & " from PE_Article A left join PE_Class C on A.ClassID=C.ClassID "
End If
End If
Querysql = " where A.ChannelID=" & ChannelID
If ManageType = "Special" Then
Querysql = Querysql & " and I.ModuleType=" & ModuleType
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -