<% userPageRights="{all}" %>
<!--#include file="check.asp"-->
<!--#include file="../Include/const.asp" -->
<%
m_SQL = "SELECT COUNT(*) FROM tb_admin"
SET rs = conn.Execute(m_SQL)
w_admin_Num = rs(0) : rs.Close

m_SQL = "SELECT COUNT(*) FROM T_FriendLink"
SET rs = conn.Execute(m_SQL)
T_FriendLink = rs(0) : rs.Close

m_SQL = "SELECT COUNT(*) FROM T_Gbook"
SET rs = conn.Execute(m_SQL)
T_Gbook = rs(0) : rs.Close

m_SQL = "SELECT COUNT(*) FROM T_Member"
SET rs = conn.Execute(m_SQL)
T_member = rs(0) : rs.Close

m_SQL = "SELECT COUNT(*) FROM T_Member where F_IsCheck =0"
SET rs = conn.Execute(m_SQL)
T_membern = rs(0) : rs.Close

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">
<style type="text/css">
<!--
.style1 {color: #FF0000}
.style2 {color: #0000FF}
-->
</style>
<% if T_Gbookn>0 then %>
<bgsound src="../images/wav/mail.wav" loop="1">
<SCRIPT>
var oPopup = window.createPopup();
var popTop=50;
function popmsg(msgstr){ 
var winstr="<table bgcolor=\"#d6dff7\" style=\"border: 1 solid #000\" width=\"241\" height=\"172\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">";
winstr+="<tr><td height=\"30\" align=\"center\"><b>==友情提示==</b></td></tr><tr><td align=\"center\"><table bgcolor=\"#ffffff\" width=\"90%\" height=\"110\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">";
winstr+="<tr><td valign=\"top\" style=\"font-size:12px; color: #ff0000; face: Tahoma\">"+msgstr+"</td></tr></table></td></tr></table>";
oPopup.document.body.innerHTML = winstr;
popshow();
}
function popshow(){ 
window.status=popTop;
if(popTop>1720){ 
clearTimeout(mytime);
oPopup.hide();
return;
}else if(popTop>1520&&popTop<1720){ 
oPopup.show(screen.width-250,screen.height,241,1720-popTop);
}else if(popTop>1500&&popTop<1520){ 
oPopup.show(screen.width-250,screen.height+(popTop-1720),241,172);
}else if(popTop<180){ 
oPopup.show(screen.width-250,screen.height,241,popTop);
}else if(popTop<220){ 
oPopup.show(screen.width-250,screen.height-popTop,241,172);
}
popTop+=10;
var mytime=setTimeout("popshow();",50);
}
popmsg("您有新的网友留言没有回复，请注意及时回复此信息。");
</SCRIPT>
<% end if %>
</head>

<BODY bgcolor="D6DFF7" leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr align="left"> 
      <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%>
        <span class="forumRow"><strong>
        <%If IsSqlDataBase=0 then response.write "Access版本" else response.write "MsSQL版本"%>
      </strong></span> </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 align="left"> 
      <th height=21 colspan="2" sytle="line-height:150%">【数据统计】</th>
    </tr>
    <tr>
      <td colspan="2" class=forumRow>&nbsp;</td>
    </tr>
    <tr>
      <td width="47%" class=forumRow><strong>后台会员</strong>： 目前共有<b><font color="#FF0000"><%=w_admin_Num%></font></b><strong>位</strong>管理者 <span class="forumRowHighlight">[<a href="adminmana.asp">查看</a>]</span></td>
      <td width="53%" class=forumRowHighlight><span class="forumRow"><strong>占用空间</strong>：<b>
      <%
	  sub totalsize(size)
if size<1024 then
response.write size&" Bytes"
elseif size<1048576 then
response.write Int(size/1024)&" KB"
else
response.write Int(size/1024/1024)&" MB"
end if
end sub
set fso=server.createobject("scripting.filesystemobject")
toldir=server.mappath("../")
set d=fso.getfolder(toldir)
tolsize=d.size

set fso=server.createobject("scripting.filesystemobject")
titlepic=server.mappath("../upfiles/titlepic")
set d=fso.getfolder(titlepic)
titlepic=d.size

set fso=server.createobject("scripting.filesystemobject")
content=server.mappath("../upfiles/content")
set d=fso.getfolder(content)
content=d.size

%>
      <span class="a3"> <span class="style1">
      <%totalsize(tolsize)%>
      </span></span></b></span></td>
    </tr>
    <tr> 
      <td class=forumRow><strong>前台会员</strong>：共(<font color=#ff0000><%=T_member%></font>)人<span class="forumRowHighlight">[<a href="Admin_Member.asp">查看</a>]</span>， 未审核(<font color=#ff0000><%=T_membern%></font>)人<span class="forumRowHighlight">[<a href="Admin_Member2.asp">查看</a>]</span> </td>
      <td class=forumRowHighlight><a href="admin_tj.asp" class="forumRow"><strong>流量统计</strong></a></td>
    </tr>
    <tr> 
      <td class=forumRow><strong>网友留言</strong>：共(<font color=#ff0000><%=T_Gbook%></font>)条</td>
      <td class=forumRowHighlight><strong>友情链接</strong>：共有<font color=#ff0000><%=T_FriendLink%></font>个站点 [<a href="Admin_Link.asp">查看</a>] </td>
    </tr>
  </tbody>
</table>
<br>
<table class=tableBorder width="95%" border=0 align="center" cellpadding=5 cellspacing=1>
  <tbody>
    <tr align="left"> 
      <th height=21 colspan="2" sytle="line-height:150%">【其他信息】</th>
    </tr>
    <tr>
      <td  class=forumRow style1>免费版有很多功能限制，欢迎使用商业版，每套价格为300元，</td>
      <td  class=forumRowHighlight style1>客服电话：13661107158　客服ＱＱ：379608088 531964713 </td>
    </tr>
    <tr> 
      <td width="47%"  class=forumRow>本系统当前采用：<strong>ASP语言</strong>构建</td>
      <td width="53%"  class=forumRowHighlight>程序开发与维护：<span class="style1"></span> 客服电话：13661107158　客服ＱＱ：379608088 </td>
    </tr>
  </tbody>
</table>
<br>
<br>
</body>
</html>
