

<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<!--#include file = language.asp -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;font-family: 宋体}
option {FONT-SIZE: 9pt;font-family: 宋体}
textarea {FONT-SIZE: 9pt;font-family: 宋体}
-->
</STYLE>
</head>
<%
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")
	set rs2 = Server.CreateObject("ADODB.RecordSet")
	rs2.Open "select id,adduser from [news] where adduser='"&username&"' order by id desc",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
%>
<body>

<div align="center">
	<table border="0" width="760" id="table1" cellspacing="0" cellpadding="0">
		<tr>
			<td>　</td>
		</tr>
		<tr>
			<td>
			<p align="center"><b><font style="font-size: 17pt;line-height:160%">所有用户文章添加排行榜</font></b></td>
		</tr>
		<tr>
			<td>　</td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="1" cellpadding="3" width="760" id="table2" style="border-collapse: collapse" bordercolor="#C0C0C0" cellspacing="0">
		<tr>
			<td background="../images/bj5.jpg" align="center"><b>
			<font color="#FFFFFF">用　户</font></b></td>
			<td background="../images/bj5.jpg" align="center"><b>
			<font color="#FFFFFF">新闻文章数量</font></b></td>
		</tr>
		<%
		set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open "select * from [admin] order by NewsSL desc , id desc",conn,1,1
		while not rs.eof
		%>
		<tr>
			<td><%=rs("user")%></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
		wend
		rs.close:set rs=nothing
		%>
	</table>
</div>

</body>

</html>
<%
conn.close
set conn=nothing
%>