📄 admin_stat.asp
字号:
<!--#include file = admin_chk.asp -->
<%
if Request.Cookies(Art2008)("admindj")="4" then
Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
Response.end
end if
%>
<!--#include file = titleb.asp --><head>
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
</head>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id,hit from [news]",conn,1,1
wzsl=rs.recordcount
hit=0
while not rs.eof
hit=hit+rs("hit")
rs.movenext
wend
rs.close
set rs=nothing
%>
<TABLE width="100%" border="0" align=center cellpadding="0" cellspacing="1" class="tableBorder">
<tr>
<th height=25 colspan="3" >数据统计</th>
</tr>
<TR ALIGN="center">
<TD >
<table border="1" cellpadding="3" width="90%" id="table1" style="border-collapse: collapse" bordercolor="#ffffff" cellspacing="0" class="tableBorder1">
<tr>
<td class="bg_tr" colspan="2" height="25">目前文章总数：<%=wzsl%>，总共阅读<%=hit%>次。其中包括如下：</td>
</tr>
<tr>
<td align="center" colspan="2">
<table width="90%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8" bgcolor="#FFFFFF">
<%
lll="<img src=../images/001.gif border=0 height=20 width=17>"
sql = "select * from lm where lm<>'' order by id asc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
if rs.recordcount<>0 then
for i=0 to rs.recordcount
%>
<tr>
<td width="241" bgcolor="#F3F3F3">
<%
response.write "<B><font color="&rs("fontcolor")&">"&rs("lm")&"</font></b>"
%></td>
<td width="118" bgcolor="#F3F3F3">
<%
sql2 = "select id,lm,lm2,lm3,hit from news where lm='"&rs("id")&"'"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
response.write "文章："&rs2.recordcount
hit=0
while not rs2.eof
hit=hit+rs2("hit")
rs2.movenext
wend
%>
</td>
<td width="119" bgcolor="#F3F3F3">
总阅读：<%=hit%></td>
</tr>
<%
sql3 = "select * from lm where lmid='"&rs("ID")&"' order by id asc"
Set rs3 = Server.CreateObject("ADODB.RecordSet")
rs3.Open sql3,conn,1,1
while not rs3.eof
%>
<tr>
<td width="241"> ├ <a href=admin_news_list.asp?lm=<%=rs3("id")%>><font color=<%=rs3("fontcolor")%>><%=rs3("lm2")%></font></a></td>
<td width="118">
<%
sql4 = "select id,lm,lm2,lm3,hit from news where lm2='"&rs3("id")&"' order by id desc"
Set rs4 = Server.CreateObject("ADODB.RecordSet")
rs4.Open sql4,conn,1,1
response.write "文章："&rs4.recordcount
hit4=0
while not rs4.eof
hit4=hit4+rs4("hit")
rs4.movenext
wend
%>
</td>
<td width="119">
阅读：<%=hit4%></td>
</tr>
<%
Set rs33 = Server.CreateObject("ADODB.RecordSet")
rs33.Open "select * from [lm] where lmid='"&rs3("id")&"' and lm3<>'' order by id asc",conn,1,1
while not rs33.eof
%>
<tr>
<td width="241"> ├ <%=rs33("lm3")%></td>
<td width="118">
<%
Set rs331 = Server.CreateObject("ADODB.RecordSet")
rs331.Open "select id,lm3,hit from [news] where lm3='"&rs33("id")&"' order by id desc",conn,1,1
Response.Write " 文章："&rs331.recordcount
%>
</td>
<td width="119"> 阅读：
<%
hit=0
while not rs331.eof
hit=rs331("hit")+hit
rs331.movenext
wend
rs331.close
set rs331=nothing
Response.Write hit
%>
</td>
</tr>
<%
rs33.movenext
wend
rs3.movenext
wend
rs.movenext
if rs.eof then exit for
next
end if
%>
</table>
</td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [admin]",conn,1,1
%>
<tr>
<td background="../images/topBar_bg.gif" colspan="2">目前管理员用户有<%=rs.recordcount%>个，其中包括如下：
(<a href="admin_stat_user.asp">查看用户文章排名</a>)</td>
</tr>
<tr>
<%
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select top 10 * from [admin] where dj<>'4' order by newssl DESC , id desc",conn,1,1
%>
<td colspan="2">
<div align="center">
<table width="90%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8" bgcolor="#FFFFFF"> <%
while not rs.eof
%>
<tr>
<td width="249"><%=rs("user")%></td>
<td width="249">
<%
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select adduser,id from [news] where adduser='"&rs("user")&"' order by id desc",conn,1,1
Response.Write "共有"&rs2.recordcount&"篇文章，"
rs2.close:set rs2=nothing
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select adduser,id,sh from [News] where adduser='"&rs("user")&"' and sh=2 order by id desc",conn,1,1
Response.Write "有"&rs2.recordcount&"篇未审核"
rs2.close:set rs2=nothing
%>
</td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
</div>
</td>
</tr>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [Art_user]",conn,1,1
%>
<tr>
<td background="../images/topBar_bg.gif" colspan="2">目前前台用户有<%=rs.recordcount%>个，其中包括如下：
</td>
</tr>
<tr>
<%
rs.close
set rs=nothing
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select top 10 * from [Art_user] where Locked=0 order by ArticleNum DESC , UserID desc",conn,1,1
%>
<td colspan="2">
<div align="center">
<table width="90%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#658BD8" bgcolor="#FFFFFF"> <%
while not rs.eof
%>
<tr>
<td width="249"><%=rs("UserName")%></td>
<td width="249">
<%
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select adduser,id from [news] where adduser='"&rs("UserName")&"' order by id desc",conn,1,1
Response.Write "共有"&rs2.recordcount&"篇文章，"
rs2.close:set rs2=nothing
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open "select adduser,id,sh from [News] where adduser='"&rs("UserName")&"' and sh=2 order by id desc",conn,1,1
Response.Write "有"&rs2.recordcount&"篇未审核"
rs2.close:set rs2=nothing
%>
</td>
</tr>
<%
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
</div>
</td>
</tr>
<tr>
<td background="../images/topBar_bg.gif" width="349" align="center">
文章阅读前十名</td>
<td background="../images/topBar_bg.gif" width="349" align="center">
文章阅读后十名</td>
</tr>
<tr>
<td width="349">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select top 10 * from [news] order by hit desc , id desc",conn,1,1
while not rs.eof
Response.Write " ·<a href="&fun_html_url(rs("id"))&" target=_blank><font color=666666>"&titleb(rs("title"),30)&"</font></a><font color=666666>("&rs("hit")&"次)</font><BR>"
rs.movenext
wend
%>
</td>
<td width="349">
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select top 10 * from [news] order by hit asc , id desc",conn,1,1
while not rs.eof
Response.Write " ·<a href="&fun_html_url(rs("id"))&" target=_blank><font color=666666>"&titleb(rs("title"),30)&"</font></a><font color=666666>("&rs("hit")&"次)</font><BR>"
rs.movenext
wend
%></td>
</tr>
<tr>
<td colspan="2" background="../images/topBar_bg.gif">
评论情况：</td>
</tr>
<tr>
<td colspan="2"> <font color="#666666">共评论数量：
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select id from [newspl] order by id desc",conn,1,1
Response.Write rs.recordcount
%>
</font>
</td>
</tr>
</table>
</td></tr></table>
<%
Call AdminPageEnd()
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -