www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Admin_Index_Main.asp

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Ex_Cls/Ex_CommonCls.asp"-->
<!--#include file="Ex_Cls/Ex_XmlCls.asp"-->
<!--#include file="Ex_Cls/Ex_FsoCls.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>易心博客后台管理首页</title>
<link rel="stylesheet" href="Admin_Style.css">
<style type="text/css">
<!--
#Exblog {
	position:absolute;
	width:531px;
	height:231px;
	z-index:1;
	left: 8px;
	top: 17px;
	visibility: hidden;
	overflow: auto;
}
#main_content {
}
-->
</style>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<%
Dim ExComm,ExFso,ExXml
Set ExXml=new Ex_XmlCls
Set ExComm=new Ex_CommonCls
Set ExFso=new Ex_FsoCls
ExComm.IsAdLogin 
ExComm.IsIpAllow
If InStr(Application(Sn&"WaitHtml"),"#0*0$")<>0 Then 
	Conn.Execute "update Ex_Config set WaitHtml=''"
End If 
%>
<div id="Exblog">
</div>
<br>
<table width="98%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr align="center">
    <td width="300" height=25 class="topbg"><div align="left"><strong>易心博客用户后台管理首页</strong></div>
</tr>
<tr align="center">
    <td height=25 class="tdbg"><strong>快捷管理: </strong><a href="admin_log.asp?action=addform"><font color="#FF0000">发表新日志</font></a> 
      | <a href="admin_log.asp?action=show">日志管理</a> | <a href="admin_Cmt.asp?action=show">评论管理</a> 
      | <a href="admin_msg.asp?action=show">留言管理</a> | <a href="admin_RefreshCache.asp?t=data">更新BLOG数据</a></tr>
</table>
<br>
<table width="98%" border="0" align=center cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr align="center">
    <td height=25 class="topbg"><strong><div id="main_top_title">易心博客 帮 助</div></strong> </tr>
  <tr>
	<td height=23 class="tdbg">
		<div id="main_top_content">
			<ul class="ul" id="recommendLog">
				<li>
					1、发表日志请少用复杂的表格和htm语法,以免引起版面错乱。
				</li>
				<li>
					2、模板修改前最好作好备份。一些复杂的模板修改,可以先把html代码复制到frontpage等编辑器中修改
				</li>
				<li>
					3、若blog的日志,评论,留言数不准,请使用更新blog数据功能重新计算。
				</li>
				<li>
					4、若上传图片或文件功能不正常,请检查上传空间是否已经满、设定的上传文件格式是否正确。
				</li>
				<li>
					5、本程序部分功能需要fso组件的支持。如果没有fso组件,这部分功能将受到影响。但并不影响其它功能的使用。
				</li>
				<li>
					6、本程序使用了html编辑器。使用本博客程序最好使用IE5.0以上或腾讯浏览器,否则可能无法运行。(调试通过 myie 、GreenBrowser) 
				</li>
			</ul>
		</div>
	</td>
  </tr>
</table>
<div align="center">
   <table width="98%" border="0" align="center"  cellspacing="1" bgcolor="#FFFFFF" class="border">
  <tr>
    <td class="topbg" height="20"><center><strong><div id="main_middle_title">服务器基本信息</div><strong></center></td>
    </tr>
  <tr>
  <td class="tdbg">
  	<div id="main_middle_content">
   		 <ul class="ul" id="recommendSkin">
				<li>
					<div class="left">
					&nbsp;脚本超时设置:<%=Server.ScriptTimeout%>
					</div>
					<div class="right">
					&nbsp;服务器IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;客户端IP地址:<%=Request.ServerVariables("REMOTE_ADDR")%>
					</div>
					<div class="right">
					&nbsp;服务器操作系统:<%=Request.ServerVariables("OS")%>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;服务器IP地址:<%=Request.ServerVariables("LOCAL_ADDR")%>
					</div>
					<div class="right">
					&nbsp;脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;站点物理路径:<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%>
					</div>
					<div class="right">
					&nbsp;服务器CPU数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>
					</div>
				</li>
			</ul>
	</div>
	</td>
  </tr>
  
  <tr>
    <td class="topbg" height="20"><CENTER><b><div id="main_bottom_title">服务器组件安装情况</div></b></CENTER></td>
    </tr>
   <tr>
  <td class="tdbg">
  	<div id="main_bottom_content">
   <ul class="ul" id="recommendPlugin">
				<li>
					<div class="left">
					&nbsp;FileUp上传组件:<%=CheckObjInstalled("FileUp.upload")%>
					</div>
					<div class="right">
					&nbsp;FSO文本读写:<%=CheckObjInstalled("Scripting.FileSystemObject")%>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;数据库使用:<%=CheckObjInstalled("adodb.connection")%>
					</div>
					<div class="right">
					&nbsp;GflSDK组件支持:<%=CheckObjInstalled("microsoft.xmldom")%>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;Jmail组件支持:<%=CheckObjInstalled("JMail.SMTPMail")%>
					</div>
					<div class="right">
					&nbsp;EasyMail邮件支持:<%=CheckObjInstalled("easymail.Mailsend")%>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;无组件上传-ADODB.Stream:<%=CheckObjInstalled("ADODB.Stream")%>
					</div>
					<div class="right">
					&nbsp;无组件上传-Scripting.Dictionary :<%=CheckObjInstalled("Scripting.Dictionary")%>
					</div>
				</li>
				<li>
					<div class="left">
					&nbsp;XML文档操作-microsoft.xmldom :<%=CheckObjInstalled("microsoft.xmldom")%>
					</div><div class="right">&nbsp;图片抓取-Msxml2.ServerXMLHTTP:<%=CheckObjInstalled("Msxml2.ServerXMLHTTP")%></div>
				</li>
			</ul>
		</div>
	</td>
  </tr>
  
</table>
<%
Function CheckObjInstalled(strClassString)
	On Error Resume Next
	Dim Temp
	Err = 0
	Dim TmpObj
	Set TmpObj = Server.CreateObject(strClassString)
	Temp = Err
	IF Temp = 0 OR Temp = -2147221477 Then
		CheckObjInstalled= "<font color=""#00FF00""><b>√</b></font>"
	ElseIF Temp = 1 OR Temp = -2147221005 Then
		CheckObjInstalled="<font color=""#FF0000""><b>×</b></font>"
	End IF
	Err.Clear
	Set TmpObj = Nothing
	Err = 0
End Function
%>
</div>
<br>
&nbsp;&nbsp;<FONT SIZE="2" COLOR="#FF0000">易心博客 美观 安全 便捷 我们的追求。
<script src="http://bbs.ex123.net/BlogOnlineServer/recommend/?t=log"></script>
<script src="http://bbs.ex123.net/BlogOnlineServer/recommend/?t=skin"></script>
<script src="http://bbs.ex123.net/BlogOnlineServer/recommend/?t=plugin"></script>
<script src="http://bbs.ex123.net/BlogOnlineServer/recommend/Update.php?v=<%=Application(Sn&"version")%>"></script>
<div>
<%
Response.Flush()
Function GetVersion()
	If Trim(Application(Sn&"version"))="" Then 
		ExComm.GetConfigCache("version")
	End If 
	GetVersion=Split(Application(Sn&"version"),"Bulid")(0)
End Function 
On Error Resume Next 
Dim Temp,I,DataUrl
	Temp=ExComm.GetServerData("http://www.ex123.net/BlogOnlineServer/Update/Info/"&GetVersion&".Xml")
	ExFso.CreateFile "Temp/TempUpdateList.ExZip",Temp
	ExXml.letFilePath="Temp/TempUpdateList.ExZip"
	DataUrl=ExXml.getNodeValue(Replace(LCase(Application(Sn&"Version")),LCase(GetVersion),""))
	If Trim(DataUrl)<>"" And Err.number=0 Then 
		Response.Write("<script>if(confirm('发现有新升级程序,是否要升级?'))document.location='Admin_Online.Asp?action=update';</script>")
	End If 
%>
</div>
</body>
</html>