<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'**   版权所有：烈火工作室  演示网站http://www.strongfire.cn   **
'**   QQ:839225572   邮箱：strongfire2008@163.com              **
'**   非正版用户不得擅自非法修改用于商业用途！查出必究。       **
'****************************************************************
%>
<!--#include file="islogin.asp"-->
<!--#include file="Check_SqlIn.asp"-->
<!--#include file="admin_conn.asp"-->

<html>
<head>
<LINK href="admin_Css.css" type=text/css rel=stylesheet>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>修改信息列表</title>

<style type="text/css">
<!--
.STYLE1 {
	font-size: 14px;
	color: #0000FF;
	font-weight: bold;
}
-->
</style>
</head>


<body>
<div align="center">
  
  <table border="0" cellspacing="1" align="center" class="list">
    <tr>
      <th colspan="2"><div align="center" >服务器有关参数</div></th>
    </tr>
	
	

    <tr>
      <td width="115" ><div align="left"> &nbsp;服务器名</div>
      <div align="center"></div></td>
      <td width="448" >&nbsp;<%=Request.ServerVariables("SERVER_NAME")%></td>
    </tr>
    <tr>
      <td >&nbsp;服务器IP</td>
      <td >&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
    </tr>
    <tr>
      <td >&nbsp;服务器端口</td>
      <td >&nbsp;<%=Request.ServerVariables("SERVER_PORT")%></td>
    </tr>
    <tr>
      <td >&nbsp;服务器时间</td>
      <td >&nbsp;<%=now%></td>
    </tr>
    <tr>
      <td >&nbsp;IIS版本</td>
      <td >&nbsp;<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
    </tr>
    <tr>
      <td >&nbsp;脚本超时时间</td>
      <td >&nbsp;<%=Server.ScriptTimeout%> 秒</td>
    </tr>
    <tr>
      <td >&nbsp;服务器CPU数量</td>
      <td >&nbsp;<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个</td>
    </tr>
    <tr>
      <td >&nbsp;服务器解译引擎</td>
      <td >&nbsp;<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
    </tr>
    <tr>
      <td>&nbsp;服务器操作系统</td>
      <td >&nbsp;<%=Request.ServerVariables("OS")%></td>
    </tr>
    <tr>
      <td >&nbsp;FSO读写</td>
      <td >&nbsp;
        <%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%>
        <%if IsObjInstalled("Scripting.FileSystemObject") then response.write ("<font color=""#fc0000"">已安装</font>") else response.write ("未安装") end if%></td>
    </tr>
    <tr>
      <td >&nbsp;程序制作</td>
      <td ><span class="table_td2">&nbsp;版权所有：<a href="http://www.strongfire.cn" style="color:#fc0000" >烈火工作室</a> <STRONG>QQ</STRONG>:839225572(火烈鸟)<STRONG> mail</STRONG>:strongfire2008@163.com<br>
&nbsp;演示网址：<a href="http://www.strongfire.cn" style="color:#fc0000" >http://www.strongfire.cn</a> 最新版本请关注本站 <br>
&nbsp;有需要此系统的静态商业版用户请与我们联系 <br>
&nbsp;烈火工作组承接：网站制作、动态网站静态化转换 </span></td>
    </tr>
    
    <tr>
      <td colspan="2" ><div align="center"></div>        </td>
    </tr>
  </table>
  <p><br>
  </p>
</div>
</body>

</html>
