●做排行榜，但有相同的分数，想并列排名次，该如何处理？

[gdwebinfo]

有一个表A，字段如下：

ID 分数
1 99
2 98
3 97
4 97
5 96

现在想做排行榜，但ID = 3 和ID = 4 的值一样，所以排名也要一样。想得到如下显示结果：

排行 分数
1 99
2 98
3 97
3 97
4 96

这样，两个相同的分数的排行名次都为3了，不过想了好久也不知如何解决这个问题，用累加的方法也行不通，因为有可能不止两个人的分数相同。

请大家指点…

[QQgenie]

<!--#include file="conn.asp"-->
<%
sql ="SELECT id,fs FROM A " '//改表名就可,不关字段
Set rs = conn.execute(sql) '//打开
aResults = rs.GetRows '//取得数据集
iRows = UBound(aResults, 2) '//记录数
icols = UBound(aResults, 1) '//字段数

rs.close
set rs=nothing
%>
<%
L=1
response.write "<table border=0>"
for i=0 to iRows
response.write "<tr>"
response.write "<td>"&L&"</td><td>"&aResults(1,i)&"</td>"
If aResults(1,i)-aResults(1,i+1)<>0 then L=L+1
response.write "</tr>"
next
response.write "</table>"
%>

[zy51]

我想加个判断相同的时候就写并列.你试下.

[holoon]

mark

[zeoyeah]

在显示的时候作判断~!

如果相同,则ID加1
否则,ID不变

[kindwell]

QQgenie(妖魔鬼怪)写的那句sql语句，我想后面是不是应该加上
order by，变成SELECT id,fs FROM A ORDER BY fs DESC ？

[hch686]

按照以后的方法，我把我的排名问题解决了，但是
If aResults(1,i)-aResults(1,i+1)<>0 then L=L+1
上面一行回产生溢出的
因为for i=0 to iRows中如果iRows=14，那么aResults(1,i+1）就不存在了

求教解决办法

[wj021chen]

Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: 'aResults(...)'

/example/CSDN/No-1.asp，行19
第19行If aResults(1,i)-aResults(1,i+1)<>0 then L=L+1

错误的提示。内容可以显示
观注本帖

[caobin518]

收藏

[lunyx]

str="select * from table1"
set rs=ExcSql(str)
dim s,s1,i
i=1
do while not rs.eof
s=rs("score")
if (s=s0)and (s0<>"") then
i=i-1
response.write i&" "&s&"<br>"
else
response.write i&" "&s&"<br>"
end if
s0=s
i=i+1
rs.movext
loop