支持“外加数据库式转生“的英雄排行网页 [复制链接]

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


<%
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 ""
response.end
end if

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


%>

<%=muname%><%=muip%><%=muport%>

<% 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 %> <% rsg.close rsz.close zsc=0 gm=Empty rs.movenext i=i+1 wend rs.close %> 等级排行表 精灵 剑士 法师 圣射手 骑士 魔导师 魔剑士 总排行 名次 用户名 等级 开创日期 个人财富 PK值 转生次数 <%=i%> <%=rs("Name")%> <%=rs("cLevel")%> <% md=rs("MDate") response.write left(md,instr(md," ")) %> <%=rs("Money")%> <%=rs("PkTime")%> <% zsc=rsz("zsnum") if zsc=0 then response.write "尚未转生" else response.write "转生"&zsc&"次" end if %>

---------------------------------------------------------------------------------
原贴：http://bbs.china-mu.com/dispbbs.asp?boardID=10&ID=34660
作者：bless
---------------------------------------------------------------------------------