快速业务通道

FLASH 游戏排行榜程序

作者 佚名技术 来源 服务器技术 浏览 发布时间 2012-07-12


这个程序分两部分,我不会写教程所以直接贴出来而已;不明白的大家交流。(闪吧论坛交流)
首先讲ASP部分,因为比较少
显示数据的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")
’以上这段可以独立于一个文件,使用的时候用一个包含即可,如

’其他说明:
’修改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)&"&
&um"&vip&"="&rs("um")&"&
&sc"&vip&"="&rs("sco")&"&
"&"&dat"&vip&"="&rs("dat")&"&

"%>
<%rs.movenext’循环依次读出记录
vip=vip+1
next
%>
<%="
&num="%><%=page%>
<%="&
&nxt="%><%=page+1%>
<%="&
&tal="%><%=rs.pagecount%><%="&"%>
<%else%>
<%response.write"NO MSG ..."%>
<%end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%> 增加数据的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")
%> 数据库 按此在新窗口浏览图片
呵呵,不是很复杂吧?

以下是FLASH的部分,因为XML还不是很熟思,所以用的是LOADVARS对象,没有使用XML的LOADVARS。

发送分数帧AS
stop();//as for frame 在此帧做一个发送的MC
onClipEvent (data) {//as for mc
this.gotoAndStop("done");
_root.play();
} MC内部的结构 两个文本 1.输入文本 变量名为:hero 2.动态文本:变量名为:fs;
第一帧AS stop();
fs=random(9001)+1000; 现在是模拟,所以分数是随机生成
按此在新窗口浏览图片

发送按钮AS
on (release) {
System.useCodepage=true;//支持显示中文
this.loadVariables("adsco.asp", "POST");
gotoAndStop("loading");
} LOADING部分可以自由发挥,做个漂亮的LOADING动画,

显示数据页面

按此在新窗口浏览图片

帧AS代码
System.useCodepage=true;

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号