成绩排序有关问题，请问很多高手还未解决，哪位高手能过来帮帮小弟我

2012-03-20

成绩排序问题，请教很多高手还未解决，谁能过来帮帮我？我要的效果是:姓名总分张三610李四610王二580赵五575

成绩排序问题，请教很多高手还未解决，谁能过来帮帮我？
我要的效果是:
姓名总分
张三 610
李四 610
王二 580
赵五 575
黄山 562
邓峰 500
朱左 500
龚博 480

那么排名就是
姓名总分排名
张三 610 1
李四 610 1
王二 580 3
赵五 575 4
黄山 562 5
邓峰 500 6
朱左 500 6
龚博 480 8

...........................

注意：不是以下效果：

姓名总分
张三 610
李四 610
王二 580
赵五 575
黄山 562
邓峰 500
朱左 500
龚博 480

那么排名就是
姓名总分排名
张三 610 1
李四 610 1
王二 580 2
赵五 575 3
黄山 562 4
邓峰 500 5
朱左 500 5
龚博 480 6
.................
下面是第二种效果的代码，谁能帮我改成第一种效果，谢！！！！！！！！！
<%
Dim Rs
dim i '定义名次变量
dim tem
i=0
tem=1
Set Rs = Conn.Execute( "Select Top 120 * From scores Where grade=8 Order By zf Desc ")
Do While Not Rs.EOF
if tem <> rs( "zf ") then i=i+1:tem=rs( "zf ")
%>

<table>
<tr>
<td width= "48 ">
<div align= "center " class= "STYLE2 "> <%=rs( "zf ")%> </div> </td>
<td width= "46 ">
<div align= "center " class= "STYLE2 "> <%=i %> </div> </td>
</tr>
</table>

<%
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
%>

[解决办法]
if tem <> Csng(rs( "zf ")) then
i=i+1
tem=Csng(rs( "zf "))
end if
[解决办法]
我试过了,这样可以的:

<%
Dim Rs
dim i '定义名次变量
dim j '参考值
dim tem
i=1
j=0
Set Rs = Conn.Execute( "Select Top 120 * From scores Where grade=8 Order By zf Desc ")
tem=rs( "zf ")
%>
<table cellspacing= "1 " cellpadding= "0 " width= "750 " bgcolor= "gainsboro " border= "0 " align= "center ">

热点排行

ASP

成绩排序有关问题，请问很多高手还未解决，哪位高手能过来帮帮小弟我