<%@ CODEPAGE=65001 %>
<%
'///////////////////////////////////////////////////////////////////////////////
'// Z-Blog
'// 作 者: 朱煊(zx.asd)
'// 版权所有: RainbowSoft Studio
'// 技术支持: rainbowsoft@163.com
'// 程序名称:
'// 程序版本:
'// 单元名称: admin.asp
'// 开始时间: 2004.07.30
'// 最后修改:
'// 备 注: 管理页
'///////////////////////////////////////////////////////////////////////////////
%>
<% Option Explicit %>
<% On Error Resume Next %>
<% Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<%
Call System_Initialize()
'plugin node
For Each sAction_Plugin_Admin_Begin in Action_Plugin_Admin_Begin
If Not IsEmpty(sAction_Plugin_Admin_Begin) Then Call Execute(sAction_Plugin_Admin_Begin)
Next
Call CheckReference("")
Dim strAct
strAct=Request.QueryString("act")
'检查权限
If Not CheckRights(strAct) Then Call ShowError(6)
BlogTitle=ZC_BLOG_TITLE & ZC_MSG044 & ZC_MSG046
%>
<%=BlogTitle%>
<%
Select Case Request.QueryString("act")
Case "ArticleMng" Call ExportArticleList(Request.QueryString("page"),Request("cate"),Request("level"),Escape(Request("title")))
Case "CategoryMng" Call ExportCategoryList(Request.QueryString("page"))
Case "CommentMng" Call ExportCommentList(Request.QueryString("page"),Request("intContent"))
Case "TrackBackMng" Call ExportTrackBackList(Request.QueryString("page"))
Case "UserMng" Call ExportUserList(Request.QueryString("page"))
Case "FileMng" Call ExportFileList(Request.QueryString("page"))
Case "TagMng" Call ExportTagList(Request.QueryString("page"))
Case "PlugInMng" Call ExportPluginList()
Case "SiteInfo" Call ExportSiteInfo()
Case "SiteFileMng" Call ExportSiteFileList(Request.QueryString("path"),Request.QueryString("opath"))
Case "SiteFileEdt" Call ExportSiteFileEdit(Request.QueryString("path"),Request.QueryString("opath"))
Case "AskFileReBuild" Call ExportFileReBuildAsk()
Case "ThemesMng" Call ExportThemesMng()
End Select
%>
<%
'plugin node
For Each sAction_Plugin_Admin_End in Action_Plugin_Admin_End
If Not IsEmpty(sAction_Plugin_Admin_End) Then Call Execute(sAction_Plugin_Admin_End)
Next
Call System_Terminate()
If Err.Number<>0 then
Call ShowError(0)
End If
%>