天天奇迹的战盟排行程序

天天奇迹的战盟排行程序

<%
job=checkstr(left(request("job"),4))
dy=checkstr(request("dy"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=muname%></title>

<script>
var oldtext="加速变量"
var colors1=new Array("#FFFFFF")//"#FFECD5","#FFF7FF","#FFFFEB","white","#F5FFEB","#EEFAFF","#FFFFEE","#EDFFFC") //随机侯选的颜色
function document.onmousemove(){ //鼠标在页面移动时触发该函数（目的碰到需要出现提示的物质时，出现随机颜色的动态提示）
try{ //排错语句，由于getAttribute(kenanfans)时对象不具备该属性会出现异常错误，所以需要排错
if(event.srcElement.getAttribute(kenanfans)) //如果鼠标触及的对象有kenanfans属性，则执行{}内程序
{
showdiv.style.left=event.x-3;showdiv.style.top=event.y+document.body.scrollTop+18; //定义showdiv图层的绝对位置
if(event.srcElement.kenanfans!=oldtext){ //如果目标kenanfans属性值不等于oldtext这个加速变量则执行括号内的更新语句，这句起到加速程序运行的作用
oldtext=event.srcElement.kenanfans; //更新加速变量为目标物质的kenanfans属性的值
showdiv.innerText=oldtext; //更新图层包含的文字
showdiv.style.backgroundColor=colors1[Math.round(Math.random()*colors1.length)] //随机更新图层的背景
};if(showdiv.style.display==none)showdiv.style.display= //如果图层被隐藏，那么再次显示
}else{if(showdiv.style.display==)showdiv.style.display=none; }}//相反隐藏图层
catch(e){} //try出错时的处理（本例不做处理）
}
</script>
<div style=position:absolute;left:0;top:0;border: 1px dashed #00CCFF;display:none;z-index:500;background-color:#FFFFFF;padding:2; padding-top:3; padding-left:6; padding-right:6;white-Space:nowrap;table-Layout:fixed; color: #0099FF;filter: Alpha(Opacity=85) id=showdiv></div>
<table border="1" width="100%" cellspacing="0" cellpadding="0" height="1" style="border-collapse: collapse" bordercolor="#111111" bordercolorlight="#000000">
<tr>
<td width="100%" height="20" colspan="6">
天堂MU排行表(每小时更新一次)</td>
</tr>
<tr>
<td width="100%" height="20" colspan="7"> <a href="?job=32">精灵</a>
<a href="?job=16">剑士</a>
<a href="?job=0">法师</a>
<a href="?job=17">骑士</a>
<a href="?job=1">魔导士</a>
<a href="?job=33">圣射手</a>
<a href="?job=48">魔剑士</a>
<a href="?job=">总排行</a>
<a href="?job=dian"></td>
</tr>
<tr>
<td width="6%" height="21" valign="middle">
名次</td>
<td width="13%" height="21" valign="middle">
名称</td>
<td width="10%" height="21" valign="middle">
等级</td>
<td width="16%" height="21" valign="middle">
财富</td>
<td width="22%" height="21" valign="middle">
状态</td>
<td width="33%" height="21" valign="middle">
日期</td>
</td>
</tr>
<%
if job="" then sql="select Name,cLevel,Class,Money,Pklevel,pkcount,MDate,ctlcode from Character order by cLevel desc"
if job<>"dian" and job<>"" then sql="select Name,cLevel,Class,Money,Pklevel,pkcount,MDate,ctlcode from Character where Class="&cint(job)&" order by cLevel desc"
if job="dian" then sql="select Name,cLevel,Class,Money,Pklevel,pkcount,MDate,ctlcode from Character order by Strength+Dexterity+Vitality+Energy desc"

if application(date()&hour(now())&job)<>"" then
response.write application(date()&hour(now())&job)
else
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1

if dy<>Empty then
response.clear
response.write "document.write(<table><tr><td colspan=3 align=center>私服排行前"&dy&"名</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(dy) then exit for
rs.movenext
next
response.write "document.write(</table>)"
response.end
else

application(date()&hour(now())&job)=""
lsstr=""
do while not rs.eof
i=i+1

set bb=server.createobject("adodb.recordset")
bbsql="select * from guildmember where name="&rs("Name")&""
bb.open bbsql,conn,1,1
if bb.eof or bb.bof then
shenfen="游侠"
else
if bb("G_level")=1 then
shenfen=bb("G_name")&"-盟主"
else
shenfen=bb("G_name")&"-成员"
end if
end if
bb.close
set bb=nothing

set zsrs=server.createobject("adodb.recordset")
zsql="select ResetNumber from CharRest where CharName="&rs("Name")&""
zsrs.open zsql,conn,1,1
zscs="尚未转生"
if not zsrs.eof then
if zsrs("ResetNumber")>0 then zscs=zsrs("ResetNumber")&"转"
end if
zsrs.close
set zsrs=nothing

lsstr=lsstr&chr(10)

lsstr=lsstr+"<tr onmouseover=this.bgColor=#eeeeFF onmouseout=this.bgColor=#E7E7E7"
lsstr=lsstr+" title=排行第"&i&chr(10)&""
lsstr=lsstr+"角色名称:"&rs("Name")&chr(10)&""
lsstr=lsstr+"身份:"&shenfen&chr(10)&""
lsstr=lsstr+"转生:"&zscs&""
lsstr=lsstr+"> <td width=6% height=21 valign=middle align=center>"&i&"</td>"
lsstr=lsstr+" <td width=13% height=21 valign=middle align=center>"

lsstr=lsstr+"<div id=div"&i&" style=overflow:hidden;word-break:break-all kenanfans="
lsstr=lsstr+"角色名:"&rs("Name")&""&"身份:"&shenfen&""&"转生:"&zscs&">"
lsstr=lsstr+rs("Name")
lsstr=lsstr+"</div></td>"

lsstr=lsstr+" <td width=10% height=21 valign=middle align=center>"&rs("cLevel")&"</td>"
lsstr=lsstr+" <td width=16% height=21 valign=middle align=center>"&rs("Money")&"</td>"
lsstr=lsstr+" <td width=22% height=21 valign=middle align=center>"

if rs("Pklevel")=3 then
lsstr=lsstr+"义士"
end if
if rs("Pklevel")<3 then
lsstr=lsstr+"英雄"
end if
if rs("Pklevel")=4 then
lsstr=lsstr+"无赖"
end if
if rs("Pklevel")=5 then
lsstr=lsstr+"恶人"
end if
if rs("Pklevel")>5 then
lsstr=lsstr+"魔头杀"&rs("pkcount")&"人"
end if
if rs("ctlcode")=8 then
lsstr=lsstr+"(GM)"
end if
if rs("ctlcode")=1 then
lsstr=lsstr+"(封)"
end if

lsstr=lsstr+"</td><td width=33% height=21 valign=middle align=center>"&rs("MDate")&"</td>"
lsstr=lsstr+"</tr>"

if i>=100 then exit do
rs.movenext
loop
application(date()&hour(now())&job)=lsstr
response.write lsstr
end if
rs.close
set rs=nothing
end if
%>
</table>
<%
if err.number<>0 then
response.write err.number&" "&err.description
end if
%>