网页教学网
　当前位置： 网页教学网 >> 网络编程 >> ASP编程技术 >> 阅读：用ASP实现网上“五子棋”大赛
[ HTML ] [ FW ] [ DW ] [ FP ] [ JS ] [ XML ] [ CSS ] [ 图象 ] [ FLASH ] [ .NET ] [ ASP ] [ JSP ] [ PHP ] [ 数据 ] [ 系统 ] [ 安全 ] [ 素材 ] [ 建站 ] [ 主机 ] [ 入门 ] [ 技巧 ]

用ASP实现网上“五子棋”大赛

http://www.webjx.com  更新日期：2005-11-13 08:58  出处：  作者：

“五子棋”是大家都非常熟悉的一种益智类游戏，相关的游戏软件也非常多，在此我向大家隆重推出一款新的纯“网络版”的五子棋，它利用ASP做为开发环境，因此在Internet上对战的时候无需下载客户端软件，只要你有一个浏览器就可以了。你也可以在局域网上进行这个游戏。
对于ASP，我不想做过多的说明，在以前的文章中，我已经说过很多。
游戏的过程是这样的，我们首先登录，然后可以选择战场，有“金星”、“木星”、“水星”、“火星”、“土星”等五个战场，如果你自认为是一个高手，可以选择金星，否则可以依次选择其它几个星球做为战场。如果这个星球上没有擂主，你就应该以擂主的身份进入，然后别人就可以和你进行对战了。当然，如果所有的星球上都已经开始了战争，那么你就只能等一会儿了。
如果你是以擂主身份进入的，你可以等待别人来和你对战，如果你是以攻擂手的身份登录，你可以很快的和擂主展开战斗。开始战斗后，由擂主执黑先行，然后由攻擂手出招，如此这般。当最后决出胜负的时候，会有相应的提示。
该站点有几个主要的文件是：
Index.asp 登录文件：
Index0.asp中间文件：
Match.asp 比赛文件：
Back0.jpg white0.jpg black0.jpg 中间用到的图形文件，分别指的棋盘，白子和黑子，如下图：
在程序的初始化的时候，将棋盘上分成若干的表格，将背景图片放入其中，形成一个棋盘，然后在放上一个棋子后，再将图片换上相应的白子或黑子就可以了。
先看看登录文件：


＜%@ Language=VBScript %＞
＜HTML＞
＜HEAD＞
＜META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"＞
＜title＞星球大战之“五子连珠”大赛！＜/title＞
＜/HEAD＞
＜BODY＞
　
＜p align=center＞＜font size=6＞星球大战＜/font＞＜/P＞
＜table border=1 width=80% align=center＞
＜tr＞＜td＞星球＜/td＞＜td＞擂主＜/td＞＜td＞大战＜/td＞＜td＞攻擂＜/td＞＜/tr＞
＜tr＞
＜td＞金星＜/td＞
＜td＞
＜%
if application("first1")="" then
%＞
＜form action=index0.asp?flag=First1 method=post＞
＜INPUT id=text1 name=txtFirst1 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜%
else
response.write application("first1")
end if
%＞
＜/td＞
＜td＞大战＜/td＞
＜td＞
＜%
if application("second1")="" then
%＞
　
＜form action=index0.asp?flag=second1 method=post＞
＜INPUT id=text1 name=txtSecond1 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
＜%
else
response.write application("Second1")
end if
%＞
＜/td＞
＜/tr＞
　
＜tr＞
＜td＞木星＜/td＞
＜td＞
＜%
if application("first2")="" then
%＞
＜form action=index0.asp?flag=First2 method=post＞
＜INPUT id=text1 name=txtFirst2 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜%
else
response.write application("first2")
end if
%＞
＜/td＞
＜td＞大战＜/td＞
＜td＞
＜%
if application("second2")="" then
%＞
　
＜form action=index0.asp?flag=second2 method=post＞
＜INPUT id=text1 name=txtSecond2 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
＜%
else
response.write application("Second2")
end if
%＞
＜/td＞
＜/tr＞
　
＜tr＞
＜td＞金星＜/td＞
＜td＞
＜%
if application("first3")="" then
%＞
＜form action=index0.asp?flag=First3 method=post＞
＜INPUT id=text1 name=txtFirst3 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜%
else
response.write application("first3")
end if
%＞
＜/td＞
＜td＞大战＜/td＞
＜td＞
＜%
if application("second3")="" then
%＞
　
＜form action=index0.asp?flag=second3 method=post＞
＜INPUT id=text1 name=txtSecond3 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
＜%
else
response.write application("Second3")
end if
%＞
＜/td＞
＜/tr＞
　
＜tr＞
＜td＞金星＜/td＞
＜td＞
＜%
if application("first4")="" then
%＞
＜form action=index0.asp?flag=First4 method=post＞
＜INPUT id=text1 name=txtFirst4 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜%
else
response.write application("first4")
end if
%＞
＜/td＞
＜td＞大战＜/td＞
＜td＞
＜%
if application("second4")="" then
%＞
　
＜form action=index0.asp?flag=second4 method=post＞
＜INPUT id=text1 name=txtSecond4 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
＜%
else
response.write application("Second4")
end if
%＞
＜/td＞
＜/tr＞
　
＜tr＞
＜td＞金星＜/td＞
＜td＞
＜%
if application("first5")="" then
%＞
＜form action=index0.asp?flag=First5 method=post＞
＜INPUT id=text1 name=txtFirst5 size=10＞＜INPUT id=submit1 name=submit1
type=submit value=进入＞
＜/form＞
＜%
else
response.write application("first5")
end if
%＞
＜/td＞
＜td＞大战＜/td＞
＜td＞
＜%
if application("second5")="" then
%＞
　
＜form action=index0.asp?flag=second5 method=post＞
＜INPUT id=text1 name=txtSecond5 size=10＞＜INPUT id=submit1
name=submit1 type=submit value=进入＞
＜/form＞
＜%
else
response.write application("Second5")
end if
%＞
＜/td＞
＜/tr＞　
＜/table＞
＜/BODY＞
＜/HTML＞
这个文件不用做过多的说明，就是一个大的表格，大家可以从那里进入，如果某个位置已经被使用，则它会变成该大 侠的名字，不允许重复登录。在登录后进入
index0.asp，这是一个中间交换文件，在里面进行一些变量的处理及赋值，然后再进入match.asp，进行正式的比赛。我们来看一下index0.asp的内容：

＜%@ Language=VBScript %＞
＜%
if Request.Form("txt" & request.querystring("flag"))＜＞"" then
'response.write "in!" & ""
session("nice")=Request.Form("txt" & request.querystring("flag"))
'response.write session("nice") & ""
'response.write application(request.querystring("flag"))
if application(request.querystring("flag"))="" then
application(request.querystring("flag"))=session("nice")
session("class")=right(request.querystring("flag"),1)
if left(request.querystring("flag"),1)="f" then
application(session("nice"))=false
elseif left(request.querystring("flag"),1)="s" then
application(session("nice"))=false
application(application("first" & session("class")))=true
end if
Response.Redirect "match.asp"
end if
　
　
end if
　
%＞
＜HTML＞
＜/HTML＞
该程序中，用session(“nice”)来记录您登录的大名，以后的处理中，很多都要用到它，用它来区分很多的用户。如果您是从擂主的位置进入，则您的权利是
first，否则是second，用session("class")来记录位于哪个战场场，“金”“木”
“水”“火”“土”分别表示为1、2、3、4、5，因为有多个战场可能同时开战，如果不能正确地区分开，则可能导致一片混乱。application(session("nice"))是一个逻辑型变量，用真假来表示您是否可以出棋，如果是假，您要等待一个，如果是真，您就可以下棋了。只有一个战场上的两个人都进入了以后，擂主方可以下棋，而且只有当擂主出子以后，攻擂手才可以下棋。准备好以后，下面就进入赛场，请看文件match.asp

＜html＞
＜head＞
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞
＜meta name="ProgId" content="FrontPage.Editor.Document"＞
＜META http-equiv=refresh content=3＞
＜title＞连珠大赛...＜/title＞
＜/head＞
＜%
Response.Write "擂主:" & application("first" & session("class"))
& "    攻擂：" & application("second" & session
("class"))
if Request.QueryString("pos")＜＞"" then
application("pos" & session("class") & Request.QueryString("pos"))
=true
end if
%＞
＜body＞
＜%
'Response.Write application("aaa")
if application("first" & session("class"))=session("nice") then
color="black"
if Request.QueryString("pos")＜＞"" then
if session("last")="" then session("last")="abc"
if session("last")＜＞ Request.QueryString("pos") then
application(application("first" & session("class")))=false
if application("second" & session("class"))＜＞"" then application
(application("second" & session("class")))=true
session("last")=Request.QueryString("pos")
END IF
end if
else
if application("second" & session("class"))=session("nice") then
color="white"
if Request.QueryString("pos")＜＞"" then
'if session("last")="" then session("last")="abc"
if session("last")＜＞ Request.QueryString("pos") then
application(application("first" & session("class")))=true
application(application("second" & session("class")))=false
session("last")=Request.QueryString("pos")
END IF
end if
else
if application("second" & session("class"))="" then
application("second" & session("class"))=session("nice")
color="white"
if Request.QueryString("pos")＜＞"" then
if session("last")="" then session("last")="abc"
if session("last")＜＞ Request.QueryString("pos") then
application(application("first" & session("class")))=true
application(application("second" & session("class")))=false
session("last")=Request.QueryString("pos")
END IF
end if
else
color=""
end if
end if
end if
Response.Write "＜table width=400 height=400 border=0 cellspacing=0
cellpadding=0＞"
for i=1 to 16
Response.Write "＜tr＞"
for j=1 to 16
if application("pos" & session("class") & cstr(i) & "_" & cstr(j))=""
then
application("color" & session("class") & "_" & Request.QueryString
("pos"))=color
Response.Write "＜td width=25 height=25＞"
'response.write application(application("first" & session("class")))
if application(session("nice"))=true then
response.write "＜a href=match.asp?pos=" & cstr(i) & "_" & cstr(j)
& "＞＜img border=0 src=back0.jpg width=25 height=25＞＜/a＞"
else
response.write "＜img border=0 src=back0.jpg width=25 height=25＞"
end if
response.write "＜/td＞"
else
Response.Write "＜td width=25 height=25＞＜img border=0 src=" &
application("color" & session("class") & "_" & cstr(i) & "_" & cstr
(j)) & "0.jpg width=25 height=25＞＜/td＞" & chr(13)
end if
next
Response.Write "＜/tr＞"
next
Response.Write "＜/table＞"
'判断输赢
if application("first" & session("class"))=session("nice") then
m="black"
h="white"
else
h="black"
m="white"
end if
'横向判断"-"
for i=1 to 15
win=false
loss=false
five_me=0
five_he=0
for j=1 to 15
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr
(j))=m then
five_me=five_me+1
five_he=0
elseif application("color" & session("class") & "_" & cstr(i) & "_" &
cstr(j))=h then
five_me=0
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then
win=true
loss=false
exit for
elseif five_he=5 then
win=false
loss=true
exit for
end if
next
if win or loss then exit for
next
if win then
response.write "你赢了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
　
'列向判断"|"
for j=1 to 15
win=false
loss=false
five_me=0
five_he=0
for i=1 to 15
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr
(j))=m then
five_me=five_me+1
five_he=0
elseif application("color" & session("class") & "_" & cstr(i) & "_" &
cstr(j))=h then
five_me=0
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then
win=true
loss=false
exit for
elseif five_he=5 then
win=false
loss=true
exit for
end if
next
if win or loss then exit for
next
if win then
response.write "你赢了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
　
'斜向判断"/"
for i=1 to 11
win=false
loss=false
five_me=0
five_he=0
for j=i+4 to 1 step -1
if application("color" & session("class") & "_" & cstr(j) & "_" & cstr
(i+5-j))=m then
five_me=five_me+1
five_he=0
elseif application("color" & session("class") & "_" & cstr(j) & "_" &
cstr(i+5-j))=h then
five_me=0
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then
win=true
loss=false
exit for
elseif five_he=5 then
win=false
loss=true
exit for
end if
next
if win or loss then exit for
next
if win then
response.write "你赢了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
　
'斜向判断"\"
for i=1 to 11
win=false
loss=false
five_me=0
five_he=0
for j=12-i to 15
if application("color" & session("class") & "_" & cstr(13-i-j) & "_"
& cstr(j))=m then
five_me=five_me+1
five_he=0
elseif application("color" & session("class") & "_" & cstr(13-i-j)
& "_" & cstr(j))=h then
five_me=0
five_he=five_he+1
else
five_me=0
five_he=0
end if
if five_me=5 then
win=true
loss=false
exit for
elseif five_he=5 then
win=false
loss=true
exit for
end if
next
if win or loss then exit for
next
if win then
response.write "你赢了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
if loss then
response.write "对不起，你输了！"
application(application("first" & session("class")))=false
application(application("second" & session("class")))=false
end if
%＞
＜/body＞
＜/html＞
如果某点没有棋子，则加上一个超连接，根据擂主与攻擂手的区别放上一个不同颜色的棋子。最后的一段是用来判断输与赢，分为横，列和两个斜线方向。具体内容看一下就可以明白。
最后要说的一点就是global.asa ，这是站点上的一个核心文件，为了在退出棋局后，将位置留给别人，需要在sesison_onend中加入代码进行处理，如下：


＜script language=vbscript runat = server＞
sub application_onstart
session.timeout=1
end sub
sub session_onstart
if application("num")="" then
application("num")=0
end if
application("num")=application("num")+1
end sub
＜/script＞
　
＜script language=vbscript runat = server＞
sub session_onend
if application("num")="" then
application("num")=0
end if
application("num")=application("num")-1
　
if application("first1")=session("nice") then
application("first1")=""
elseif application("second1")=session("nice") then
application("second1")=""
　
elseif application("first2")=session("nice") then
application("first2")=""
elseif application("second2")=session("nice") then
application("second2")=""
　
elseif application("first3")=session("nice") then
application("first3")=""
elseif application("second3")=session("nice") then
application("second3")=""
　
elseif application("first4")=session("nice") then
application("first4")=""
elseif application("second4")=session("nice") then
application("second4")=""
　
elseif application("first5")=session("nice") then
application("first5")=""
elseif application("second5")=session("nice") then
application("second5")=""
end if
for i=1 to 15
for j=1 to 15
application("color" & session("class") & "_" & cstr(i) & "_" & cstr
(J))=""
application("pos" & session("class") & cstr(i) & "_" & cstr(j))=""
next
next
application(session("nice"))=""
end sub
＜/script＞
以上就是几个主要的文件，大家可以一试。什么，想做围棋？把棋盘改一下就可以了。
祝大家成功！

关键词：
【推荐给好友】【关闭】【收藏本文】
最新五条评论
查看全部评论
评论总数 0 条
您的评论
用户名： （新注册） 密　码： 匿名：
·用户发表意见仅代表其个人意见，并且承担一切因发表内容引起的纠纷和责任
·本站管理人员有权在不通知用户的情况下删除不符合规定的评论信息或留做证据
·请客观的评价您所看到的资讯，提倡就事论事，杜绝漫骂和人身攻击等不文明行为
站内搜索
标题作者内容

　 热门关键字： HTML CSS 网页 动画 Photoshop Web标准 Web黑客 优化 入门 非主流 照片处理
相关文章
推荐文章
  1. Photoshop神功再现：抠出墨的流动效果
  2. 用DW制作网页时关于文字自动换行的小技巧
  3. 买完正版Vista机型却要改装盗版XP的悲哀
  4. 照片处理 Photoshop打造真实的铅笔素描画
  5. Photoshop照片合成实例教程：为照片添加烟花
  6. Photoshop制作用图片填充图片的错觉效果
  7. 完美曲线:Photoshop打造靓丽美女
  8. Photoshop把照片制作成泛黄色陈旧效果
  9. Photoshop简单把照片处理为逼真水彩画
  10. Photoshop红粉佳人教程:刘方肤色的最终破解
  11. Photoshop照片合成教程：制作好莱坞风格电影海
  12. 入门：Photoshop中把文字做为自定义形状使用
热点资讯
  1. 网站放弃SEO(搜索引擎优化)照样也能取得成功
  2. 新手学习如何制作Linux系统的安装光盘？
  3. 浅析Ubuntu Linux Server的用户安全问题
  4. Linux系统下的动态DNS服务配置方法详解
  5. 通过分析SQL语句的执行计划优化SQL(五)
  6. 安装SQL Server2K可能引发一个严重问题
  7. 快速解决SYBASE编程中所遇到的莫名错误
  8. 查出前台正在发出的sql语句的方法
  9. 巧用SQL的全局临时表防止用户重复登录
  10. 最影响Oracle系统性能有哪些初始化参数?
  11. 解析ASP与SQL server互操作的时间处理
  12. 通过分析SQL语句的执行计划优化SQL(六)