当前位置 > 文字教程 > Flash AS编程教程

FLASH游戏排行镑程序

文章类别:Flash AS编程 | 发表日期:2008-10-6 18:13:34


先说ASP的,因为比较少东西
msg.asp //显示数据的页面

<%'连接名称为xfile.mdb的数据库
  set conn=server.createobject("adodb.connection")
  conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("xfile.mdb")
  set rs=server.CreateObject("adodb.recordset")
  '以上这段可以独立于一个文件,使用的时候用一个包含即可,如
  '<!--#include file="conn.asp"-->
  '其他说明:
    '修改SQL语句即可以实现当日,本周,本月,或者年度排行了
    '其次,如何加上 首页 和 尾页 连接按ィ糠嘲磁ダ锩嫘从校崛〕隼醇纯?/msg.asp?page=页数
    '加上第一,二,三,四 原理也是一样的。
       '只列出最高分的20条记录
       'sql="select top 20 * from info order by sco desc"
       '列出全部数据
       sql="select * from info order by sco desc"
    rs.open sql,conn,1,1
    if not rs.eof then
    page=1
   ' 设置变量默认PAGE=1
rs.PageSize = 5 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量
   
    if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页
        
    elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
    end if
End if
Page = rs.AbsolutePage
'fenye
%>
<%vip=1
For i = 1 to rs.PageSize
if rs.EOF then    
Exit For
end if '利用for next 循环依次读出记录
 %>
 <%
 '以下代码是让FLASH可以获取的排列形式
 'FLASH获取多个变量一般是这样的
 '变量1=9999&变量2=99455&变量3=88788
 '就是这样啦。为什么?我也不知道^_^%>
<%response.write"&sn"&vip&"="&(vip+(page-1)*5)&"&<br>&um"&vip&"="&rs("um")&"&<br>&sc"&vip&"="&rs("sco")&"&<br>"&"&dat"&vip&"="&rs("dat")&"&<br><br>"%>

<%rs.movenext'循环依次读出记录
vip=vip+1
next
%>
<%="<br>&num="%><%=page%>
<%="&<br>&nxt="%><%=page+1%>
<%="&<br>&tal="%><%=rs.pagecount%><%="&"%>
<%else%>
<%response.write"NO MSG ..."%>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

ADSCO.ASP //增加数据的页面

<% dim hero,fs
  hero=Request.Form("hero") '获取FLASH传来的姓名
  if hero="" then
  hero="无名氏" '如果玩家没有写名称
  end if
  fs=Request.Form("fs") '获取FLASH传来的分数
  set conn=server.createobject("adodb.connection")
  conn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("xfile.mdb")
  set rs=server.CreateObject("adodb.recordset")
       sql="select * from info where id=0"
    rs.open sql,conn,1,3
    rs.addnew'开始增加新数据
    rs("um")=hero
       rs("sco")=fs
    rs.update
rs.close '关闭对象
conn.close
'response.redirect("msg.asp")
%>

怎么样?够简单吧。

ACCESS数据库结构
142729