• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    如何编写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 RegUser10 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]

    上一篇:如何把中文转换为UNICODE?
    下一篇:如何动态添加Form项?
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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