📄 admin_soft.asp
字号:
<!--#include file="Admin_Common.asp"-->
<!--#include file="Admin_CommonCode_Content.asp"-->
<!--#include file="../Include/PowerEasy.Common.Content.asp"-->
<!--#include file="../Include/PowerEasy.SendMail.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 = 3 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "" '其他权限
Dim HtmlDir, PurviewChecked, AddType
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 SoftID
Dim VoteID
Dim arrFields_Options, arrSoftType, arrSoftLanguage, arrCopyrightType, arrOperatingSystem
arrFields_Options = Split(",,,", ",")
arrSoftType = ""
arrSoftLanguage = ""
arrCopyrightType = ""
arrOperatingSystem = ""
If Fields_Options & "" <> "" Then
arrFields_Options = Split(Fields_Options, "$$$")
If UBound(arrFields_Options) = 3 Then
arrSoftType = Split(arrFields_Options(0), vbCrLf)
arrSoftLanguage = Split(arrFields_Options(1), vbCrLf)
arrCopyrightType = Split(arrFields_Options(2), vbCrLf)
arrOperatingSystem = Split(arrFields_Options(3), vbCrLf)
End If
End If
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
If XmlDoc.Load(Server.MapPath(InstallDir & "Language/Gb2312_Channel_" & ChannelID & ".xml")) = False Then XmlDoc.Load (Server.MapPath(InstallDir & "Language/Gb2312.xml"))
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")))
SoftID = Trim(Request("SoftID"))
AddType = Trim(Request("AddType"))
If Action = "" Then
Action = "Manage"
End If
If Status = "" Then
Status = 9
Else
Status = PE_CLng(Status) '软件状态 9－－所有软件，-1－－草稿，0－－待审核，1－－已审核
End If
If IsValidID(SoftID) = False Then
SoftID = ""
End If
If AddType = "" Then
AddType = 1
Else
AddType = PE_CLng(AddType)
End If
FileName = "Admin_Soft.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"))
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"
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 "ShowReplace", "DoReplace"
strTitle = strTitle & "批量修改" & ChannelShortName & "地址"
Case "Other", "SaveOther"
strTitle = strTitle & "其他管理"
Case "DownError", "ModifyDownError", "SaveModifyDownError", "DelDownError", "DelAllDownError"
strTitle = strTitle & "错误信息管理"
Case "Manage"
Select Case ManageType
Case "Check"
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, 10121)
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30' ><strong>管理导航：</strong></td><td colspan='5'>"
Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Status=9'>" & ChannelShortName & "管理首页</a> | "
Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=Add&AddType=1&ClassID=" & ClassID & "&SpecialID=" & SpecialID & "'>添加" & ChannelShortName & "</a> | "
Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=Add&AddType=3&ClassID=" & ClassID & "&SpecialID=" & SpecialID & "'>添加" & ChannelShortName & "（镜像）</a> | "
Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&ManageType=Check&Status=0'>审核" & ChannelShortName & "</a>"
If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
Response.Write " | <a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&ManageType=Special'>专题" & ChannelShortName & "管理</a>"
End If
If AdminPurview = 1 Or AdminPurview_Channel = 1 Then
Response.Write " | <a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&ManageType=Recyclebin&Status=9'>" & ChannelShortName & "回收站管理</a>"
End If
If UseCreateHTML > 0 And ObjInstalled_FSO = True Then
Response.Write " | <a href='Admin_Soft.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 = "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 & "&OnTop=" & OnTop & "&IsElite=" & IsElite & "&IsHot=" & IsHot
Select Case Action
Case "Add"
Call Add
Case "Modify", "Check"
Call Modify
Case "SaveAdd", "SaveModify"
Call SaveSoft
Case "SetOnTop", "CancelOnTop", "SetElite", "CancelElite", "SetPassed", "CancelPassed", "Reject"
Call SetProperty
Case "Show"
Call Show
Case "Del"
Call Del
Case "ConfirmDel"
Call ConfirmDel
Case "ClearRecyclebin"
Call ClearRecyclebin
Case "Restore"
Call Restore
Case "RestoreAll"
Call RestoreAll
Case "DelFile"
Call DelFile
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -