<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/Const.asp" -->
<%
Function testObject(str)
On Error Resume Next
testObject = False
Err = 0
Dim TestObj
Set TestObj = Server.CreateObject(str)
If 0 = Err Then testObject = True
Set TestObj = Nothing
Err = 0
End Function

Function GetFileSize(file)
   Dim fso,fs,GetFile
   On Error Resume Next
   Set Fso = Server.createobject("scripting.filesystemobject")
   Set GetFile=fso.getfile(server.mappath(file))
   GetFileSize=GetFile.size
   Set getfile=nothing
   Set fso=nothing
End Function
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Style.css" rel="stylesheet" type="text/css">
</head>

<BODY bgcolor="D6DFF7" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td> <br>
      <strong>欢迎光临 <%=Site_Info(0)%> 管理控制面板</strong> </td>
  </tr>
</table>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr> 
      <th height=21 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>数据库使用： 
        <%If Not testObject("adodb.connection") Then%>
        <font color="#FF3300"><b>×</b></font> 
        <%else%>
        <b><font color="#FF3300">√</font></b> 
        <%end if%>
      </td>
    </tr>
    <tr> 
      <td class=forumRow>FSO文本读写： 
        <%If Not testObject("scripting.filesystemobject") Then%>
        <b><font color="#FF0000">×</font></b> 
        <%else%>
        <b><font color="#FF0000">√</font></b> 
        <%end if%>
      </td>
      <td class=forumRowHighlight><a href="Admin_Check.asp"><u>详细信息</u></a></td>
    </tr>
  </tbody>
</table>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr> 
      <th height=21 colspan="2" sytle="line-height:150%">【数据统计】</th>
    </tr>
    <tr> 
      <td width="47%"  class=forumRow>个人用户：
        <%
		m_SQL = "SELECT Count(*) FROM person "
		Set rst = conn.Execute(m_SQL)
		Response.write rst(0)
		rst.Close
		%>      </td>
      <td width="53%"  class=forumRowHighlight>数据库大小：<b><font color="#FF0000"><%=GetFileSize(DBPath)/1024&" KB"%></font></b> 
      </td>
    </tr>
    <tr> 
      <td class=forumRow>企业用户：
      <%
		m_SQL = "SELECT Count(*) FROM company "
		Set rst = conn.Execute(m_SQL)
		Response.write rst(0)
		rst.Close
		%></td>
      <td class=forumRowHighlight>栏目数量：<b></b><b> <span class="forumRow">
        <%
		m_SQL = "SELECT Count(*) FROM jy_newsCategory "
		Set rst = conn.Execute(m_SQL)
		Response.write rst(0)
		rst.Close
		%>
      </span>        <span class="forumRow">        </span>        </b> </td>
    </tr>
    <tr> 
      <td class=forumRow>后台会员：        
      <%
		m_SQL = "SELECT Count(*) FROM jy_admin "
		Set rst = conn.Execute(m_SQL)
		Response.write rst(0)
		rst.Close
		%></td>
      <td class=forumRowHighlight><span class="forumRow">友情连接：          <b>
        <%
		m_SQL = "SELECT Count(*) FROM jy_friendLink "
		Set rst = conn.Execute(m_SQL)
		Response.write rst(0)
		rst.Close
		%>
      </b> </span></td>
    </tr>
    <tr> 
      <td class=forumRow>共有文章：<b></b>        <%
		m_SQL = "SELECT Count(*) FROM jy_news "
		Set rst = conn.Execute(m_SQL)
		Response.write rst(0)
		rst.Close
		%></td>
      <td class=forumRowHighlight>&nbsp;</td>
    </tr>
    <tr> 
      <td class=forumRow>&nbsp;</td>
      <td class=forumRowHighlight>&nbsp;</td>
    </tr>
  </tbody>
</table>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr> 
      <th height=21 colspan="2" sytle="line-height:150%">【其他信息】</th>
    </tr>
    <tr> 
      <td width="47%"  class=forumRow>嘉缘人才管理系统V3.0</td>
      <td width="53%"  class=forumRowHighlight><span class="forumRow">QQ：109530926</span></td>
    </tr>
    <tr> 
      <td class=forumRow><span class="forumRowHighlight">程序开发:花心</span></td>
      <td class=forumRowHighlight><span class="forumRow">E-mail：yx_sj@163.com</span></td>
    </tr>
  </tbody>
</table>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center">Copyright (c) 2004-2008 <a href=http://www.yjys.net target="_blank"><font face=Verdana, arial, helvetica, sans-serif size=1><b>www.yjys<font color=#CC0000>.net</font></b></font></a>      All Rights Reserved .</td>
  </tr>
</table>
<br>
</body>
</html>
