<% Player = "" Rank = "" GameName = "" GameID=Request.QueryString("GameID") ScoreID=Request.QueryString("ScoreID") Desc = "" '显示所有游戏 if( GameID="" and ScoreID="" ) then GetGameList end if ScoreList = "" '显示本游戏所有积分 if( GameID<>"" and (ScoreID="" or ScoreID="undefined") ) then ScoreList = GetScoreList end if if( GameID<>"" and ScoreID<>"" and ScoreID<>"undefined" ) then ScoreList = GetScoreList Score = GetScore end if %> 时光机器 游戏积分排行
提升之道 数学 | 健康 | 文史 | 打字 | 外语 | 商业 | 物理 | 记忆 | 经典 | 
快乐生活研究院
<% if ScoreID<>"" then %>

<% 'response.write ScoreID if ScoreID<>"undefined" then %> 祝贺<%=Player%>,您的得分是<%=Score%>,目前排在第<%=GetRank%>名 <%else%> 提交失败,返回原始游戏页面(http://www.timeandgame.com) <% end if %>


<% end if %>
游戏帮助(Help):<%=Desc%>
首页 - <%=GameName%> - 玩家排名(前50名)
<%=ScoreList%>

时光机器(TimeAndGame.com)研究如何在游戏中加速学习,管理时间,获取各种定律,情绪管理,健康管理,投资管理和快乐生活

<% function GetRank set rs=server.CreateObject("adodb.recordset") rs.Open "select count(*) from Score Where GameID="&GameID&" and Score>="&Score,conn,1,3 if( not rs.EOF ) then GetRank = rs(0) end if rs.close end function function GetGameList set rs=server.CreateObject("adodb.recordset") rs.Open "select * from Game",conn,1,3 while( not rs.EOF ) GetGameList=GetGameList&""&rs("Name")&" " rs.MoveNext wend end function '显示本游戏所有积分 function GetScoreList set rs=server.CreateObject("adodb.recordset") rs.Open "select * from Game Where ID="&GameID,conn,1,3 if( not rs.EOF ) then GameName = rs("Name") Desc = rs("Desc") ImgUrl = rs("ImgUrl") Url = rs("Url") end if rs.close rs.Open "select * from Score Where GameID="&GameID&" order by Score desc,id",conn,1,3 i=1 GetScoreList = ""&chr(13)&""&chr(13) while( not rs.EOF and i<50 ) GetScoreList = GetScoreList&""&chr(13) i= i +1 if( ScoreID<>"undefined" and ScoreID<>"" ) then if( rs("ID") - ScoreID = 0 ) then Player=rs("Player") Rank = i end if end if rs.MoveNext wend GetScoreList = GetScoreList&"
排名昵称得分
" GetScoreList = GetScoreList&i&"" GetScoreList = GetScoreList&rs("Player")&"" GetScoreList = GetScoreList&rs("Score")&"
" rs.close End function '显示本游戏分数 function GetScore set rs=server.CreateObject("adodb.recordset") rs.Open "select * from Score Where ID="&ScoreID,conn,1,3 if( not rs.EOF ) then GetScore = rs("Score") end if rs.close End function %>