📄 admin_stat_user.asp
字号:
<!--#include file = admin_chk.asp -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type=text/javascript></script>
</head>
<script Language="JavaScript" Type="text/javascript">
function userview(url) {
var
look=window.open(url,"","toolbar=no,location=no,top=100,left=50,directories=no,center:yes;status=no,menubar=no,scrollbars=yes,resizable=no width=820,height=480");
return (false);
}
</script>
<%
y1=chkhtm(trim(request("y1")))
y2=chkhtm(trim(request("y2")))
m1=chkhtm(trim(request("m1")))
m2=chkhtm(trim(request("m2")))
xuas=chkhtm(trim(request("xuas")))
Action=Trim(Request("Action"))
if (not isNumeric(y1)) then
y1=2000
end if
if (not isNumeric(y2)) then
y2=year(now())
end if
if (not isNumeric(m1)) then
m1=1
end if
if (not isNumeric(m2)) then
m2=month(now())
end if
if (not isNumeric(xuas)) then
xuas=0
end if
if (not isDate(y2&"-"&m2&"-31")) then
ri=30
else
ri=31
end if
if (not isDate(y2&"-"&m2&"-30")) then
ri=29
end if
if (not isDate(y2&"-"&m2&"-29")) then
ri=28
end if
ymd1=y1&"-"&m1&"-1"
ymd2=y2&"-"&m2&"-"&ri
ymd1=formatdatetime(ymd1,0)
ymd2=formatdatetime(ymd2,0)
ChaM=datediff("d",ymd1,ymd2) 'sql
'ChaM=datediff("d",ymd1,ymd2) 'access
if clng(Cham)<1 then
Response.Write "<script>alert('日期选择不正确！');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>"
Response.end
end if
CHAM=replace(CHAM,"-","")+1
Response.flush
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [admin] order by id desc",conn,1,1
while not rs.eof
username=rs("user")
SQL="select id,adduser,[time] from [news] where adduser='"&username&"' and [time]>#"&ymd1&"# and [time]<#"&ymd2&"# order by id desc"
set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open SQL,conn,1,1
conn.Execute "update [admin] set [NewsSL]="&rs2.recordcount&" where [user]='"&username&"' "
rs2.close:set rs2=nothing
rs.movenext
wend
rs.close:set rs=nothing
%>
<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
<tr align=center>
<th height=25 align=center colspan="2"><strong>所有用户文章添加排行榜</strong></th>
</tr>
<tr>
<td width=12% height=30 class=forumRow> <strong>管理导航：</strong></td>
<td width=88% height=30 class=forumRow><a href="admin_admin.asp">管理员列表</a> | <a href="admin_admin.asp?action=add">增加后台管理员</a> | <a href="admin_stat_user.asp">查看管理员文章排名</a></td>
</tr>
</TABLE>
<table cellpadding="0" cellspacing="0" border="0" width="100%" class="tableBorder" align=center>
<form method="get" action="?Xuas=1">
<tr>
<td align=center class="forumRow" height="30">时间段显示
<select size="1" name="y1">
<%
for i=2000 to year(now())
%>
<option <% if clng(y1)=clng(i) then Response.Write " selected "%>><%=i%></option>
<%
next
%>
</select>年
<select size="1" name="m1">
<%
for i=1 to 12
%>
<option <% if clng(m1)=clng(i) then Response.Write " selected "%>><%=i%></option>
<%
next
%>
</select>月 到
<select size="1" name="y2">
<%
for i=2000 to year(now())
%>
<option <% if clng(y2)=clng(i) then Response.Write " selected "%>><%=i%></option>
<%
next
%>
</select>年
<select size="1" name="m2">
<%
for i=1 to 12
%>
<option <% if clng(m2)=clng(i) then Response.Write " selected "%>><%=i%></option>
<%
next
%>
</select>
<input type="submit" value="搜索"> <input type='button' value='显示所有' onClick="javascript:location.href='?'">
</td>
</tr>
</form>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" >
<tr>
<td class="bg_tr" align="center"><b>用 户</b></td>
<td class="bg_tr" align="center"><b>新闻文章数量</b></td>
</tr>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [admin] order by NewsSL desc , id desc",conn,1,1
if rs.recordcount<>0 then
page=int(request("page"))
rs.PageSize=18
pagecount=rs.pagesize
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page
for k=1 to pagecount
%>
<tr onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg" height="25">
<td><a href="../user_view.asp?id=<%=rs("id")%>" onClick="return userview(this.href);" onMouseOver="window.status='查看用户“<%=rs("User")%>”的信息';return true;" onMouseOut="window.status='';return true;" title='查看用户“<%=rs("User")%>”的信息' target='_blank' ><%=rs("user")%></a></td>
<td align=center>
<%
Response.Write "共有"&rs("Newssl")&"篇，"
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
if rs.eof then exit for
next
end if
%>
<tr ><td colspan="9" align="center" class="forumRow">
<%if rs.recordcount<>0 then
if page>1 then
response.write "<a href="&request.servervariables("URL")&"?page=1>首页</a> "
response.write "<a href="&request.servervariables("URL")&"?page="&page-1&">上一页</a> "
end if
if page<rs.pagecount then
response.write "<a href="&request.servervariables("URL")&"?page="&page+1&">下一页</a> "
response.write "<a href="&request.servervariables("URL")&"?page="&rs.pagecount&">尾页</a> "
end if
response.write "共"&rs.recordcount&"人 每页显示"&pagecount&"人 共"&rs.pagecount&"页 "
%>
<script language="JavaScript">
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->
</script>
<select size="1" onChange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px">
<%for i=1 to rs.pagecount%>
<option value="<%=request.servervariables("URL")%>?page=<%=i%>" <%if page=i then response.write "selected"%> style="font-size: 9pt">第<%=i%>页</option>
<%next%>
</select>
<%end if%>
</td></tr></table>
<%
Call AdminPageEnd()
rs.close:set rs=nothing
conn.close:set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -