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