<!--#include file="cookies.asp"-->
<html>
<head>
<title>管理员页面</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc_style.css" rel="stylesheet" type="text/css">
<base target="_self">
</head>
<body text="#000000" oncontextmenu="return false" onselectstart="return false" ondragstart="return false">
<center>
<br>
<br>
<br>
<fieldset style="padding: 2; width:578; height:331"> <legend>登陆成功</legend> 
<table border=0 height='295' width=570 style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr height='100%' align=center><td width='178' height="295">
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0">
吉林信息网授予</p>
<p style="line-height: 150%; margin-top: 0; margin-bottom: 0"><font color="#FF0000"><%=title%></font>使用<br>
<img src='img/xx.gif' border=0><br><br>程序制作：<a title="给cnmai－邮件" href="mailto:cnmai@126.com">cnmai</a><br>
QQ：85717347&nbsp;
<a target="_blank" href="http://www.5h5.net" style="text-decoration: none">
<font color="#000000">5h5.net</font></a></td><td width='382' height="295">
  <table border=0 cellspacing=0 cellpadding=0 width="357" height="282" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td colspan=2 align=center bgcolor=#ffffff class=red_3 width="351" height="25">服务器的有关参数</td></tr>
  <tr><td width="108" height="12">&nbsp;服务器名：</td><td width="239" height="12">&nbsp;<%response.write Request.ServerVariables("SERVER_NAME")%></td></tr>
  <tr><td width="108" height="12">&nbsp;服务器IP：</td><td width="239" height="12">&nbsp;<%response.write Request.ServerVariables("LOCAL_ADDR")%></td></tr>
  <tr><td width="108" height="12">&nbsp;服务器端口：</td><td width="239" height="12">&nbsp;<%response.write Request.ServerVariables("SERVER_PORT")%></td></tr>
  <tr><td width="108" height="12">&nbsp;服务器时间：</td><td width="239" height="12">&nbsp;<%response.write now%></td></tr>
  <tr><td width="108" height="12">&nbsp;IIS版本：</td><td width="239" height="12">&nbsp;<%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td></tr>
  <tr><td width="108" height="12">&nbsp;服务器操作系统：</td>
    <td width="239" height="12">&nbsp;<%response.write Request.ServerVariables("OS")%></td></tr>
  <tr><td width="108" height="12">&nbsp;脚本超时时间：</td><td width="239" height="12">&nbsp;<%response.write Server.ScriptTimeout%> 秒</td></tr>
  <tr><td width="108" height="12">&nbsp;站点物理路径：</td><td width="239" height="12">&nbsp;<%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
  <tr><td width="108" height="12">&nbsp;服务器CPU数量：</td>
    <td width="239" height="12">&nbsp;<%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%> 个</td></tr>
  <tr><td width="108" height="12">&nbsp;服务器解译引擎：</td>
    <td width="239" height="12">&nbsp;<%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td></tr>
  <tr>
    <td colspan=2 align=center bgcolor=#ffffff class=red_3 width="351" height="25">组件支持有关参数</td></tr>
  <tr><td width="108" height="12">&nbsp;数据库(ADO)支持：</td>
    <td width="239" height="12">&nbsp;<%If object_install("adodb.connection")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td width="108" height="12">&nbsp;FSO文本读写：</td>
    <td width="239" height="12">&nbsp;<%If object_install("Scripting.FileSystemObject")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td width="108" height="12">&nbsp;Jmail组件支持：</td>
    <td width="239" height="12">&nbsp;<%If object_install("JMail.SMTPMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  <tr><td width="108" height="12">&nbsp;CDONTS组件支持：</td>
    <td width="239" height="12">&nbsp;<%If object_install("CDONTS.NewMail")=false Then%><font class=red><b>×</b></font> （不支持）<% else %><b>√</b> （支持）<% end if %></td></tr>
  </table>
</td></tr>
</table>
<%
Function object_install(strClassString)
  On Error Resume Next
  object_install=False
  Dim xTestObj
  Err=0
  Set xTestObj=Server.CreateObject(strClassString)
  If Err=0 Then object_install=True
  Set xTestObj=Nothing
  Err=0
End Function
%>
</fieldset>
</center>
</body>
</html>