当前位置：首页 > 资讯 > 技术文档

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

时间：2021-10-21 07:08 编辑：来源：阅读：
扫一扫，手机访问

摘要：如何编写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> <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>山水盈盈之论坛大英雄</title> </head>

<table border="0" width="70%" cellpadding="0" align="center"> <tr> <td width="16%" align="center">名次</td> <td width="16%" class="Listline" align="center">网名</td> <td width="17%" class="Listline" align="center">帖数</td> <td width="17%" align="center">名次</td> <td width="17%" class="Listline" align="center">网名</td> <td width="17%" class="Listline" align="center">帖数</td> </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"><%=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 class="Listline" align="center"><%=rs("iPerience")%></td> </td> <%rs.movenext%> <td width="17%" align="center" valign="bottom"><%=IDb%> </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 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')"><%=rs("UserName")%></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')"><%=rs("UserName")%></td> <% rs.movenext%> <% next end if %> </table> </body></html>

[b][1][/b]

全部评论(0)

上一篇：如何把URL和邮件地址转换为超级链接？
下一篇：如何在ADSI中查询用户属性？

资讯排行榜
更多>>