如何编写TOP 10之类的排行榜？_其他编程

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

如何显示数据库的结构？

<html><head><meta http-equiv="content-type" content="text/html; c... [阅读全文]

如何显示最后十名来访者？

<%application.lockif not isarray( application( "lastten" ) ) then dim dummy( ... [阅读全文]

如何显示随机信息？

<html><head><title>千花飞舞之信息随机显示</title></head><b... [阅读全文]

如何向前端推送用户请求的信息？

postinfo.htm<head><title>星河影动之回应用户请求信息</title></head><... [阅读全文]

如何修改被表单引用的ASP页面？

formhandler.asp<html><body><%dim requestmethod requestmethod = re... [阅读全文]

如何验证IP地址？

sub chkip(boardid) 　　　dim rsip 　　　dim iparr 　　　dim ignored 　　　dim i 　　　dim ip 　　... [阅读全文]


验证码：

验证码：

如何编写TOP 10之类的排行榜？

2024年05月15日 • 其他编程 •我要评论

相关文章:

发表评论