标题:asp拼图游戏
摘要: 这个根据jsp的那个拼图游戏思路改写的一个asp拼图
难度:
作者:吕海鹏
来自:it学习网原创
更新日志:
参考文档:
致谢:
讨论网址: http://bbs.deepteach.com
标签(Tags):asp拼图游戏
摘要: 这个根据jsp的那个拼图游戏思路改写的一个asp拼图
难度:
这个根据jsp的那个拼图游戏思路改写的一个asp拼图,
代码如下:
<divalign="center"><h1>排字游戏(拼图游戏)</h1></div> <ahref="pinzi.asp">开始新游戏</a> <hr/> <% action=request.Querystring("action")’通过action参数来选择要调用的游戏函数 Ifaction=""Oraction="start"then Callstart()’调用开始函数 EndIf Ifaction="see"Then Callsee()’调用显示函数 Endif Ifaction="move"Then Callmove()’调用处理函数 EndIf %> <% ’======游戏初始化函数================================= Substart() Dimges(3,3) shu=0 Randomize’Randomize是随机初始化,使用rnd之前必须要先来一句Randomize forh=0To2 forl=0To2 ges(h,l)=shu shu=shu+1 next next Forci=0To10 h1=Int(3*Rnd()) l1=Int(3*Rnd()) h2=Int(3*Rnd()) l2=Int(3*Rnd()) linshi=ges(h1,l1) ges(h1,l1)=ges(h2,l2) ges(h2,l2)=linshi next session("ges")=ges response.Redirect("?action=see") EndSub ’======游戏界面显示函数================================= Subsee() %> <% ’dimges(3,3) ges=session("ges") %> <tablewidth="300"align="center"border="1"height="300"> <% forh=0to2 %> <tr> <% forl=0To2 %> <tdalign="center"onmouseover="this.bgColor=’#CCFFFF’"onmouseout="this.bgColor=’#ffffff’"> <% if(ges(h,l)<>0)then %> <ahref="?h=<%=h%>&l=<%=l%>&action=move"> <h1><%=ges(h,l)%></h1> </a> <% else %> <%Endif%> </td> <% next %> </tr> <% next %> </table> <% EndSub ’======游戏处理函数================================= Submove() %> <% ’Dimges(3,3) ges=session("ges") h=request.Querystring("h") l=request.Querystring("l") if(h>0)Then If(ges(h-1,l)=0)then ges(h-1,l)=ges(h,l) ges(h,l)=0 Endif Endif if(h<2andges(h+1,l)=0)then ges(h+1,l)=ges(h,l) ges(h,l)=0 Endif if(l>0)then if(ges(h,l-1)=0)then ges(h,l-1)=ges(h,l) ges(h,l)=0 Endif EndIf if(l<2andges(h,l+1)=0)then ges(h,l+1)=ges(h,l) ges(h,l)=0 EndIf session("ges")=ges response.Redirect("?action=see") %> <% Endsub %> <divalign="center"> <hr/> <br/> <iframeid="baiduframe"border="0"vspace="0"hspace="0"marginwidth="0"marginheight="0"framespacing="0"frameborder="0"scrolling="no"width="468"height="40"src="http://unstat.baidu.com/bdun.bsc?tn=advert&cv=1&cid=136707&csid=107&rkcs=4&bgcr=FFFFFF&ftcr=0000CC&rk=1&bd=0&tbsz=&tbst=&bdas=0"></iframe> <br/>Copyright©2005-2008<ahref=’http://www.DeepTeach.com’>深度开发</a> <scriptlanguage="JavaScript"type="text/javascript"src="http://w.50bang.com/click.js?user_id=142235&l=602"></script> <divstyle="display:none"> <scriptlanguage="JavaScript"type="text/javascript"src="http://union1.50bang.com/click.js?user_id=503659&l=901"charset="gb2312"></script> </div> <br/>站长:吕海鹏 <br/>程序开发:<ahref="http://www.itstudy.cn/"target="_blank">吕海鹏</a> </div> |
作者:吕海鹏
来自:it学习网原创
更新日志:
参考文档:
致谢:
讨论网址: http://bbs.deepteach.com
标签(Tags):asp拼图游戏