如何编写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]

(0)

相关推荐

  • 如何编写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.

  • Oracle结合Mybatis实现取表TOP 10条数据

    之前一直使用mysql和informix数据库,查表中前10条数据十分简单: 最原始版本: select top * from student 当然,我们还可以写的复杂一点,比如外加一些查询条件? 比如查询前10条成绩大于80分的学生信息 添加了where查询条件的版本: select top * from table where score > 80 但是!!oracle中没有top啊!!!!那么该如何实现呢? 嗯,可以用rownum! oracle中原始版本 select * from st

  • Java自学书籍Top 10

    下面是Java Inside上推荐的十本不错的Java书籍. 1)Java Language Specification, Third Edition (by James Gosling) 本书由Java技术的发明者编写,是Java TM编程语言的权威性技术指南.如果你想知道语言之构造的精确含义,本书是最好的资源. 2)Effective Java , Second Edition (by Joshua Bloch) 本书介绍了在Java编程中78条极具实用价值的经验规则,这些经验规则涵盖了大多

  • 11月编程语言排行榜 Python逆袭C#上升到第4

    TIOBE 11 月编程语言排行榜,Python 逆袭C# 曾经有一段时间,脚本语言因其易于编写和易于运行的特性,被预测在未来将发展强大.因此,Perl,Python,PHP 和 Ruby 等语言在当时非常流行.而今天看来,似乎只有 Python 的发展很强势,其他脚本语言都在逐渐走出前 20 名,或排名趋于下滑. 在前 20 名的排行中,可以看出 Python 已经超越 C#,上升至第 4 的位置.无论在哪个榜单中 Python 都是保持着非同寻常的增长速度,为什么 Python 增长的这么快

  • 最新统计排名前十的SQL和NoSQL数据库排行榜

    本排名根据DB Engines的排行榜得来,该排行榜从人气上分析了市场上200个不同的数据库,这里一览Top 10. 无可争议的Top 3 Oracle.MySQL及Microsoft SQL Server一直以绝对的优势霸占着排行榜的前三名,以独特的优势瓜分了市场上最多的用户. 1.  Oracle 11g 首次发行:1980年 许可机制:Proprietary 是否SQL:是 Oracle是重要商业项目的首选,同时也是市场上最古老的主流数据库产品,Oracle有4个不同的版本可用:Enter

  • Python爬虫之爬取哔哩哔哩热门视频排行榜

    一.bs4解析 import requests from bs4 import BeautifulSoup import datetime if __name__=='__main__': url = 'https://www.bilibili.com/v/popular/rank/all' headers = { //设置自己浏览器的请求头 } page_text=requests.get(url=url,headers=headers).text soup=BeautifulSoup(pag

  • sqlite3 top的查询及limit语法介绍

    其实,在sqlite3中没有top的语法结构,但在sqlite3中有相关的语法能实现跟top语法相同的功能,sqlite3 sql是用limit这样的语法来实现的: 如: 复制代码 代码如下: select * from table where name='_安静ゝ' order by id limit 0,10; 这个效果就相当于select top 10 * from table where name='_安静ゝ': 如果还有更精确的: 复制代码 代码如下: select * from ta

  • 四种数据库随机获取10条数据的方法

    四种数据库随机获取10条数据的方法 SQL Server: 复制代码 代码如下: SELECT TOP 10 * FROM T_USER ORDER BY NEWID() ORACLE: 复制代码 代码如下: SELECT * FROM (SELECT * FROM T_USER ORDER BY DBMS_RANDOM.RANDOM()) WHERE RONUM <= 10 MySQL: 复制代码 代码如下: SELECT * FROM T_USER  ORDER BY  RAND() LIM

  • 从每个分类选择10条记录的sql语句

    从每个分类选择10条记录 复制代码 代码如下: select a.* from Content a where a.log_ID in (select top 10 log_ID from Content where log_CateID = a.log_CateID order by log_ID desc) order by log_ID desc" 注意 Content 是新闻记录表 log_CateID 是分类字段 log_ID 关键字字段,自动增加的

  • Java数组操作的10大方法

    1.定义一个Java数组 String[] aArray = new String[5]; String[] bArray = {"a","b","c", "d", "e"}; String[] cArray = new String[]{"a","b","c","d","e"}; 第一种是定义了一个数组,并

随机推荐