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"> 脚本超时设置:<%=Server.ScriptTimeout%> </div> <div class="right"> 服务器IIS版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%> </div> </li> <li> <div class="left"> 客户端IP地址:<%=Request.ServerVariables("REMOTE_ADDR")%> </div> <div class="right"> 服务器操作系统:<%=Request.ServerVariables("OS")%> </div> </li> <li> <div class="left"> 服务器IP地址:<%=Request.ServerVariables("LOCAL_ADDR")%> </div> <div class="right"> 脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %> </div> </li> <li> <div class="left"> 站点物理路径:<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%> </div> <div class="right"> 服务器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"> FileUp上传组件:<%=CheckObjInstalled("FileUp.upload")%> </div> <div class="right"> FSO文本读写:<%=CheckObjInstalled("Scripting.FileSystemObject")%> </div> </li> <li> <div class="left"> 数据库使用:<%=CheckObjInstalled("adodb.connection")%> </div> <div class="right"> GflSDK组件支持:<%=CheckObjInstalled("microsoft.xmldom")%> </div> </li> <li> <div class="left"> Jmail组件支持:<%=CheckObjInstalled("JMail.SMTPMail")%> </div> <div class="right"> EasyMail邮件支持:<%=CheckObjInstalled("easymail.Mailsend")%> </div> </li> <li> <div class="left"> 无组件上传-ADODB.Stream:<%=CheckObjInstalled("ADODB.Stream")%> </div> <div class="right"> 无组件上传-Scripting.Dictionary :<%=CheckObjInstalled("Scripting.Dictionary")%> </div> </li> <li> <div class="left"> XML文档操作-microsoft.xmldom :<%=CheckObjInstalled("microsoft.xmldom")%> </div><div class="right"> 图片抓取-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> <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>