www.gusucode.com > 梦想草根大联盟广告模块 build码程序 > dreamasp_unmaster/right.asp
<!-- 梦想草跟大联盟 联盟模块 欢迎加入梦想草根大联盟 http://www.dreamasp.cn 我们将致力于为草根站长服务 给草根站长创收 让草根站长能够在这片空间中继续生存 发展 有你的加入 我们会更精彩 感谢您使用我们的程序 --><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd"> <HTML xmlns="http://www.w3.org/1999/xhtml"> <HEAD> <TITLE>系统基本信息--黑闪网络管理系统</TITLE> <META http-equiv=Content-Type content="text/html; charset=gb2312"> <LINK href="images/css_body.css" type=text/css rel=stylesheet> <META content="MSHTML 6.00.3790.4275" name=GENERATOR> <style type="text/css"> <!-- body,td,th { font-size: 12px; } --> </style></head> <BODY> <DIV class=bodytitle> <DIV class=bodytitleleft></DIV> <DIV class=bodytitletxt>系统基本信息</DIV></DIV> <TABLE width="96%" border=0 align=center cellpadding="5" cellSpacing=1 class=tbtitle style="BACKGROUND: #cad9ea;"> <TBODY><TR> <TD width="20%" bgColor=#f5fafe>服务器域名/IP:</TD> <TD bgColor=#ffffff><%=Request.ServerVariables("SERVER_NAME")%></TD> </TR> <TR> <TD bgColor=#f5fafe>请求的端口:</TD> <TD bgColor=#ffffff><%=Request.ServerVariables("SERVER_PORT")%></TD> </TR> <TR> <TD bgColor=#f5fafe>脚本解释引擎:</TD> <TD bgColor=#ffffff><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></TD> </TR> <TR> <TD bgColor=#f5fafe>WEB服务器名称和版本:</TD> <TD bgColor=#ffffff><%=Request.ServerVariables("SERVER_SOFTWARE")%></TD> </TR> <TR> <TD bgColor=#f5fafe>脚本超时时间:</TD> <TD bgColor=#ffffff><%=Server.ScriptTimeout%> 秒</TD> </TR> <TR> <TD bgColor=#f5fafe>虚拟路径:</TD> <TD bgColor=#ffffff><%=Request.ServerVariables("SCRIPT_NAME")%></TD> </TR> <TR> <TD bgColor=#f5fafe>数据库使用:</TD> <TD bgColor=#ffffff><%ShowObjectInstalled("adodb.connection")%></TD> </TR> <TR> <TD bgColor=#f5fafe>FSO读写:</TD> <TD bgColor=#ffffff><%ShowObjectInstalled("Scripting.FileSystemObject")%></TD> </TR> <TR> <TD bgColor=#f5fafe>MSXML2.XMLHTTP:</TD> <TD bgColor=#ffffff><%ShowObjectInstalled("MSXML2.XMLHTTP")%></TD> </TR> <TR> <TD bgColor=#f5fafe>Adodb.Stream:</TD> <TD bgColor=#ffffff><%ShowObjectInstalled("Adodb.Stream")%></TD> </TR> </TBODY> </TABLE> <DIV class=bodytitle> <DIV class=bodytitleleft></DIV> <DIV class=bodytitletxt>关于我们</DIV></DIV> <TABLE class=tbtitle style="BACKGROUND: #cad9ea" cellSpacing=1 cellPadding=5 width="96%" align=center border=0> <TBODY> <TR> <TD vAlign=center width="20%" bgColor=#f5fafe>技术支持:</TD> <TD bgColor=#ffffff><A href="http://admin.xdyou.cn" target=_blank></a> <A href="http://www.hscms.net.cn" target=_blank>http://www.hscms.net.cn</a> <A href="http://admin.dreamasp.cn" target=_blank></a></TD> </TR> <TR align="center" bgcolor="#f5fafe"> <TD colspan="2">Copyright © 2005-2009 All rights reserved.<a href="http://www.hscms.net.cn" target="_blank">成都黑闪网络科技有限公司版权所有</a></TD> </TR> </TBODY> </TABLE> <% Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function Sub ShowObjectInstalled(strObjName) If IsObjInstalled(strObjName) Then Response.Write "<font color=green><strong>OK</strong></font>" Else Response.Write "<font color=red><strong>NO</strong></font>" End If End Sub %> </BODY></HTML>