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 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇: 用flash制作360度人物旋转下一篇: 对齐对象示例
关于FLASH 游戏排行榜程序的所有评论