<% 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" %> <% rs.movenext loop rs.close if go=0 then %> <%end if%>
名次 名字 成绩 模式 级别 游戏时间 观看游戏
<%=i%> <%=rs("g_n")%> <%=rs("g_t")&"s"%> <%=g_mode(rs("g_m"))%> <%=level(rs("g_l"))%> <%=rs("date_info")%> " target="_blank"> 观看
提示: 闯关模式仅记录最后一关的游戏数据   
<% if visit_num>10 then if all=1 then %> 仅列出前十名 <%else%> 列出全部记录(共有<%=visit_num%>份记录) <%end if end if %>

= 访问我的blog! 生活从此多彩!= 联系我:发邮件给我 进入留言簿 = 下载本地版本