编辑“ASP实例如1”

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

＜%@ Language=VBScript %＞ <br>
＜HTML＞ <br>
＜HEAD＞ <br>
＜META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"＞ <br>
＜title＞星球大战之“五子连珠”大赛！＜/title＞ <br>
＜/HEAD＞ <br>
＜BODY＞ <br>
　 
＜p align=center＞＜font size=6＞星球大战＜/font＞＜/P＞ <br>
＜table border=1 width=80% align=center＞ <br>
＜tr＞＜td＞星球＜/td＞＜td＞擂主＜/td＞＜td＞大战＜/td＞＜td＞攻擂＜/td＞＜/tr＞ <br>
＜tr＞ <br>
＜td＞金星＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("first1")="" then <br>
%＞ <br>
＜form action=index0.asp?flag=First1 method=post＞ <br>
＜INPUT id=text1 name=txtFirst1 size=10＞＜INPUT id=submit1 name=submit1 <br>
type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("first1") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜td＞大战＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("second1")="" then <br>
%＞ <br>
　 <br>
＜form action=index0.asp?flag=second1 method=post＞ <br>
＜INPUT id=text1 name=txtSecond1 size=10＞＜INPUT id=submit1 <br>
name=submit1 type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("Second1") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜/tr＞ <br>
　 
＜tr＞ <br>
＜td＞木星＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("first2")="" then <br>
%＞ <br>
＜form action=index0.asp?flag=First2 method=post＞ <br>
＜INPUT id=text1 name=txtFirst2 size=10＞＜INPUT id=submit1 name=submit1 <br>
type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("first2") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜td＞大战＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("second2")="" then <br>
%＞ <br>
　 
＜form action=index0.asp?flag=second2 method=post＞ <br>
＜INPUT id=text1 name=txtSecond2 size=10＞＜INPUT id=submit1 <br>
name=submit1 type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("Second2") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜/tr＞ <br>
　 
＜tr＞ <br>
＜td＞金星＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("first3")="" then <br>
%＞ <br>
＜form action=index0.asp?flag=First3 method=post＞ <br>
＜INPUT id=text1 name=txtFirst3 size=10＞＜INPUT id=submit1 name=submit1 <br>
type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("first3") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜td＞大战＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("second3")="" then <br>
%＞ <br>
　 
＜form action=index0.asp?flag=second3 method=post＞ <br>
＜INPUT id=text1 name=txtSecond3 size=10＞＜INPUT id=submit1 <br>
name=submit1 type=submit value=进入＞ <br>
＜/form＞ <br><br>
＜% <br>
else <br>
response.write application("Second3") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜/tr＞ <br>
　 
＜tr＞ <br>
＜td＞金星＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("first4")="" then <br>
%＞ <br>
＜form action=index0.asp?flag=First4 method=post＞ <br>
＜INPUT id=text1 name=txtFirst4 size=10＞＜INPUT id=submit1 name=submit1 <br>
type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("first4") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜td＞大战＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("second4")="" then <br>
%＞ <br>
　 
＜form action=index0.asp?flag=second4 method=post＞ <br>
＜INPUT id=text1 name=txtSecond4 size=10＞＜INPUT id=submit1 <br>
name=submit1 type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("Second4") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜/tr＞ <br>
　 
＜tr＞ <br>
＜td＞金星＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("first5")="" then <br>
%＞ <br>
＜form action=index0.asp?flag=First5 method=post＞ <br>
＜INPUT id=text1 name=txtFirst5 size=10＞＜INPUT id=submit1 name=submit1 <br>
type=submit value=进入＞ <br>
＜/form＞ <br>
＜% <br>
else <br>
response.write application("first5") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜td＞大战＜/td＞ <br>
＜td＞ <br>
＜% <br>
if application("second5")="" then <br>
%＞ <br>
　 
＜form action=index0.asp?flag=second5 method=post＞ <br>
＜INPUT id=text1 name=txtSecond5 size=10＞＜INPUT id=submit1 <br>
name=submit1 type=submit value=进入＞ <br>
＜/form＞ <br><br>
＜% <br>
else <br>
response.write application("Second5") <br>
end if <br>
%＞ <br>
＜/td＞ <br>
＜/tr＞　 <br>
＜/table＞ <br>
＜/BODY＞ <br>
＜/HTML＞ <br>

这个文件不用做过多的说明，就是一个大的表格，大家可以从那里进入，如果某个位置已经被使用，则它会变成该大 侠的名字，不允许重复登录。在登录后进入 <br>
index0.asp，这是一个中间交换文件，在里面进行一些变量的处理及赋值，然后再进入match.asp，进行正式的比赛。我们来看一下index0.asp的内容： <br>

＜%@ Language=VBScript %＞ <br>
＜% <br>
if Request.Form("txt" & request.querystring("flag"))＜＞"" then <br>
'response.write "in!" & "" <br>
session("nice")=Request.Form("txt" & request.querystring("flag")) <br>
'response.write session("nice") & "" <br>
'response.write application(request.querystring("flag")) <br>
if application(request.querystring("flag"))="" then <br>
application(request.querystring("flag"))=session("nice") <br>
session("class")=right(request.querystring("flag"),1) <br>
if left(request.querystring("flag"),1)="f" then <br>
application(session("nice"))=false <br>
elseif left(request.querystring("flag"),1)="s" then <br>
application(session("nice"))=false <br>
application(application("first" & session("class")))=true <br>
end if <br>
Response.Redirect "match.asp" <br>
end if <br>
　 
　 
end if <br>
　 
%＞ <br>
＜HTML＞ <br>
＜/HTML＞ <br>

该程序中，用session(“nice”)来记录您登录的大名，以后的处理中，很多都要用到它，用它来区分很多的用户。如果您是从擂主的位置进入，则您的权利是 
<br>first，否则是second，用session("class")来记录位于哪个战场场，“金”“木” <br>
“水”“火”“土”分别表示为1、2、3、4、5，因为有多个战场可能同时开战，如果不能正确地区分开，则可能导致一片混乱。application(session("nice"))是一个逻辑型变量，用真假来表示您是否可以出棋，如果是假，您要等待一个，如果是真，您就可以下棋了。只有一个战场上的两个人都进入了以后，擂主方可以下棋，而且只有当擂主出子以后，攻擂手才可以下棋。准备好以后，下面就进入赛场，请看文件match.asp  <br>
＜html＞ <br>
＜head＞ <br>
＜meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞ <br>
＜meta name="GENERATOR" content="Microsoft FrontPage 4.0"＞ <br>
＜meta name="ProgId" content="FrontPage.Editor.Document"＞ <br>
＜META http-equiv=refresh content=3＞ <br>
＜title＞连珠大赛...＜/title＞ <br>
＜/head＞ <br>
＜% <br>
Response.Write "擂主:" & application("first" & session("class")) <br>
& "    攻擂：" & application("second" & session <br>
("class")) <br>
if Request.QueryString("pos")＜＞"" then <br>
application("pos" & session("class") & Request.QueryString("pos")) <br>
=true <br>
end if <br>
%＞ <br>
＜body＞ <br>
＜% <br>
'Response.Write application("aaa") <br>
if application("first" & session("class"))=session("nice") then <br>
color="black" <br>
if Request.QueryString("pos")＜＞"" then <br>
if session("last")="" then session("last")="abc" <br>
if session("last")＜＞ Request.QueryString("pos") then <br>
application(application("first" & session("class")))=false <br>
if application("second" & session("class"))＜＞"" then application <br>
(application("second" & session("class")))=true <br>
session("last")=Request.QueryString("pos") <br>
END IF <br>
end if <br>
else <br>
if application("second" & session("class"))=session("nice") then <br>
color="white" <br>
if Request.QueryString("pos")＜＞"" then<br> 
'if session("last")="" then session("last")="abc" <br>
if session("last")＜＞ Request.QueryString("pos") then <br>
application(application("first" & session("class")))=true <br>
application(application("second" & session("class")))=false <br>
session("last")=Request.QueryString("pos") <br>
END IF <br>
end if <br>
else <br>
if application("second" & session("class"))="" then <br>
application("second" & session("class"))=session("nice") <br>
color="white" <br>
if Request.QueryString("pos")＜＞"" then <br>
if session("last")="" then session("last")="abc" <br>
if session("last")＜＞ Request.QueryString("pos") then <br>
application(application("first" & session("class")))=true <br>
application(application("second" & session("class")))=false <br>
session("last")=Request.QueryString("pos") <br>
END IF <br>
end if <br>
else <br>
color="" <br>
end if <br>
end if <br>
end if <br>
Response.Write "＜table width=400 height=400 border=0 cellspacing=0 <br>
cellpadding=0＞" <br>
for i=1 to 16 <br>
Response.Write "＜tr＞" <br>
for j=1 to 16 <br>
if application("pos" & session("class") & cstr(i) & "_" & cstr(j))="" <br>
then <br>
application("color" & session("class") & "_" & Request.QueryString <br>
("pos"))=color <br>
Response.Write "＜td width=25 height=25＞" <br>
'response.write application(application("first" & session("class"))) <br>
if application(session("nice"))=true then <br>
response.write "＜a href=match.asp?pos=" & cstr(i) & "_" & cstr(j) <br>
& "＞＜img border=0 src=back0.jpg width=25 height=25＞＜/a＞" <br>
else <br>
response.write "＜img border=0 src=back0.jpg width=25 height=25＞" <br>
end if <br>
response.write "＜/td＞" <br>
else <br>
Response.Write "＜td width=25 height=25＞＜img border=0 src=" & <br>
application("color" & session("class") & "_" & cstr(i) & "_" & cstr <br>
(j)) & "0.jpg width=25 height=25＞＜/td＞" & chr(13) <br><br>
end if <br>
next <br>
Response.Write "＜/tr＞" <br>
next <br>
Response.Write "＜/table＞" <br>
'判断输赢 <br>
if application("first" & session("class"))=session("nice") then <br>
m="black" <br>
h="white" <br>
else <br>
h="black" <br>
m="white" <br>
end if <br>
'横向判断"-" <br>
for i=1 to 15 <br>
win=false <br>
loss=false <br>
five_me=0 <br>
five_he=0 <br>
for j=1 to 15 <br>
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr <br>
(j))=m then <br>
five_me=five_me+1 <br>
five_he=0 <br>
elseif application("color" & session("class") & "_" & cstr(i) & "_" & <br>
cstr(j))=h then <br>
five_me=0 <br>
five_he=five_he+1 <br>
else <br>
five_me=0 <br>
five_he=0 
<br>end if <br>
if five_me=5 then <br>
win=true <br>
loss=false <br>
exit for <br>
elseif five_he=5 then <br>
win=false <br>
loss=true <br>
exit for <br>
end if <br>
next <br>
if win or loss then exit for <br>
next <br>
if win then <br>
response.write "你赢了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
if loss then <br>
response.write "对不起，你输了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
　 
'列向判断"|" <br>
for j=1 to 15 <br>
win=false <br>
loss=false <br>
five_me=0 <br>
five_he=0 <br>
for i=1 to 15 <br>
if application("color" & session("class") & "_" & cstr(i) & "_" & cstr <br>
(j))=m then <br>
five_me=five_me+1 <br>
five_he=0 <br>
elseif application("color" & session("class") & "_" & cstr(i) & "_" & <br>
cstr(j))=h then <br>
five_me=0 <br>
five_he=five_he+1 <br>
else <br>
five_me=0 <br>
five_he=0 <br>
end if <br>
if five_me=5 then <br>
win=true <br>
loss=false <br>
exit for <br>
elseif five_he=5 then <br>
win=false <br>
loss=true <br>
exit for <br>
end if <br>
next <br>
if win or loss then exit for <br>
next <br>
if win then <br>
response.write "你赢了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
if loss then <br>
response.write "对不起，你输了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
　 
'斜向判断"/" <br>
for i=1 to 11 <br>
win=false <br>
loss=false <br>
five_me=0 <br>
five_he=0 <br>
for j=i+4 to 1 step -1 <br>
if application("color" & session("class") & "_" & cstr(j) & "_" & cstr <br>
(i+5-j))=m then <br>
five_me=five_me+1 <br>
five_he=0 <br>
elseif application("color" & session("class") & "_" & cstr(j) & "_" & <br>
cstr(i+5-j))=h then <br>
five_me=0 <br>
five_he=five_he+1 <br>
else <br>
five_me=0 <br>
five_he=0 <br>
end if <br>
if five_me=5 then <br>
win=true <br>
loss=false <br>
exit for <br>
elseif five_he=5 then <br>
win=false <br>
loss=true <br>
exit for <br>
end if <br>
next <br>
if win or loss then exit for <br>
next <br>
if win then <br>
response.write "你赢了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
if loss then <br>
response.write "对不起，你输了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
　 
'斜向判断"\" <br>
for i=1 to 11 <br>
win=false <br>
loss=false <br>
five_me=0 <br>
five_he=0 <br>
for j=12-i to 15 <br>
if application("color" & session("class") & "_" & cstr(13-i-j) & "_" <br>
& cstr(j))=m then <br>
five_me=five_me+1 <br>
five_he=0 <br>
elseif application("color" & session("class") & "_" & cstr(13-i-j) <br>
& "_" & cstr(j))=h then <br>
five_me=0 <br>
five_he=five_he+1 <br>
else <br>
five_me=0 <br>
five_he=0 <br>
end if <br>
if five_me=5 then <br>
win=true <br>
loss=false <br>
exit for <br>
elseif five_he=5 then <br>
win=false <br>
loss=true <br>
exit for <br>
end if <br>
next <br>
if win or loss then exit for <br>
next <br>
if win then <br>
response.write "你赢了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
if loss then <br>
response.write "对不起，你输了！" <br>
application(application("first" & session("class")))=false <br>
application(application("second" & session("class")))=false <br>
end if <br>
%＞ <br>
＜/body＞ <br>
＜/html＞ <br>

如果某点没有棋子，则加上一个超连接，根据擂主与攻擂手的区别放上一个不同颜色的棋子。最后的一段是用来判断输与赢，分为横，列和两个斜线方向。具体内容看一下就可以明白。 
最后要说的一点就是global.asa ，这是站点上的一个核心文件，为了在退出棋局后，将位置留给别人，需要在sesison_onend中加入代码进行处理，如下： <br>

＜script language=vbscript runat = server＞ <br>
sub application_onstart <br>
session.timeout=1 <br>
end sub <br>
sub session_onstart <br>
if application("num")="" then <br>
application("num")=0 <br>
end if <br>
application("num")=application("num")+1 <br>
end sub <br>
＜/script＞ <br>
　 
＜script language=vbscript runat = server＞ <br>
sub session_onend <br>
if application("num")="" then <br>
application("num")=0 <br>
end if <br>
application("num")=application("num")-1 <br>
　 
if application("first1")=session("nice") then <br>
application("first1")="" <br>
elseif application("second1")=session("nice") then <br>
application("second1")="" <br>
　 
elseif application("first2")=session("nice") then <br>
application("first2")="" <br>
elseif application("second2")=session("nice") then <br>
application("second2")="" <br>
　 
elseif application("first3")=session("nice") then <br>
application("first3")="" <br>
elseif application("second3")=session("nice") then <br>
application("second3")="" <br>
　 
elseif application("first4")=session("nice") then <br>
application("first4")="" <br>
elseif application("second4")=session("nice") then <br>
application("second4")="" <br>
　 
elseif application("first5")=session("nice") then <br>
application("first5")="" <br>
elseif application("second5")=session("nice") then <br>
application("second5")="" <br>
end if <br>
for i=1 to 15 <br>
for j=1 to 15 <br>
application("color" & session("class") & "_" & cstr(i) & "_" & cstr <br>
(J))="" <br>
application("pos" & session("class") & cstr(i) & "_" & cstr(j))="" <br>
next <br>
next <br>
application(session("nice"))="" <br>
end sub <br>
＜/script＞ <br>

以上就是几个主要的文件，大家可以一试。什么，想做围棋？把棋盘改一下就可以了。 <br>
[[category:ASP]]