📄 toplist.asp

📁 9seek 留言本源代码5.0版

💻 ASP

字号:

<!--#include file="conn.asp"--> 
<!--#include file=const.asp -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="木鸟">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
</head>

<body>
<!--#include file="head.asp"-->

<%
dim exec, rs, x, i
rcPerPage=40	'排行前多少名用户

main()


sub main()
	
	exec="select top "& rcPerPage &" * from [user] order by GBpostNum desc,userid"
	Set RS = Server.CreateObject("ADODB.RecordSet") 
	rs.Open exec, Conn, 1, 1
	%>
	
		
		  
	<table border="0" width="650" cellspacing="1" cellpadding="6"  align="center" class="table004">
	 <tr>
		<td colspan=4 width="100%" align=center class=table003>
		<b>· 本 留 言 本 发 言 前 <%=rcPerPage%> 名 用 户 ·</b></td> 
		  </tr>
	 <tr> 
<%
i=0
do while not rs.eof
	   

	response.write "<td class=table001>"& (i+1) &"."&  rs("username") &"<font class=jnfont1> ["& rs("GBpostNum") &"]</font>"


i=i+1
if i mod 4=0 then
	response.write "</td></tr><tr>"
else
	response.write "</td>"
end if

	  rs.movenext                                
		loop %>
		</tr>
	</table>
	
	<%
		rsclose()
		connclose()
end sub
%>


<!--#include file="foot.asp"-->
	</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -