分享
 
 
 

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

王朝asp·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

五子棋”是大家都非常熟悉的一种益智类游戏,相关的游戏软件也非常多,在此我向大家隆重推出一款新的纯“网络版”的五子棋,它利用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

[1] [2] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有