如何编写TOP 10之类的排行榜？_编程10000问_

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

%>

<% if RegUser<10 then

a=RegUser/2

else

a=5

end if

for s=1 to a

%>

<%rs.movenext%>

<%

IDa=IDa+2

IDb=IDb+2

rs.movenext

next

%>

<% if RegUser>20 then

for b=11 to 15 %>                           

<% rs.movenext%>

<%

next

end if %>

<% if RegUser>20 then

for c=16 to 20 %>                            

提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！