萬盛學電腦網

 萬盛學電腦網 >> 網絡編程 >> java >> asp拼圖游戲

asp拼圖游戲

class="area">

這個根據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 
                %> 
                    &nbsp; 
                <%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&copy; 2005-2008 <a href=’http://www.DeepTeach.com’>深度開發</a> 
    <script language="JavaScr

copyright © 萬盛學電腦網 all rights reserved