用ASP實現網上“五子棋”大賽

來源:互聯網
上載者:User
“五子棋”是大家都非常熟悉的一種益智類遊戲,相關的遊戲軟體也非常多,在此我向大家隆重推出一款新的純“網路版”的五子棋,它利用ASP做為開發環境,因此在Internet上對戰的時候無需下載用戶端軟體,只要你有一個瀏覽器就可以了。你也可以在區域網路上進行這個遊戲。

   對於ASP,我不想做過多的說明,在以前的文章中,我已經說過很多。

   遊戲的過程是這樣的,我們首先登入,然後可以選擇戰場,有“金星”、“木星”、“水星”、“火星”、“土星”等五個戰場,如果你自認為是一個高手,可以選擇金星,否則可以依次選擇其它幾個星球做為戰場。如果這個星球上沒有擂主,你就應該以擂主的身份進入,然後別人就可以和你進行對戰了。當然,如果所有的星球上都已經開始了戰爭,那麼你就只能等一會兒了。

   如果你是以擂主身份進入的,你可以等待別人來和你對戰,如果你是以攻擂手的身份登入,你可以很快的和擂主展開戰鬥。開始戰鬥後,由擂主執黑先行,然後由攻擂手出招,如此這般。當最後決出勝負的時候,會有相應的提示。

該網站有幾個主要的檔案是:

Index.asp 登入檔案:

Index0.asp中間檔案:

Match.asp 比賽檔案:

   http://www.163design.net/a/y/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>金星<



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。