游戏欣赏--五子棋.doc

附录：游戏欣赏五子棋主文件如下：index.asp 登录文件游戏欣赏五子棋精彩春风之五子棋精英赛赛场占领者开战挑战者五星级赛场开战四星级赛场开战三星级赛场开战二星级赛场开战一星级赛场开战index0.asp 中间文件.处理变量及赋值,然后进入match.asp,正式比赛 %if Request.Form(txt & request.querystring(flag) thenresponse.write 进入 & session(nice)=Request.Form(txt & request.querystring(flag)response.write session(nice) & 用session(nice)来记录登录名,以区分用户response.write application(request.querystring(flag)if application(request.querystring(flag)= thenapplication(request.querystring(flag)=session(nice)session(class)=right(request.querystring(flag),1)if left(request.querystring(flag),1)=f thenapplication(session(nice)=falseelseif left(request.querystring(flag),1)=s thenapplication(session(nice)=false application(session(nice)是一个逻辑型变量,用来判断表示是否可以出棋.如果是假,则要等待挑战者;如果是真,可以下棋.但只有一个战场上的两个人都进入后,占领者方可以下棋,只有当占领者出子以后,挑战者手才可以下棋application(application(first & session(class)=true 以占领者身份进入则权利是first,否则是secondend ifResponse.Redirect match.aspend ifend if%match.asp 正式比赛%Response.Write 占领者: & application(first & session(class) &     挑战者： & application(second & session(class)if Request.QueryString(pos) thenapplication(pos & session(class) & Request.QueryString(pos)=trueend if%Response.Write application(aaa)if application(first & session(class)=session(nice) thencolor=blackif Request.QueryString(pos) thenif session(last)= then session(last)=abcif session(last) Request.QueryString(pos) thenapplication(application(first & session(class)=falseif application(second & session(class) then application(application(second & session(class)=truesession(last)=Request.QueryString(pos) END IFend ifelseif application(second & session(class)=session(nice) thencolor=whiteif Request.QueryString(pos) thenif session(last)= then session(last)=abcif session(last) Request.QueryString(pos) thenapplication(application(first & session(class)=trueapplication(application(second & session(class)=falsesession(last)=Request.QueryString(pos) END IFend ifelseif application(second & session(class)= thenapplication(second & session(class)=session(nice)color=whiteif Request.QueryString(pos) thenif session(last)= then session(last)=abcif session(last) Request.QueryString(pos) thenapplication(application(first & session(class)=trueapplication(application(second & session(class)=falsesession(last)=Request.QueryString(pos) END IFend ifelsecolor=end ifend ifend ifResponse.Write for i=1 to 16Response.Write for j=1 to 16if application(pos & session(class) & cstr(i) & _ & cstr(j)= thenapplication(color & session(class) & _ & Request.QueryString(pos)=colorResponse.Write response.write application(application(first & session(class)if application(session(nice)=true thenresponse.write checkerboard.jpg是棋盘图片elseresponse.write end ifresponse.write elseResponse.Write & chr(13)end ifnextResponse.Write nextResponse.Write - 输赢判断if application(first & session(class)=session(nice) thenm=blackh=whiteelseh=blackm=whiteend if- 横向判断for i=1 to 15win=falseloss=falsefive_me=0five_he=0for j=1 to 15if application(color & session(class) & _ & cstr(i) & _ & cstr(j)=m thenfive_me=five_me+1five_he=0elseif application(color & session(class) & _ & cstr(i) & _ & cstr(j)=h thenfive_me=0five_he=five_he+1elsefive_me=0five_he=0end ifif five_me=5 thenwin=trueloss=falseexit forelseif five_he=5 thenwin=falseloss=trueexit forend ifnextif win or loss then exit fornextif win thenresponse.write 你赢了！application(application(first & session(class)=falseapplication(application(second & session(class)=falseend ifif loss thenresponse.write 对不起，你输了！application(application(first & session(class)=falseapplication(application(second & session(class)=falseend if- 列向判断for j=1 to 15win=falseloss=falsefive_me=0five_he=0for i=1 to 15if application(color & session(class) & _ & cstr(i) & _ & cstr(j)=m thenfive_me=five_me+1five_he=0elseif application(color & session(class) & _ & cstr(i) & _ & cstr(j)=h thenfive_me=0five_he=five_he+1elsefive_me=0five_he=0end ifif five_me=5 thenwin=trueloss=falseexit forelseif five_he=5 thenwin=falseloss=trueexit forend ifnextif win or loss then exit fornextif win thenresponse.write 恭喜,您赢了!application(application(first & session(class)=falseapplication(application(second & session(class)=falseend ifif loss thenresponse.write 噢,您又输了!application(application(first & session(class)=falseapplication(application(second & session(class)=falseend if- 斜向判断(右上至左下方向/)for i=1 to 11win=falseloss=falsefive_me=0five_he=0for j=i+4 to 1 step -1if application(color & session(class) & _ & cstr(j) & _ & cstr(i+5-j)=m thenfive_me=five_me+1five_he=0elseif application(color & session(class) & _ & cstr(j) & _ & cstr(i+5-j)=h thenfive_me=0five_he=five_he+1elsefive_me=0five_he=0end ifif five_me=5 thenwin=trueloss=falseexit forelseif five_he=5 thenwin=falseloss=trueexit forend ifnextif win or loss then exit fornextif win thenresponse.write 恭喜,您赢了!application(application(first & session(class)=falseapplication(application(second & session(class)=falseend ifif loss thenresponse.write 噢,您又输了!application(application(first & session(class)=falseapplication(application(second & session(class)=falseend if- 斜向判断(左上至右下方向)for i=1 to 11win=falseloss=falsefive_me=0five_he=0for j=12-i to 15if application(color & session(class) & _ & cstr(13-i-j) & _ & cstr(j)=m thenfive_me=five_me+1five_he=0elseif application(color & session(class) & _ & cstr(13-i-j) & _ & cstr(j)=h thenfive_me=0five_he=five_he+1elsefive_me=0five_he=0end ifif five_me=5 thenwin=trueloss=falseexit forelseif five_he=5 thenwin=falseloss=trueexit forend ifnextif win or loss then exit fornextif win thenresponse.write 你赢了！application(application(first & session(class)=falseapplication(application(second & session(class)=falseend ifif loss thenresponse.write 对不起，你输了！application(application(first & session(class)=falseapplication(application(second & session(class)=falseend if%- 如果某点没有棋子，则加上一个超连接，根据占领者与挑战者手的区别放上一个不同颜色的棋子。最后的一段是用来判断输与赢，分为横，列和两个斜线方向。具体内容看一下就可以明白。 最后要说的一点就是global.asa ，这是站点上的一个核心文件，为了在退出棋局后，将位置留给别人，需要在sesison_onend中加入代码进行处理，如下：sub application_onstartsession.timeout=1end subsub session_onstartif application(num)= thenapplication(num)=0end ifapplication(num)=application(num)+1end subsub session_onendif application(num)= thenapplication(num)=0end ifapplication(num)=application(num)-1if application(first1)=session(nice) thenapplication(first1)=elseif application(second1)=session(nice) thenapplication(second1)=elseif applica