<!--#include file="Include/Const.Asp" -->
<!--#include file="Include/ConnSiteData.Asp" -->
<!--#include file="Include/Version.Asp" -->
<!--#include file="CheckAdmin.Asp"-->
<%
If Request("Act") = "ClsCache" Then
    Call ClsCache()
End If


m_SQL = "select count(*) from Zqj_Members"
Set rs = conn.Execute(m_SQL)
m_UserNumber = rs(0)
rs.Close
Set rs = Nothing




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 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(13)) 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">版本： 易享客户管理系统 <%=Str_Soft_Version%></td>
    <td width="53%" class="forumRowHighlight">版权：<a href="http://host.zheyzhe.com" target="_blank">易享互联</a> 易享学习网（<a href="http://www.zheyzhe.com" target="_blank">www.zheyzhe.com</a>）</td>
  </tr>
  <tr>
    <td width="47%" class="forumRow"> 用户：<%=m_UserNumber%>人 </td>
    <td width="53%" class="forumRowHighlight">开发：张其俊</td>
  </tr>
  <tr>
    <td width="47%" class="forumRow">&nbsp;</td>
    <td width="53%" class="forumRowHighlight"> 本系统完全免费提供给大家使用，无任何收费版本。<br />
    <font color="#990000">当然，为支持本系统的发展，您还可以给我们提供适当的支助！</font> <a href="https://me.alipay.com/qijunzhang" target="_blank">我要赞助</a> &nbsp;</td>
  </tr>
</table>
<br />
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">&nbsp;</td>
  </tr>
</table>
<br />