|
<!--#include file="conn.asp" -->
<!--#include
file="top.asp" -->
<%
dim m,n
set
rs=server.createobject("adodb.recordset")
job1=request("job1")
job1=left(request("job1"),4)
job2=left(request("job2"),4)
rs.pagesize=100
nowpage=left(request("page"),8)
if
nowpage&"x"="x" then
nowpage=1
else
nowpage=cint(nowpage)
end
if
rs.absolutepage=nowpage
%>
<center>
<table
width="778" height="393" background="images/top_bg5.gif">
<form
action="userrz_ok.asp" method="post">
<tr>
<td
width="750" height="35" valign="middle">
<p
align="center"><font size=+1><b><%=muname%>
<%=muip%> <%=muport%></b></font></p>
</td>
</tr>
<tr>
<td height="353" valign="top">
<div
align="center">
<center>
<table border="1" width="82%"
cellspacing="0" cellpadding="0" height="103"
background="images/top_bg5.gif" style="border-collapse: collapse"
bordercolor="#111111"
bordercolorlight="#000000">
<tr>
<td width="100%"
height="20" colspan="9">
<p align="center"><font
color="#000000">等级排行表</td>
</tr>
<tr>
<td
width="100%" height="20" colspan="9">
<p align="center"><a
href="?job1=32&job2=33"><font
color="#ff0000">精灵</font></a><font color="#FF0000">
</font><a href="?job1=16&job2=17"><font
color="#FF0000">剑士</font></a><font color="#FF0000">
</font><a href="?job1=0&job2=1"><font
color="#FF0000">法师</font></a><font color="#FF0000">
</font><a href="?job1=48&job2=48"><font
color="#FF0000">魔剑士</font></a><font color="#FF0000">
</font><a href="?job1="><font
color="#FF0000">总排行</font></a></td>
</tr>
<tr>
<td
width="6%" height="21" valign="middle">
<p
align="center"><font
color="#000000">名次</font></td>
<td width="14%"
height="21" valign="middle">
<p align="center"><font
color="#000000">用户名</font></td>
<td width="5%"
height="21" valign="middle">
<p align="center"><font
color="#000000">转生</font></td>
<td width="10%"
height="21" valign="middle">
<p align="center"><font
color="#000000">等级</font></td>
<td width="11%"
height="21" valign="middle">
<p align="center"><font
color="#000000">PK值</font></td>
<td width="6%"
height="21" valign="middle">
<p align="center"><font
color="#000000">PK数</font></td>
<td width="18%"
height="21" valign="middle">
<p align="center"><font
color="#000000">个人财富</font></td>
<td width="20%"
height="21" valign="middle">
<p align="center"><font
color="#000000">创建日期</font></td>
</td>
</tr>
<%if job1="" then
sql="select top
500 Name,clifecount,cLevel,Class,PkTime,pkcount,Money,MDate from Character
order by mingci,clifecount desc,cLevel desc"
rs.open
sql,conn,1,1
tatalrecord=rs.recordcount
tatalpages=rs.pagecount
rs.movefirst
if
nowpage&"x"="x" then
else
nowpage=cint(nowpage)
end
if
rs.absolutepage=nowpage
else
sql="select
Name,clifecount,cLevel,Class,PkTime,pkcount,Money,MDate from Character
where Class="&job1&" or class="&job2&" order by
mingci,clifecount desc,cLevel desc"
rs.open sql,conn,1,1
end
if
if left(request("dy"),8)<>Empty
then
response.clear
response.write
"document.write(<table><tr><td colspan=3
align=center>私服排行前"&left(request("dy"),8)&"名</td></tr>);"
for
n=1 to rs.recordcount
if not rs.eof then
response.write
"document.write(<tr><td>第"&n&"名</td><td>"&rs("Name")&"</td><td>"&rs("cLevel")&"级</td></tr>);"
else
exit
for
end if
if n>=int(left(request("dy"),8)) then exit
for
rs.movenext
next
response.write
"document.write(</table>)"
response.end
else
%>
<%n=1
m=nowpage*rs.pagesize-rs.pagesize+1
while not
rs.eof and n<=rs.pagesize
%>
<%
m=nowpage*rs.pagesize-rs.pagesize+1
%>
<tr>
<td width="6%" height="21" valign="middle"
align="center"><%=m%></td>
<td width="14%"
height="21" valign="middle"
align="center"><%=rs("Name")%></td>
<td width="5%"
height="21" valign="middle"
align="center"><%=rs("clifecount")%></td>
<td
width="10%" height="21" valign="middle"
align="center"><%=rs("cLevel")%></td>
<td width="11%"
height="21" valign="middle"
align="center"><%=rs("PkTime")%></td>
<td width="6%"
height="21" valign="middle"
align="center"><%=rs("Pkcount")%></td>
<td
width="18%" height="21" valign="middle"
align="center"><%=rs("Money")%></td>
<td width="20%"
height="21" valign="middle"
align="center"><%=rs("MDate")%></td>
<p
align="center"></td>
</tr>
<%
n=n+1
m=m+1
rs.movenext
wend
end if
rs.close
%>
</table>
<Br>
共:<%=tatalpages%>页
当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a
class=null
href="?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end
if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage
then %>
<a class=null
href="?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end
if%>
<%next%>
<%if nowpage < tatalpages
then%>
<a class=null
href="?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1
then%>
<a class=null href="?page=<%=1%>">
首页</a>
<%else%>
首页
<%end if%>
<%if
nowpage<>tatalpages then %>
<a class=null
href="?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end
if%>
<p><img border="0" src="images/bt_confirm.gif"
style="cursor:hand"
onclick="javascript:top.location.href=index.asp"></p>
</center>
</div>
</td>
</tr>
</form>
</table>
<!--#include file="copyright.asp"
-->
</body>
</html>
上一篇文章：查询、删除被修改出的BT人物脚本 下一篇文章: 按转生排名无漏洞简洁版(外接转生数据库)
|
