<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="admin_page_top.asp"-->
<%
Login_Judge
dim lastdate,loads,appellation,station,addtime
Dim theInstalledObjects(17)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"    
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"

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


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

''''''''''''''''''''''''''''''
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
''''''''''''''''''''''''''''''
%>
<!--#include file="admin_page_footer.asp"-->