天天奇迹的战盟排行程序
<!--#include
file="conn.asp" -->
<%
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>
<!--#include file="Page_top.asp" -->
<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">
<p align="center"><font color="#000000">天堂MU排行表(每小时更新一次)</td>
</tr>
<tr>
<td width="100%" height="20" colspan="7">
<p align="center"><a href="?job=32"><font
color="#FF0000">精灵</font></a><font color="#FF0000">
</font><a href="?job=16"><font color="#FF0000">剑士</font></a><font
color="#FF0000">
</font><a href="?job=0"><font color="#FF0000">法师</font></a><font
color="#FF0000">
</font><a href="?job=17"><font color="#FF0000">骑士</font></a><font
color="#FF0000">
</font><a href="?job=1"><font color="#FF0000">魔导士</font></a><font
color="#FF0000">
</font><a href="?job=33"><font color="#FF0000">圣射手</font></a><font
color="#FF0000">
</font><a href="?job=48"><font color="#FF0000">魔剑士</font></a><font
color="#FF0000">
</font><a href="?job="><font color="#FF0000">总排行</font></a>
<a href="?job=dian"></td>
</tr>
<tr>
<td width="6%" height="21" valign="middle">
<p align="center"><font color="#000000">名次</font></td>
<td width="13%" 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="16%" height="21" valign="middle">
<p align="center"><font color="#000000">财富</font></td>
<td width="22%" height="21" valign="middle">
<p align="center"><font color="#000000">状态</font></td>
<td width="33%" height="21" valign="middle">
<p align="center"><font color="#000000">日期</font></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+"<font color=blue>英雄</font>"
end if
if rs("Pklevel")=4 then
lsstr=lsstr+"<font color=#F4BE2E>无赖</font>"
end if
if rs("Pklevel")=5 then
lsstr=lsstr+"<font color=#FF8400>恶人</font>"
end if
if rs("Pklevel")>5 then
lsstr=lsstr+"<font color=red>魔头</font>杀"&rs("pkcount")&"人"
end if
if rs("ctlcode")=8 then
lsstr=lsstr+"<font color=red>(GM)</font>"
end if
if rs("ctlcode")=1 then
lsstr=lsstr+"<font color=red>(封)</font>"
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&"<br>"&err.description
end if
%>
<!--#include file="Page_Down.asp" -->
|
