<!--#include file="../inc/md5.asp"-->
<!--#include file="../conn.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>個人信息</h2>

<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">
  <tr>
    <td width="48%" class="main_top_tit">帳　　號：<font class="t5"> <%=admin25175(1)%></font></td>
    <td class="main_top_tit"> 姓　　名：<font class="t5"> <%=admin25175(2)%></font></td>
  </tr>
  <tr>
    <td class="main_top_tit">身份:管理員</td>
    <td class="main_top_tit">身份過期：<font class="t5"> <%
	If admin25175(5)=0 Then
		response.write "永久"
	elseIf admin25175(5)=1 Then
		response.write "20分鐘(瀏覽器進程)"
	else
		response.write admin25175(5)/60 & "分鐘"
	End If%> </font></td>
	
  </tr>
  <tr>
    <td class="main_top_tit">上線次數： <font class="t5"> <%=loads%></font></td>
    <td class="main_top_tit">上線時間：<font class="t5"> <%=admin25175(4)%></font></td>
  </tr>

</table>

  <h2>系統信息</h2>

<table width="100%" cellspacing="1" cellpadding="0" class="info_tab">

  <tr class="zq"> 
    <td width="48%" height="23">現在時間：<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 width="48%" height="23">服務器域名：<font class="t5"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></td>
    <td width="52%">腳本解釋引擎：<font class="t5"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
  </tr>
  <tr class="zq"> 
    <td height="23">服務器軟件的名稱：<font class="t5"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
    <td>瀏覽器版本：<font class="t5"> <%=Request.ServerVariables("Http_User_Agent")%></font></td>
  </tr>
  <tr class="zq">
    <td height="23">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 width="48%" height="23">Jmail組件支持： 
      <%If Not IsObjInstalled(theInstalledObjects(13)) Then%> <font color="red"><b>×</b></font> <%else%> <b>√</b> <%end if%> </td>
    <td width="52%">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"-->