如何编写TOP10之类的排行榜？
来源：asp之家 时间：2009-11-07 18:45:00
下面我们以论坛排行榜举例说明：
<％ @ LANGUAGE="VBSCRIPT" ％>
<％ OPTION EXPLICIT ％>
<!--#include file="DataConn.asp"-->
<!--#include file="FuncSet.asp"-->
<％ dim rs,sql,IDa,IDb,s,RegUser,a,b,c
Set rs=Server.CreateObject("ADODB.recordset")
sql="Select * from UserInfo ORDER BY iPerience DESC"
rs.Open sql,ConnStr,1,1
RegUser=rs.RecordCount
IDa=1
IDb=2
％>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="pragma" content="no-cache">
<link rel="stylesheet" type="text/css" href="Site.css">
<title>TOP10 排行榜 asp例子 - asp之家</title>
</head>
<body class="detail">
<table border="0" width="70％" cellpadding="0" align="center">
<tr>
<td width="16％" bgcolor="#FFFFFF" align="center"><font color="#0000A0">名次</font></td>
<td width="16％" class="Listline" align="center"><font color="#0000A0">网名</font></td>
<td width="17％" class="Listline" align="center"><font color="#0000A0">帖数</font></td>
<td width="17％" bgcolor="#FFFFFF" align="center"><font color="#0000A0">名次</font></td>
<td width="17％" class="Listline" align="center"><font color="#0000A0">网名</font></td>
<td width="17％" class="Listline" align="center"><font color="#0000A0">帖数</font></td>
</tr>
<％ if RegUser<10 then
a=RegUser/2
else
a=5
end if
for s=1 to a
％>
<tr>
<td width="16％" bgcolor="#FFFFFF" align="center" valign="bottom"><font size="2"
color="#0000A0"><b><％=IDa％></b></font> </td>
<td class="Listline" align="center" style="cursor:hand" onmouseup="window.open('UserInfo.asp?UserName=<％=rs("UserName")％>','Call','width=350,height=400,left=300,top=100,toolbar=no,status=no')"><font color=#0000CC><％=rs("UserName")％></font></td>
<td class="Listline" align="center"><％=rs("iPerience")％></td>
</td>
<％rs.movenext％>
<td width="17％" bgcolor="#FFFFFF" align="center" valign="bottom"><font size="2"
color="#0000A0"><b><％=IDb％></b></font> </td>
<td class="Listline" align="center" style="cursor:hand" onmouseup="window.open('UserInfo.asp?UserName=<％=rs("UserName")％>','Call','width=350,height=400,left=300,top=100,toolbar=no,status=no')"><font color=#0000CC><％=rs("UserName")％></font></td>
<td class="Listline" align="center"><％=rs("iPerience")％></td>
</tr>
<％
IDa=IDa+2
IDb=IDb+2
rs.movenext
next
％>
<％ if RegUser>20 then
for b=11 to 15 ％>
<td class="Listline" align="center" style="cursor:hand" onmouseup="window.open('UserInfo.asp?UserName=<％=rs("UserName")％>','Call','width=350,height=400,left=300,top=100,toolbar=no,status=no')"><font color=#0000CC><％=rs("UserName")％></font></td>
<％ rs.movenext％>
<％
next
end if ％>
<％ if RegUser>20 then
for c=16 to 20 ％>
<td class="Listline" align="center" style="cursor:hand" onmouseup="window.open('UserInfo.asp?UserName=<％=rs("UserName")％>','Call','width=350,height=400,left=300,top=100,toolbar=no,status=no')"><font color=#0000CC><％=rs("UserName")％></font></td>
<％ rs.movenext％>
<％
next
end if ％>
</table>
</body>
</html>
0
投稿猜你喜欢
教你轻松了解MySQL数据库中的结果字符串
用ASP读取/写入UTF-8编码格式的文件
SQL Server跟踪数据实现索引优化向导
下一站：HandlerSocket！
中文段首不需要空两格
网页设计中怎么将px换成em
ASP格式化日期的函数（输出13种样式）
DOM_window对象属性之--clipboardData对象操作代码
如何编写一个基于WEB的文件查询系统？
asp封装dll源码分享
浏览器tab的设计
asp之自动闭合HTML/ubb标签函数 附简单注释
IE9四大渲染引擎模式
悟透JavaScript
ASP 字符串转数字格式
ACCESS入门教程：用向导建立数据库
