<%
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 姓名,门派,身份,allvalue,killyue from 用户 order by killyue 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("allvalue")%>
|
<%=rs("killyue")%> |
<%
rs.movenext
filename=filename+1
if filename>19 then Exit Do
loop
end if
rs.Close
set rs=nothing
%>