要固定的排名顺序，就算没有人排野山给他空着排名顺序，先谢谢各位热心的朋友帮忙了
<%
Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "xs","sa","123456"
sersql="select xm,yj from baobiao order by b.yj desc"
Set rs=OBJConn.Execute (sersql)
%>

<tr>
<td>姓名</td>
<td>业绩</td>

<tr>
<%do while not rs.eof%>
<tr>
<td><%=rs("xm")%></td>
<td><%=rs("yj")%></td>

</tr>

<%

<%max=100'设置排多少名
for i=1 to max
if not rs.eof then
yj=rs("yj")
xm=rs("xm")
else
yj="&nbsp;"
xm="&nbsp;"
end if%>
<tr>
<td><%-i%></td>
<td><%xm=%></td>
<td><%=yj%></td>

</tr>

<%if not rs.eof then
rs.movenext
end if
next%>