<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439" if grade<10 then Response.Redirect "../error.asp?id=439"%> <% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") connstr=Application("hg_connstr") conn.open connstr %> 江湖20攻防高手 <% const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim i,j %>
20攻击高手排行
<% dim sql dim rs dim filename sql="select * from 用户 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.movenext filename=filename+1 if filename>19 then Exit Do loop end if rs.Close set rs=nothing %>
姓名 门派 身份 攻击 防御 操作
<%=rs("姓名")%> <%=rs("门派")%> <%=rs("身份")%> <%=rs("攻击")%> <%=rs("防御")%> ">删除