這個根據jsp的那個拼圖游戲思路改寫的一個asp拼圖,
代碼如下:
<div align="center"><h1>排字游戲(拼圖游戲)</h1></div>
<a href="pinzi.asp">開始新游戲</a>
<hr />
<%
action=request.Querystring("action") ’通過action參數來選擇要調用的游戲函數
If action="" Or action="start" then
Call start() ’調用 開始函數
End If
If action="see" Then
Call see() ’調用 顯示函數
End if
If action="move" Then
Call move() ’調用 處理函數
End If
%>
<%
’======游戲初始化函數=================================
Sub start()
Dim ges(3,3)
shu=0
Randomize ’Randomize 是隨機初始化,使用rnd之前必須要先來一句Randomize
for h=0 To 2
for l=0 To 2
ges(h,l)=shu
shu=shu+1
next
next
For ci=0 To 10
h1=Int (3*Rnd())
l1=Int (3*Rnd())
h2=Int (3*Rnd())
l2=Int (3*Rnd())
linshi=ges(h1,l1)
ges(h1,l1)=ges(h2,l2)
ges(h2,l2)=linshi
next
session("ges")=ges
response.Redirect("?action=see")
End Sub
’======游戲界面顯示函數=================================
Sub see()
%>
<%
’dim ges(3,3)
ges=session("ges")
%>
<table width="300" align="center" border="1" height="300">
<%
for h=0 to 2
%>
<tr>
<%
for l=0 To 2
%>
<td align="center" onmouseover="this.bgColor=’#CCFFFF’" onmouseout="this.bgColor=’#ffffff’ ">
<%
if (ges(h,l)<>0) then
%>
<a href="?h=<%=h%>&l=<%=l%>&action=move">
<h1><%=ges(h,l)%></h1>
</a>
<%
else
%>
<%End if%>
</td>
<%
next
%>
</tr>
<%
next
%>
</table>
<%
End Sub
’======游戲處理函數=================================
Sub move()
%>
<%
’Dim ges(3,3)
ges=session("ges")
h=request.Querystring("h")
l=request.Querystring("l")
if (h>0) Then
If (ges(h-1,l)=0) then
ges(h-1,l)=ges(h,l)
ges(h,l)=0
End if
End if
if (h<2 and ges(h+1,l)=0) then
ges(h+1,l)=ges(h,l)
ges(h,l)=0
End if
if (l>0) then
if (ges(h,l-1)=0) then
ges(h,l-1)=ges(h,l)
ges(h,l)=0
End if
End If
if (l<2 and ges(h,l+1)=0) then
ges(h,l+1)=ges(h,l)
ges(h,l)=0
End If
session("ges")=ges
response.Redirect("?action=see")
%>
<%
End sub
%>
<div align="center">
<hr />
<br />
<iframe id="baiduframe" border="0" vspace="0" hspace="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" scrolling="no" width="468" height="40" src="http://unstat.baidu.com/bdun.bsc?tn=advert&cv=1&cid=136707&csid=107&rkcs=4&bgcr=FFFFFF&ftcr=0000CC&rk=1&bd=0&tbsz=&tbst=&bdas=0"></iframe>
<br />Copyright© 2005-2008 <a href=’http://www.DeepTeach.com’>深度開發</a>
<script language="JavaScr