<!-- #include file=conn.asp --><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
table { font-size: 12px;}

--></style>
</head>
<body leftmargin="0" topmargin="3">
<table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="f7f7f7" class="border-all">
  <tr> 
    <th colspan="2"><p>&nbsp;</p>
      <p>后台管理系统</p>
      <p>当前用户：<%=Session("Adminname")%> 当前IP：<%=Request.ServerVariables("REMOTE_ADDR")%>  </p>
      <p>&nbsp;</p></th>
  </tr>
  <tr class="table_row_1"> 
    <td width="50%">服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
    <td width="50%">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr> 
    <td>站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
    <td>数据库使用：<%=testObject("Adodb.Connection")%> <font style='color:red;font-weight:bold'>必须</font> 
    </td>
  </tr>
  <tr class="table_row_1"> 
    <td>ADODB.Stream：<%=testObject("ADODB.Stream")%><font style='color:red;font-weight:bold'> 
      必须</font></td>
    <td>Microsoft.XMLDOM：<%=testObject("Microsoft.XMLDOM")%> <font style='color:red;font-weight:bold'>必须</font> 
    </td>
  </tr>
  <tr> 
    <td>Microsoft.XMLHTTP：<%=testObject("Microsoft.XMLHTTP")%> 可选</td>
    <td>FSO文本读写：<%=testObject("Scripting.FileSystemObject")%> 
      可选</td>
  </tr>
  <tr class="table_row_1"> 
    <td>JMail.Message：<%=testObject("JMail.Message")%> 可选 </td>
    <td>LyfUpload.UploadFile：<%=testObject("LyfUpload.UploadFile")%> 可选</td>
  </tr>
  <tr> 
    <td colspan="2"> <font style='color:red;font-weight:bold'>√</font> 表示支持该组件<br>
      <b>×</b> 表示不支持<br>
    "必须" 表示没有此组件将不能正常运行<br></td>
  </tr>
</table>
</body>
</html><%
Function testObject(str)
    On Error Resume Next
    Dim TestObj
    Set TestObj = Server.CreateObject(str)
    If Err.Number<>-2147221005 Then
	    testObject="<font style='color:red;font-weight:bold'>√</font>"
	Else
	    testObject="<b>×</b>"
	End If
    Set TestObj = Nothing
    Err.Clear
End Function
%>

