<%@language=vbscript codepage=936%>
<%
Dim theInstalledObjects(18)
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"
theInstalledObjects(18) = "Persits.Jpeg"
%>
<%

		IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") '如果客户端使用了代理服务器,得到真正IP地址
		If IP = "" Then IP=Request.ServerVariables("REMOTE_ADDR") '如果没用使用代理服务器,得到真正IP地址
		info=request.servervariables("http_user_agent") '得到用户HTTP设备的变量,如:你使用的IE浏览器版本,还有你的机器名和操作系统

%>
<!--#include file="inc/head.asp"-->
<table width="95%"  border="1" bordercolor="#A5B6D6" align="center" cellpadding="0" cellspacing="2">
  <tr>
    <td class="back_southidc" colspan="2" height="25" align="center"><b>管理快捷方式</b></td>
  </tr>
  <tr class="tr_southidc">
    <td width="20%" height="23">快捷功能链接</td>
    <td width="80%" height="23"><a href="http://www.456vv.com"><font color="000000">系统帮助</font></a>
    </td>
  </tr>
</table>
<br>
<br>
<table width="95%"  border="1" bordercolor="#A5B6D6"  align="center" cellpadding="0" cellspacing="2">
  <tr>
    <td class="back_southidc" colspan="2" height="25" align="center"><b>系统信息</b></td>
  </tr>
  <tr class="tr_southidc">
    <td width="48%" height="23">用户名：<font class="t4"> <%=Session("AdminName")%></font></td>
    <td width="52%"> 现在的 IP：<font class="t4"> <%= IP%></font> / 上次的 IP<font class="t4"> <%=session("LastLoginIP")%></font></td>
  </tr>
  <tr class="tr_southidc">
    <td width="48%" height="23">身份过期：<font class="t4"><%=Session.timeout%> 分钟</font></td>
    <td width="52%">现在时间：<font class="t4"> <%=year(now())%>年<%=month(now())%>月<%=day(now())%>日<%=hour(now())%>:<%=minute(now())%></font></td>
  </tr>
  <tr class="tr_southidc">
    <td width="48%" height="23">上线次数： <font class="t4"><%=session("sum")%></font></td>
    <td width="52%">本次上线时间：<font class="t4"> <%=now()%></font> / 上次上线时间：<font class="t4"> <%=session("LastLoginTime")%></font></td>
  </tr>
  <tr class="tr_southidc">
    <td width="48%" height="23">服务器域名：<font class="t4"> <%=Request.ServerVariables("server_name")%> / <%=Request.ServerVariables("Http_HOST")%></font></td>
    <td width="52%">脚本解释引擎：<font class="t4"> <%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></font></td>
  </tr>
  <tr class="tr_southidc">
    <td height="23">服务器软件的名称：<font class="t4"> <%=Request.ServerVariables("SERVER_SOFTWARE")%></font></td>
    <td>浏览器版本：<font class="t4"> <%=Request.ServerVariables("Http_User_Agent")%></font></td>
  </tr>
  <tr class="tr_southidc">
    <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="tr_southidc">
    <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>
<br>
<br>
<table width="95%" align="center"  border="1" bordercolor="#A5B6D6"  cellpadding="0" cellspacing="2">
	<tr class="tr_southidc">

    <td class="back_southidc" colspan="2" height="25" align="center">网站管理系统</td>
	</tr>
	<tr class="tr_southidc">

    <td width="20%" height="19">产品开发</td>

    <td width="80%">网站管理系统</td>
	</tr>
	<tr class="tr_southidc">

    <td width="20%" height="17">系统版权</td>

    <td width="80%">456vv</td>
	</tr>
	<tr class="tr_southidc">
		<td width="20%" height="23">联系方法</td>
    <td width="80%">
      www.456vv.com&nbsp;&nbsp;&nbsp;客服QQ:<font color="#FF0000"><a target="_blank" title="QQ" href="http://wpa.qq.com/msgrd?V=1&Uin=276846259&Site=&Menu=yes">276846259 </a> </font></td>
	</tr>
</table>
<BR>

<%
discreteness
sub discreteness
%>
<table width="95%" align="center"  border="1" bordercolor="#A5B6D6" cellpadding="0" cellspacing="2">
<tr class=back_southidc>
<td width="57%" height="25">&nbsp;组件名称</td><td width="41%" height="25">支持及版本</td>
</tr>
<%

For i=0 to 18
Response.Write "<TR class=td_southidc><TD>&nbsp;" & theInstalledObjects(i) & "<font color=888888>&nbsp;"
select case i
case 8
Response.Write "(ACCESS 数据库)"
case 9
Response.Write "(FSO 文本文件读写)"
case 10
Response.Write "(SA-FileUp 文件上传)"
case 11
Response.Write "(SA-FM 文件管理)"
case 12
Response.Write "(JMail 邮件发送)"
case 13
Response.Write "(WIN虚拟SMTP 发信)"
case 14
Response.Write "(ASPEmail 邮件发送)"
case 15
Response.Write "(LyfUpload 文件上传)"
case 16
Response.Write "(ASPUpload 文件上传)"
case 17
Response.Write "(w3 upload 文件上传)"
end select
Response.Write "</font></td><td height=25>"
If Not IsObjInstalled(theInstalledObjects(i)) Then
Response.Write "<font color=red><b>×</b></font>"
Else
Response.Write "<b>√</b> " & getver(theInstalledObjects(i)) & ""
End If
Response.Write "</td></TR>" & vbCrLf
Next
%>
</table>
<%
end sub


''''''''''''''''''''''''''''''
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
''''''''''''''''''''''''''''''
Function getver(Classstr)
On Error Resume Next
getver=""
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(Classstr)
If 0 = Err Then getver=xtestobj.version
Set xTestObj = Nothing
Err = 0
End Function

%>

