<!--#include file="Admin.asp" -->
<!--#include file="cf.asp" -->
<!--#include file="../include/conn.asp"-->
<!--#include file="../include/config.asp"-->
<html>
<head>
<link href="../include/css.css" type=text/css rel=stylesheet>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<title>！！！</title>
<style type="text/css">
<!--
.STYLE2 {color: #181818}
-->
</style>
</head>

<body >
<table width="95%" align="center">
   <tr>
    <td width="100%" bgcolor="666666" colspan="4" height="31px" align="center"><font color="#FFFFFF">欢迎访问：<%=Copyright%></font></td>   
  </tr>
</table>
<table width="95%" height="115"  border="0" align="center" cellpadding="5" cellspacing="1">

  <tr>
    <td width="20%" bgcolor="#F6F6F6"><span class="STYLE2">服务器名：</span></td>
    <td width="23%" bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("SERVER_NAME")%></span></td>
    <td width="22%" bgcolor="#F6F6F6"><span class="STYLE2">服务器IP：</span></td>
    <td width="35%" bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("LOCAL_ADDR")%></span></td>
  </tr>
  <tr>
    <td bgcolor="#F6F6F6"><span class="STYLE2">服务器端口：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("SERVER_PORT")%></span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2">服务器时间：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2"><%=now%></span></td>
  </tr>
  <tr>
    <td bgcolor="#F6F6F6"><span class="STYLE2">本文件绝对路径：</span></td>
    <td colspan="3" bgcolor="#F6F6F6"><span class="STYLE2"><%=server.mappath(Request.ServerVariables("SCRIPT_NAME"))%></span></td>
  </tr>
  <tr>
    <td bgcolor="#F6F6F6"><span class="STYLE2">服务器操作系统：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("OS")%></span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2">服务器CPU数量：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></span></td>
  </tr>
  <tr>
    <td bgcolor="#F6F6F6"><span class="STYLE2">客户端IP：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("REMOTE_ADDR")%></span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2">端口：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2"><%=Request.ServerVariables("REMOTE_PORT")%></span></td>
  </tr>
 
  <tr bgcolor="#F6F6F6">
    <td><span class="STYLE2">FSO组件支持：</span></td>
    <td bgcolor="#F6F6F6"><span class="STYLE2">
      <%If IsObjInstalled("Scripting.FileSystemObject") then%>
      FSO支持
      <%else%>
      不支持FSO组件
      <%end if%>
      <%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
%>
    </span></td>
    <td><span class="STYLE2">CDONTS邮箱组件支持：</span></td>
    <td><span class="STYLE2">
      <%If IsObjInstalled("CDONTS.NewMail") then%>
      CDONTS邮箱组件支持
      <%else%>
      不支持CDONTS邮箱组件
      <%end if%>
    </span></td>
  </tr>
</table>
</body>
</html>