如何編寫TOP 10之類的熱門排行榜？

最後更新：2013-10-17 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<% @ LANGUAGE="VBscript" %>

<% OPTION EXPLICIT %>

<% 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>

<title>山水盈盈之論壇大英雄</title>

</head>

<tr>

</tr>

<% if RegUser<10 then

a=RegUser/2

else

a=5

end if

for s=1 to a

<tr>

<td width="16%" align="center" valign="bottom"><font size="2"

color="#0000A0"><%=IDa%> </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')"><%=rs("UserName")%></td>

</td>

<%rs.movenext%>

<td width="17%" align="center" valign="bottom"><font size="2"

color="#0000A0"><%=IDb%> </td>

</tr>

IDa=IDa+2

IDb=IDb+2

rs.movenext

<% if RegUser>20 then

for b=11 to 15 %>

<% rs.movenext%>

end if %>

<% if RegUser>20 then

for c=16 to 20 %>

<% rs.movenext%>

end if %>

</table>

</body></html>

[1]

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More