支持“外加数据库式转生“的英雄排行网页

<!--#include file="conn.asp" -->
<!--#include file="top.asp" -->
<%
toplist=100    '列出多少名
dbnames="zzzsss.mdb"  '转生数据库

set rs=server.createobject("adodb.recordset")
set rsz=server.createobject("adodb.recordset")
job=left(request("job"),4)
httpurl=request.servervariables("http_referer")
if instr(httpurl,SiteURL)=0 then
response.write "<script language=javascript>{alert('对不起，程序拒绝您的操作！！！请从主页登陆\n     按确定关闭！');window.close();}</script>"
response.end
end if

connstrs = "DBQ="+server.mappath(dbnames)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conns = Server.CreateObject("ADODB.Connection")
conns.Open connstrs


%>
<center>
  <table width="778" height="393" background="images/tk_bg.jpg">
   <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/tk_bg.jpg" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#000000">
          <tr>
            <td width="100%" height="20" colspan="7">
              <p align="center"><font color="#000000">等级排行表</td>
          </tr>
          <tr>
            <td width="100%" height="20" colspan="7"><p align="center">
   <a href="?job=32"><font color="#FF0000">精灵</font></a>
  <a href="?job=16"><font color="#FF0000">剑士</font></a>
               <a href="?job=0"><font color="#FF0000">法师</font></a>
   <b><a href="?job=33"><font color="#FF0000">圣射手</font></a>
  <a href="?job=17"><font color="#FF0000">骑士</font></a>
               <a href="?job=1"><font color="#FF0000">魔导师</font></a>    
               <a href="?job=48"><font color=black>魔剑士</font></a></b>                        
               <a href="?job="><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="15%" height="21" valign="middle">
              <p align="center"><font color="#000000">用户名</font></td>
            <td width="7%" height="21" valign="middle">
              <p align="center"><font color="#000000">等级</font></td>
            <td width="12%" height="21" valign="middle">
              <p align="center"><font color="#000000">开创日期</font></td>
            <td width="15%" 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">PK值</font></td>
            <td width="5%" height="21" valign="middle">
              <p align="center"><font color="#000000">转生次数</font></td>           
                        
          </tr>
<%
if job="" then
          sql="select top "&toplist&" Name,cLevel,Class,Money,PkTime,MDate from Character  order by cLevel desc"
rs.open sql,conn,1,1
else
sql="select top "&toplist&" Name,cLevel,Class,Money,PkTime,MDate from Character where Class='"&job&"' order by cLevel desc"
rs.open sql,conn,1,1
end if

i=1
while not rs.eof and i<=toplist      

zspn=rs("Name")
sqlz="select * from zs where chrname='"&zspn&"'"
rsz.open sqlz,conns,1

%>
          <tr>
            <td width="6%" height="21" valign="middle" align="center"><%=i%></td>
            <td width="13%" height="21" valign="middle" align="center"><%=rs("Name")%></td>
            <td width="10%" height="21" valign="middle" align="center"><%=rs("cLevel")%></td>
            <td width="20%" height="21" valign="middle" align="center">
<%
md=rs("MDate")
response.write left(md,instr(md," "))
%>
      </td>
            <td width="16%" height="21" valign="middle" align="center"><%=rs("Money")%></td>
            <td width="22%" height="21" valign="middle" align="center"><%=rs("PkTime")%></td>
            <td width="33%" height="21" valign="middle" align="center">
<%
zsc=rsz("zsnum")
if zsc=0 then
response.write "尚未转生"
else
response.write "转生<font color=red><B>"&zsc&"</font></b>次"
end if
%></td>
              <p align="center"></td>
          </tr>
<%
rsg.close
rsz.close
zsc=0
gm=Empty                      
rs.movenext
i=i+1
wend
rs.close      
%>
   
        </table>
        <p><img border="0" src="http://www.5uwl.net/wyjs/2005/images/bt_confirm.gif" style="cursor:hand" ></p>
        </center>
      </div>
      </td>
    </tr>
    </form>
  </table>
  
<!--#include file="copyright.asp" -->
</body>
</html>

商业完整版游戏发布站程序免费下载：www.98youx.com