toplist.asp

来自「9seek 留言本源代码5.0版」· ASP 代码 · 共 67 行

ASP
67 行
字号 
<!--#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>

toplist.asp - 源码说明

本页面展示了「9seek 留言本源代码5.0版」中的 toplist.asp 源码文件，采用 ASP 编程语言编写，共 67 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与9seek相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?