admin_main_inc.asp

da jia lai kan kan hao dong dong

<%

''''''''''''''''''''''''''''''
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
''''''''''''''''''''''''''''''

Sub adminuserinfo()
%>
<h2><b>个人信息</b></h2>
<table width="100%" cellspacing="0" cellpadding="0" class="info_tab2">
  <tr class="zq">
    <td width="48%">帐　　号：<font class="t5"> <%=admin25175(1)%></font></td>
    <td width="52%"> 姓　　名：<font class="t5"> <%=admin25175(2)%></font></td>
  </tr">
  <tr class="zq">
    <td>身　　份：管理员</td>
    <td>身份过期：<font class="t5"><%=admin25175_time%> </font></td>
  </tr>
  <tr class="zq">
    <td>上线次数： <font class="t5"> <%=loads%></font></td>
    <td>上线时间：<font class="t5"> <%=admin25175(4)%></font></td>
  </tr>
</table>
<%
End Sub 
Sub configinfo()
%>
<h2><b>系统信息</b></h2>
<table width="100%" cellspacing="0" cellpadding="0" class="info_tab2">

  <tr class="zq"> 
    <td width="48%">现在时间：<font class="t5"> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></font></td>
    <td width="52%">IP：<font class="t5"> <%=Request.ServerVariables("REMOTE_ADDR")%></font></td>
  </tr>
  <tr class="zq"> 
    <td>服务器域名：<font class="t5"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></td>
    <td>返回服务器处理请求的端口：<%=Request.ServerVariables("APPL_MD_PATH")%></td>
  </tr>
	 <tr class="zq"> 
    <td>脚本解释引擎：<font class="t5"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
    <td>脚本超时时间：<%=Server.ScriptTimeout%>秒</td>
  </tr>
	 <TR class="zq">   
			<TD>服务器操作系统：<%=Request.ServerVariables("OS")%></TD>   
			<TD>服务器CPU数量：<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个</TD></TR>   
  <tr class="zq"> 
    <td>服务器软件的名称：<font class="t5"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
    <td> </td>
  </tr>
  <tr class="zq">
    <td>FSO文本读写： 
      <%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
      <font color="red"><b>×</b></font> 
      <%else%>
      <b>√</b> 
      <%end if%>    </td>
    <td>数据库使用： 
      <%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
      <font color="red"><b>×</b></font> 
      <%else%>
      <b>√</b> 
      <%end if%>    </td>
  </tr>
  <tr class="zq"> 
    <td>Jmail组件支持： 
      <%If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td>
    <td>CDONTS组件支持： 
      <%If Not IsObjInstalled(theInstalledObjects(14)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td>
  </tr>
</table>
<%
End Sub 
%>