📄 admin_article.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_Content.asp"-->
<!--#include file="../Include/PowerEasy.CreateThumb.asp"-->
<!--#include file="../Include/PowerEasy.SendMail.asp"-->
<!--#include file="../Include/PowerEasy.Common.Content.asp"-->
<!--#include file="../Include/PowerEasy.FSO.asp"-->
<!--#include file="../Include/PowerEasy.XmlHttp.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 = 3 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim HtmlDir, PurviewChecked
Dim ManageType, Status, MyStatus, arrStatus
Dim ClassID, SpecialID, OnTop, IsElite, IsHot, Created
Dim tClass, ClassName, RootID, ParentID, Depth, ParentPath, Child, arrChildID, ParentDir, ClassDir, ClassPurview
Dim ArticleID
Dim PayStatus
Dim IncludePic, UploadFiles, DefaultPicUrl, IsThumb
Dim ArticlePro1, ArticlePro2, ArticlePro3, ArticlePro4
Dim VoteID
If ChannelID = 0 Then
Response.Write "频道参数丢失！"
Call CloseConn
Response.End
End If
If ModuleType <> 1 Then
Response.Write "<li>指定的频道ID不对！</li>"
Call CloseConn
Response.End
End If
ModuleName = "Article"
SheetName = "PE_Article"
If AdminPurview = 1 Then
MyStatus = 3
Else
Select Case CheckLevel
Case 0, 1
MyStatus = 3
Case 2
If AdminPurview_Channel <= 2 Then
MyStatus = 3
Else
MyStatus = 2
End If
Case 3
MyStatus = 4 - AdminPurview_Channel
End Select
End If
arrStatus = Array("待审核", "一审通过", "二审通过", "终审通过")
HtmlDir = InstallDir & ChannelDir
ManageType = Trim(Request("ManageType"))
Status = Trim(Request("Status"))
Created = Trim(Request("Created"))
OnTop = Trim(Request("OnTop"))
IsElite = Trim(Request("IsElite"))
IsHot = Trim(Request("IsHot"))
ClassID = PE_CLng(Trim(Request("ClassID")))
SpecialID = PE_CLng(Trim(Request("SpecialID")))
ArticleID = Trim(Request("ArticleID"))
PayStatus = Trim(Request("PayStatus")) '文章支付状态
If Action = "" Then
Action = "Manage"
End If
If Status = "" Then
Status = 9
Else
Status = PE_CLng(Status) '文章状态 9－－所有文章，-1－－草稿，0－－待审核，1－－已审核，-2－－退稿
End If
If IsValidID(ArticleID) = False Then
ArticleID = ""
End If
If PayStatus = "" Then
PayStatus = "False"
End If
FileName = "Admin_Article.asp?ChannelID=" & ChannelID & "&Action=" & Action & "&ManageType=" & ManageType
strFileName = FileName & "&ClassID=" & ClassID & "&SpecialID=" & SpecialID & "&Field=" & strField & "&keyword=" & Keyword
If XmlDoc.Load(Server.MapPath(InstallDir & "Language/Gb2312_Channel_" & ChannelID & ".xml")) = False Then XmlDoc.Load (Server.MapPath(InstallDir & "Language/Gb2312.xml"))
ArticlePro1 = XmlText("Article", "ArticlePro1", "[图文]")
ArticlePro2 = XmlText("Article", "ArticlePro2", "[组图]")
ArticlePro3 = XmlText("Article", "ArticlePro3", "[推荐]")
ArticlePro4 = XmlText("Article", "ArticlePro4", "[注意]")
If Action = "ExportExcel" Then
Call ExportExcel
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.End
End If
Response.Write "<html><head><title>" & ChannelShortName & "管理</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
If Action = "Add" Or Action = "Modify" Then
Response.Write "<script src=""../JS/prototype.js""></script>" & vbCrLf
Response.Write "<script src=""../JS/checklogin.js""></script>" & vbCrLf
End If
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
If Action = "Preview" Then
Call Preview
Call CloseConn
Response.End
End If
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Dim strTitle
strTitle = ChannelName & "管理----"
Select Case Action
Case "Add"
strTitle = strTitle & "添加" & ChannelShortName
Case "Modify"
strTitle = strTitle & "修改" & ChannelShortName
Case "Check"
strTitle = strTitle & "审核" & ChannelShortName
Case "SaveAdd", "SaveModify", "SaveModifyAsAdd"
strTitle = strTitle & "保存" & ChannelShortName
Case "Move"
strTitle = strTitle & "移动" & ChannelShortName
Case "Preview", "Show"
strTitle = strTitle & "预览" & ChannelShortName
Case "Batch", "DoBatch"
strTitle = strTitle & "批量修改" & ChannelShortName & "属性"
Case "MoveToClass"
strTitle = strTitle & "批量移动" & ChannelShortName
Case "BatchReplace"
strTitle = strTitle & "批量替换" & ChannelShortName
Case "AddToSpecial"
strTitle = strTitle & "添加" & ChannelShortName & "到专题"
Case "MoveToSpecial"
strTitle = strTitle & "移动" & ChannelShortName & "到专题"
Case "Manage"
Select Case ManageType
Case "Check"
strTitle = strTitle & ChannelShortName & "审核"
Case "PayMoney"
strTitle = strTitle & ChannelShortName & "稿费管理"
Case "HTML"
strTitle = strTitle & ChannelShortName & "生成"
Case "Recyclebin"
strTitle = strTitle & ChannelShortName & "回收站管理"
Case "Special"
strTitle = strTitle & "专题" & ChannelShortName & "管理"
Case Else
strTitle = strTitle & ChannelShortName & "管理首页"
End Select
End Select
Call ShowPageTitle(strTitle, 10111)
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30' ><strong>管理导航：</strong></td><td colspan='5'>"
Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Status=9'>" & ChannelShortName & "管理首页</a> | "
Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Add&ClassID=" & ClassID & "&SpecialID=" & SpecialID & "'>添加" & ChannelShortName & "</a> | "
Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&ManageType=Check&Status=0'>审核" & ChannelShortName & "</a>"
If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
Response.Write " | <a href='Admin_Article.asp?ChannelID=" & ChannelID & "&ManageType=Special'>专题" & ChannelShortName & "管理</a>"
End If
If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
Response.Write " | <a href='Admin_Article.asp?ChannelID=" & ChannelID & "&ManageType=Recyclebin&Status=9'>" & ChannelShortName & "回收站管理</a>"
End If
If FoundInArr(arrEnabledTabs, "Copyfee", ",") = True Then
Response.Write " | <a href='Admin_" & ModuleName & ".asp?ChannelID=" & ChannelID & "&ManageType=PayMoney&PayStatus=False' target=main>稿费管理</a>"
End If
If UseCreateHTML > 0 And ObjInstalled_FSO = True Then
Response.Write " | <a href='Admin_Article.asp?ChannelID=" & ChannelID & "&ManageType=HTML&Status=1'><b>生成HTML管理</b></a>"
End If
Response.Write "</td></tr>" & vbCrLf
If Action = "Manage" Then
Response.Write "<form name='form3' method='Post' action='" & strFileName & "'><tr class='tdbg'>"
Response.Write " <td width='70' height='30' ><strong>" & ChannelShortName & "选项：</strong></td><td>"
If ManageType = "PayMoney" Then
Response.Write "<input name='PayStatus' type='radio' onclick='submit();' " & RadioValue(PayStatus, "False") & ">未支付稿费的" & ChannelShortName & "  "
Response.Write "<input name='PayStatus' type='radio' onclick='submit();' " & RadioValue(PayStatus, "True") & ">已支付稿费的" & ChannelShortName
ElseIf ManageType = "HTML" Then
Response.Write "<input name='Created' type='radio' onclick='submit();' " & RadioValue(Created, "") & ">所有" & ChannelShortName & " "
Response.Write "<input name='Created' type='radio' onclick='submit();' " & RadioValue(Created, "False") & ">未生成的" & ChannelShortName & "  "
Response.Write "<input name='Created' type='radio' onclick='submit();' " & RadioValue(Created, "True") & ">已生成的" & ChannelShortName
Else
Response.Write "<input name='Status' type='radio' onclick='submit();' " & RadioValue(Status, 9) & ">所有" & ChannelShortName & " "
Response.Write "<input name='Status' type='radio' onclick='submit();' " & RadioValue(Status, -1) & ">草稿 "
Response.Write "<input name='Status' type='radio' onclick='submit();' " & RadioValue(Status, 0) & ">待审核 "
Response.Write "<input name='Status' type='radio' onclick='submit();' " & RadioValue(Status, 1) & ">已审核 "
Response.Write "<input name='Status' type='radio' onclick='submit();' " & RadioValue(Status, -2) & ">退稿"
Response.Write "</td><td>"
Response.Write "<input name='OnTop' type='checkbox' onclick='submit()' " & RadioValue(OnTop, "True") & "> 固顶" & ChannelShortName & " "
Response.Write "<input name='IsElite' type='checkbox' onclick='submit()' " & RadioValue(IsElite, "True") & "> 推荐" & ChannelShortName & " "
Response.Write "<input name='IsHot' type='checkbox' onclick='submit()' " & RadioValue(IsHot, "True") & "> 热门" & ChannelShortName
End If
Response.Write "</td></tr></form>" & vbCrLf
End If
Response.Write "</table>" & vbCrLf
strFileName = strFileName & "&Status=" & Status & "&Created=" & Created & "&PayStatus=" & PayStatus & "&OnTop=" & OnTop & "&IsElite=" & IsElite & "&IsHot=" & IsHot
Select Case Action
Case "Add"
Call Add
Case "Modify", "Check"
Call Modify
Case "SaveAdd", "SaveModify", "SaveModifyAsAdd"
Call SaveArticle
Case "SetOnTop", "CancelOnTop", "SetElite", "CancelElite", "SetPassed", "CancelPassed", "Reject"
Call SetProperty
Case "Show"
Call Show
Case "Del"
Call Del
Case "ConfirmDel"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -