中间件编程

开发平台：
HTML/CSS

admin.asp：源码内容
							<%@ 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 %>
<!-- #include file="../c_option.asp" -->
<!-- #include file="../function/c_function.asp" -->
<!-- #include file="../function/c_function_md5.asp" -->
<!-- #include file="../function/c_system_lib.asp" -->
<!-- #include file="../function/c_system_base.asp" -->
<!-- #include file="../function/c_system_event.asp" -->
<!-- #include file="../function/c_system_manage.asp" -->
<!-- #include file="../function/c_system_plugin.asp" -->
<!-- #include file="../plugin/p_config.asp" -->
<%
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
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
	<meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
	<link rel="stylesheet" rev="stylesheet" href="../CSS/admin.css" type="text/css" media="screen" />
	<script language="JavaScript" src="../script/common.js" type="text/javascript"></script>
	<link rel="stylesheet" href="../CSS/jquery.bettertip.css" type="text/css" media="screen">
	<script language="JavaScript" src="../script/jquery.bettertip.pack.js" type="text/javascript"></script>
	<script language="JavaScript" src="../script/jquery.textarearesizer.compressed.js" type="text/javascript"></script>
	<title><%=BlogTitle%></title>
</head>
<body>
<script type="text/javascript">
	$(function(){
		BT_setOptions({openWait:250, closeWait:0, cacheEnabled:true});
	})
</script>
			<div id="divMain">
<%
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
%>
			</div>
<script>
$(document).ready(function(){ 
	//斑马线
	var tables=document.getElementsByTagName("table");
	var b=false;
	for (var j = 0; j < tables.length; j++){
		var cells = tables[j].getElementsByTagName("tr");
		cells[0].className="color1";
		for (var i = 1; i < cells.length; i++){
			if(b){
				cells[i].className="color2";
				b=false;
			}
			else{
				cells[i].className="color3";
				b=true;
			};
		};
	}
	$('textarea.resizable:not(.processed)').TextAreaResizer();
	$('iframe.resizable:not(.processed)').TextAreaResizer();
});
</script>
</body>
</html>
<%
'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
%>

						