• 分类

  • 重置

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

    <% @ 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” &#111nmouseup=”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” &#111nmouseup=”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” &#111nmouseup=”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” &#111nmouseup=”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]