来源:自学PHP网 时间:2015-02-03 17:41 作者: 阅读:次
[导读] 如何编写TOP 10之类的排行榜?...
NEWSZW_HZH_BEGIN-->
<% @ 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>山水盈盈之论坛大英雄</title> </head> <body class="detail"> <table border="0" width="70%" cellpadding="0" align="center"> <tr> <td width="16%" 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%" 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%" 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%" 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> [1] NEWSZW_HZH_END--> |
自学PHP网专注网站建设学习,PHP程序学习,平面设计学习,以及操作系统学习
京ICP备14009008号-1@版权所有www.zixuephp.com
网站声明:本站所有视频,教程都由网友上传,站长收集和分享给大家学习使用,如由牵扯版权问题请联系站长邮箱904561283@qq.com