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 &copy; 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>