%
server.Execute("s_tongji.asp")
function level(i)
level="LEVEL "&i
end function
dim g_mode(2)
g_mode(1)="自由模式"
g_mode(2)="闯关模式"
level1=Array("闯关模式","LEVEL 1","LEVEL 2","LEVEL 3","LEVEL 4","LEVEL 5","LEVEL 6","LEVEL 7")
%>
记忆游戏英雄榜
| 记忆游戏英雄榜 |
|
|
<%
go=request("go")
id=request("id")
if go="" then go=1
for i=0 to 7
if int(go)=i then
response.Write(""&level1(i)&" | ")
else
response.Write(""&level1(i)&" | ")
end if
next
%>
|
| 名次 |
名字 |
成绩 |
模式 |
级别 |
游戏时间 |
观看游戏 |
<%
all=request("all")
show_num=10
if all=1 then show_num=100000
if go<>"" then
if go=0 then
sql="select * from data where g_m=2 order by g_t"
else
sql="select * from data where g_m=1 and g_l="&go&" order by g_t"
end if
else
go=1
sql="select * from data where g_m=1 and g_l=1 order by g_t"
end if
'response.Write(sql)
Set rs=server.createobject("adodb.recordset")
rs.open sql,myconn,1,1
visit_num=rs.RecordCount
i=0
flag=0
flag1=0
bg="#F2F2F2"
do while not rs.eof and flag1=0
i=i+1
if int(id)=int(rs("id")) then
bg="#dddddd"
flag=1
else
bg="#F2F2F2"
end if
if i>=show_num and (id="" or flag=1) then flag1=1
'tmp1=rs("g_n")&" 在"&rs("g_l")&"("&rs("g_m")&")中的成绩为 "&rs("g_t")&"s"
%>
| <%=i%> |
<%=rs("g_n")%> |
<%=rs("g_t")&"s"%> |
<%=g_mode(rs("g_m"))%> |
<%=level(rs("g_l"))%> |
<%=rs("date_info")%> |
" target="_blank"> 观看 |
<%
rs.movenext
loop
rs.close
if go=0 then
%>
提示: 闯关模式仅记录最后一关的游戏数据 |
<%end if%>
|
|
| = 访问我的blog! 生活从此多彩!= 联系我:发邮件给我 进入留言簿 = 下载本地版本 |