<%
dim sql
dim rs
dim filename
Set conn=Server.CreateObject("ADODB.CONNECTION")
Set rs=Server.CreateObject("ADODB.RecordSet")
connstr=Application("hg_connstr")
conn.open connstr
sql="select 姓名,门派,身份,武功,体力 from 用户 where 身份='掌门' and 门派<>'六扇门' order by 武功 desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
没有可排行的对象
"
else
%>
| 姓
名 |
门
派 |
身
份 |
武
功 |
体
力 |
<%do while not rs.eof%>
| <%=rs("姓名")%>
|
<%=rs("门派")%>
|
<%=rs("身份")%> |
<%=rs("武功")%>
|
<%=rs("体力")%> |
<%
rs.movenext
filename=filename+1
if filename>19 then Exit Do
loop
end if
rs.Close
set rs=nothing
%>