📄 databasestatview.asp
字号:
<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.50
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:service@Foosun.cn
'MSN：skoolls@hotmail.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn 演示站点：test.cooin.com
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0406001") then Call ReturnError1()
Dim Types,I,DBSVSql,RsDBSVObj,TempNums,RsTempObj
Types = Request("Types")
%>
<html>
<head>
<link href="../../../CSS/FS_css.css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>数据统计显示</title>
</head>
<body topmargin="2" leftmargin="2" ondragstart="return false;" oncontextmenu="return false;">
<%
Select Case Types
Case "Administrator"
Set RsDBSVObj = Server.CreateObject(G_FS_RS)
DBSVSql = "Select GroupName,ID from FS_AdminGroup order by ID asc"
RsDBSVObj.Open DBSVSql,Conn,1,1
Set RsTempObj = Conn.Execute("Select count(ID) from FS_Admin")
TempNums = RsTempObj(0)+1
RsTempObj.Close
Set RsTempObj = Nothing
%>
<table border=0 align="center" cellpadding=2>
<tr>
<td colspan="4" align=center>管理员数据统计</td>
</tr>
<tr>
<td colspan="4" align=center><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="25" valign=top align="right" nowrap>100%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>75%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>50%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>25%</td>
</tr>
<tr>
<td align="right" valign=top nowrap>0</td>
</tr>
</table> </td>
<td valign="bottom">
<table align=center>
<tr valign=bottom >
<td width="15" align=center nowrap background=../../Images/Visit/tu_back.gif><img src=../../Images/Visit/bar.gif width="15" height="100" id=htav><br>
</td>
<%
do while not RsDBSVObj.eof
Set RsTempObj = Conn.Execute("Select count(ID) from FS_Admin where GroupID="&RsDBSVObj("ID")&"")
%>
<td width="15" align=center nowrap background=../../Images/Visit/tu_back.gif><img src="../../Images/Visit/bar.gif" width="15" height="<% =100*RsTempObj(0)/TempNums%>" id=htav><br>
</td>
<%
RsTempObj.Close
Set RsTempObj = Nothing
RsDBSVObj.MoveNext
Loop
RsDBSVObj.Close
%>
<td></td>
</tr>
<tr>
<td width="15" rowspan="2" align=center valign="top">总<br>(<%=TempNums-1%>)</td>
<%
RsDBSVObj.Open DBSVSql,Conn,1,1
do while not RsDBSVObj.eof
Set RsTempObj = Conn.Execute("Select count(ID) from FS_Admin where GroupID="&RsDBSVObj("ID")&"")
%>
<td width="15" rowspan="2" align=center valign="top"><% = RsDBSVObj("GroupName")%><br>(<%=RsTempObj(0)%>)</td>
<%
RsTempObj.Close
Set RsTempObj = Nothing
RsDBSVObj.MoveNext
Loop
RsDBSVObj.Close
Set RsDBSVObj = Nothing
%>
<td width="76" align=center valign="top">单位（组）</td>
</tr>
<tr>
<td align=center valign="bottom">单位（人）</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<%
Case "Members"
Set RsDBSVObj = Server.CreateObject(G_FS_RS)
DBSVSql = "Select Name,GroupID from FS_MemGroup order by ID asc"
RsDBSVObj.Open DBSVSql,UserConn,1,1
Set RsTempObj = UserConn.Execute("Select count(ID) from FS_Members")
TempNums = RsTempObj(0)+1
RsTempObj.Close
Set RsTempObj = Nothing
%>
<table border=0 align="center" cellpadding=2>
<tr>
<td colspan="4" align=center>会员数据统计</td>
</tr>
<tr>
<td colspan="4" align=center><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="25" valign=top align="right" nowrap>100%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>75%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>50%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>25%</td>
</tr>
<tr>
<td align="right" valign=top nowrap>0</td>
</tr>
</table></td>
<td valign="bottom">
<table align=center>
<tr valign=bottom >
<td width="15" align=center nowrap background=../../Images/Visit/tu_back.gif><img src=../../Images/Visit/bar.gif width="15" height="100" id=htav><br>
</td>
<%
do while not RsDBSVObj.eof
Set RsTempObj = UserConn.Execute("Select count(ID) from FS_Members where GroupID='"&RsDBSVObj("GroupID")&"'")
%>
<td width="15" align=center nowrap background=../../Images/Visit/tu_back.gif><img src=../../Images/Visit/bar.gif width="15" height="<% =100*RsTempObj(0)/TempNums%>" id=htav><br>
</td>
<%
RsTempObj.Close
Set RsTempObj = Nothing
RsDBSVObj.MoveNext
Loop
RsDBSVObj.Close
%>
<td></td>
</tr>
<tr>
<td width="15" rowspan="2" align=center valign="top">总<br>(<%=TempNums-1%>)</td>
<%
RsDBSVObj.Open DBSVSql,UserConn,1,1
do while not RsDBSVObj.eof
Set RsTempObj = UserConn.Execute("Select count(ID) from FS_Members where GroupID='"&RsDBSVObj("GroupID")&"'")
%>
<td width="15" rowspan="2" align=center valign="top"><% = RsDBSVObj("Name")%><br>(<%=RsTempObj(0)%>)</td>
<%
RsTempObj.Close
Set RsTempObj = Nothing
RsDBSVObj.MoveNext
Loop
RsDBSVObj.Close
Set RsDBSVObj = Nothing
%>
<td width="76" align=center valign="top">单位（组）</td>
</tr>
<tr>
<td align=center valign="bottom">单位（人）</td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<%
Case "News_Month"
Dim ChooseYear,Temp_i
ChooseYear = Request("ChooseYear")
If ChooseYear = "" then
ChooseYear = Year(Now())
End If
Set RsTempObj = Conn.Execute("Select count(ID) from FS_News where year(AddDate)='"&ChooseYear&"'")
TempNums = RsTempObj(0)+1
RsTempObj.Close
Set RsTempObj = Nothing
%>
<table border=0 align="center" cellpadding=2>
<tr>
<td colspan="4" align=center>新闻(月份)数据统计</td>
</tr>
<tr>
<td colspan="4" align=center><table border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<table border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="25" valign=top align="right" nowrap>100%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>75%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>50%</td>
</tr>
<tr>
<td height="25" valign=top align="right" nowrap>25%</td>
</tr>
<tr>
<td align="right" valign=top nowrap>0</td>
</tr>
</table></td>
<td valign="bottom">
<table align=center>
<tr valign=bottom >
<td width="15" align=center nowrap background=../../Images/Visit/tu_back.gif><img src=../../Images/Visit/bar.gif width="15" height="100" id=htav><br>
</td>
<%
For Temp_i=1 to 12
Set RsTempObj = Conn.Execute("Select count(ID) from FS_News where year(AddDate)='"&ChooseYear&"' and month(AddDate)='"&Temp_i&"'")
%>
<td width="15" align=center nowrap background=../../Images/Visit/tu_back.gif><img src=../../Images/Visit/bar.gif width="15" height="<% =100*RsTempObj(0)/TempNums%>" id=htav><br>
</td>
<%
RsTempObj.Close
Set RsTempObj = Nothing
Next
%>
<td></td>
</tr>
<tr>
<td width="15" rowspan="2" align=center valign="top"><%=ChooseYear%>年总<br>(<%=TempNums-1%>)</td>
<%
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -