网络编程
位置：首页>> 网络编程>> Asp编程>> 如何编写TOP10之类的排行榜？

如何编写TOP10之类的排行榜？

　来源：asp之家　发布时间：2009-11-07 18:45:00　

标签：排行榜,top

下面我们以论坛排行榜举例说明：

<％ @ 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
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com