<!--#include file="config.asp" -->
<div class="menu">&nbsp;后台主页</div>
<!-- 主要内容开始 -->

<table width="100%" border="0" cellspacing="1" cellpadding="1">
  <tr>
      <td>开发制作：老邓 | QQ：332003288</td>
  </tr>
  <tr>
      <td>官方网站：<a href="http://www.eims.org.cn/" target="_blank">http://www.eims.org.cn/</a></td>
  </tr>
</table>


<div class="content">
  <table width="100%" border="0" cellspacing="1" cellpadding="3">
    <tr>
      <td colspan="4"><div align="left" style="color:#FF6600; font-size:14px; font-weight:bold; font-family:'微软雅黑'; margin:3px auto">服务器信息 | Server Information</div></td>
    </tr>
    <tr>
      <td>服务器操作系统：<%=Request.ServerVariables("OS")%></td>
      <td>网站信息服务软件和版本：<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
    </tr>
    <tr>
      <td>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
      <td>Jmail邮箱组件支持：
        <%
	  If Not IsObjInstalled(theInstalledObjects(13)) Then
         response.write("<font color=red>×</font>") 
      else
         response.write("<font color=red>√</font>") 
      end if
    %></td>
    </tr>
    <tr>
      <td>返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
      <td>协议的名称和版本：<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
    </tr>
    <tr>
      <td>客户端操作系统：
        <%
      dim thesoft,vOS
      thesoft=Request.ServerVariables("HTTP_USER_AGENT")
      if instr(thesoft,"Windows NT 5.0") then
	     vOS="Windows 2000"
      elseif instr(thesoft,"Windows NT 5.2") then
	     vOs="Windows 2003"
      elseif instr(thesoft,"Windows NT 5.1") then
         vOs="Windows XP"
      elseif instr(thesoft,"Windows NT") then
       	 vOs="Windows NT"
      elseif instr(thesoft,"Windows 9") then
	     vOs="Windows 9x"
      elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
	     vOs="类Unix"
      elseif instr(thesoft,"Mac") then
	     vOs="Mac"
      else
     	vOs="Other"
      end if
      response.Write(vOs)
    %></td>
      <td>FSO文本文件读写：
        <%
	On Error Resume Next
	Server.CreateObject("Scripting.FileSystemObject")
	if err=0 then 
	   response.write("<font color=red>√</font>，支持")
	else
       response.write("<font color=red>×</font>，不支持")
	end if 
	err=0
    %></td>
    </tr>
    <tr>
      <td>域名IP：http://<%=Request.ServerVariables("SERVER_NAME")%>&nbsp;/&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
      <td>虚拟路径：<%=Request.ServerVariables("SCRIPT_NAME")%></td>
    </tr>
  </table>
</div>

</body>
</html>
