<!--#include file="../Inc/Consts.inc" -->
<!--#include file="../Inc/common.Asp" -->
<!--#include file="../Inc/strfunc.Asp" -->
<!--#include file="../Inc/sharefunc.Asp" -->

<!--#include file="CheckAdmin.Asp"-->
<%
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Dim theInstalledObjects(19)
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) = "MSWC.PermissionChecker"
theInstalledObjects(7) = "WScript.Shell"
theInstalledObjects(8) = "ADODB.Stream"
theInstalledObjects(9) = "Scripting.Dictionary"
theInstalledObjects(10) = "Adodb.Connection"
theInstalledObjects(11) = "Scripting.FileSystemObject"
theInstalledObjects(12) = "SoftArtisans.FileUp"
theInstalledObjects(13) = "SoftArtisans.FileManager"
theInstalledObjects(14) = "JMail.Message"
theInstalledObjects(15) = "CDONTS.NewMail"
theInstalledObjects(16) = "Persits.MailSender"
theInstalledObjects(17) = "Persits.Jpeg"
theInstalledObjects(18) = "Persits.Upload.1"
theInstalledObjects(19) = "w3.upload"
Function CountID(byval DataFrom,byval Viewflag)
Dim rs,sql
sql="select count(ID) from ["&Datapre&"_"&DataFrom&"]"
if Viewflag=1 then sql=sql&" where Viewflag=1 "
set rs=db(sql,2)
CountID=0
if not rs.eof then CountID=rs(0)
rs.close:set rs=nothing
End function
If Request("Act") = "ClsCache" Then Call ClsCache()
Dim rs,sql

Function IsObjInstalled(strClassString)
    On Error Resume Next
    IsObjInstalled = False
    Err = 0
    Dim xTestObj
    Set xTestObj = CreateObject(strClassString)
    If Err.Number = 0 Then IsObjInstalled = True
    Set xTestObj = Nothing
    Err = 0
End Function

Sub ShowObjectInstalled(strObjName)
    If IsObjInstalled(strObjName) Then
        response.Write "<font color=""red""><b>√</font>"
    Else
        response.Write "<font color=""red""><b>×</b></font>"
    End If
End Sub
%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" href="Images/Admin_style.css">
<br />
<table width="95%" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
  <tr>
    <th height="24">【SsCMS 如果您有好的意见或建议请Email:qtwebs@163.com程序探针】</td>
  </tr>
  <tr>
    <td class="forumrow"> 程序使用服务器环境要求（关键部分）： <br>
      1、支持ASP：<font color="green"><b>√</b></font> 2、支持FSO：
      <%
	On Error Resume Next
	Server.CreateObject("Scripting.FileSystemObject")
	if err=0 then 
	   response.write("<font color=green><b>√</b></font>")
	else
       response.write("<font color=red><b>×</b></font>")
	end if 
	err=0
    %>
      3、支持ACCESS数据库：
      <%
	On Error Resume Next
	Server.CreateObject("adodb.connection")
	if err=0 then 
	   response.write("<font color=green><b>√</b></font>")
	else
       response.write("<font color=red><b>×</b></font>")
	end if 
	err=0
    %>
      <br>
    如果以上3条都显示<font color="green"><b>√</b></font>,说明您的服务器支持此程序。</td>
  </tr>
</table>
<br>
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
  <tr>
    <th height="22" colspan="2" sytle="line-height:150%">【系统信息】</th>
  </tr>
  <tr>
    <td width="47%" class="forumRow">服务器类型：<%=Request.ServerVariables("OS")%>(IP：<%=Request.ServerVariables("local_addr")%>)</td>
    <td width="53%" class="forumRowHighlight">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
  </tr>
  <tr>
    <td class="forumRow">站点物理路径：<%=request.ServerVariables("APPL_PHYSICAL_PAth")%></td>
    <td class="forumRowHighlight">CDONTS组件：<%
On Error Resume Next
Server.CreateObject("CDONTS.NewMail")
If Err = 0 Then
    response.Write("<b><font color=""red"">√</font></b>")
Else
    response.Write("<b><font color=""red"">×</font></b>")
End If
Err = 0
%>
      Jmail邮箱组件：<%
If Not IsObjInstalled(theInstalledObjects(14)) Then
    response.Write("<b><font color=""red"">×</font></b>")
Else
    response.Write("<b><font color=""red"">√</font></b>")
End If
%></td>
  </tr>
  <tr>
    <td class="forumRow">FSO文本读写：<%ShowObjectInstalled("scripting.filesystemobject")%></td>
    <td class="forumRowHighlight">脚本超时时间：<%=Server.ScriptTimeout%>秒</td>
  </tr>
  <tr>
    <td class="forumRow">客户端操作系统：<%
Dim thesoft, vOS
thesoft = Request.ServerVariables("HTTP_USER_AGENT")
If InStr(thesoft, "Windows NT 5.0") Then
    vOS = "Microsoft Windows 2000"
ElseIf InStr(thesoft, "Windows NT 5.2") Then
    vOs = "Microsoft Windows 2003"
ElseIf InStr(thesoft, "Windows NT 5.1") Then
    vOs = "Microsoft Windows XP"
ElseIf InStr(thesoft, "Windows NT") Then
    vOs = "Microsoft Windows NT"
ElseIf InStr(thesoft, "Windows 9") Then
    vOs = "Microsoft Windows 9x"
ElseIf InStr(thesoft, "unix") Or InStr(thesoft, "linux") Or InStr(thesoft, "SunOS") Or InStr(thesoft, "BSD") Then
    vOs = "类Unix"
ElseIf InStr(thesoft, "Mac") Then
    vOs = "Mac"
Else
    vOs = "Other"
End If
response.Write(vOs)
%></td>
    <td class="forumRowHighlight">返回服务器处理请求的端口：<%=Request.ServerVariables("SERVER_PORT")%></td>
  </tr>
</table>
<br />
<table class="tableBorder" width="95%" border="0" align="center" cellpadding="5" cellspacing="1">
  <tr>
    <th height="22" colspan="2" sytle="line-height:150%">【版本信息】</th>
  </tr>
  <tr>
    <td width="47%" class="forumRow">SsCMS <%=CMS_Version%> 如果您有好的意见或建议请Email:qtwebs@163.com </td>
    <td width="53%" class="forumRowHighlight">程序Ver1.3 编写：晴天</td>
  </tr>
  <tr>
    <td width="47%" class="forumRow">管 理 员：<%=countID("Admin",0)%>个  留言：<%=countID("Message",0)%>(已审<%=countID("Message",1)%>条) 应聘信息：<%=countID("Talents",0)%>条</td>
    <td width="53%" class="forumRowHighlight">单页信息：<%=countID("About",0)%>条 </td>
  </tr>
  <tr>
    <td width="47%" class="forumRow">新闻动态：<%=countID("News",0)%>条 产品信息：<%=countID("Products",0)%>条</td>
    <td width="53%" class="forumRowHighlight">&nbsp;</td>
  </tr>
</table>
<br />


<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">Copyright (c) 2012 <a href="http://www.xxzwz.com" title="晴天-学习着网站" target="_blank"><font face="Verdana, arial, helvetica, sans-serif" size="1"><b><font color="#CC0000">www.xxzwz.com</font></b></font></a> All Rights Reserved.</td>
  </tr>
</table>
<br />
<%
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>