设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP网页设计用ASP编写的“俄罗斯方块游戏” ...
返回列表 发新帖
查看: 1888|回复: 18
打印 上一主题 下一主题

[学习教程] ASP网页设计用ASP编写的“俄罗斯方块游戏”

[复制链接]
不帅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:32:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x
由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况；   If Not Request.QueryString("Ven") = "T" then%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<SCRIPT LANGUAGE=vbscript>
function Redir()
window.open "<%= right(Request.ServerVariables("SCRIPT_NAME"),len(Request.ServerVariables("SCRIPT_NAME"))-instrrev(Request.ServerVariables("SCRIPT_NAME"),"/",len(Request.ServerVariables("SCRIPT_NAME"))))%>?Ven=T","user","status=no,toolbar=no,menubar=no,height=456,width=304,top=100,left=100,scrollbars=no"
window.history.back(-1)
End function
</SCRIPT>
<BODY onload=Redir()>
</BODY>
</HTML>
<%else%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>**VBScript俄罗斯方块游戏**</TITLE>
<Style Type="text/CSS">
<!--
.normalHI{font-family:verdana,helvetica,arial,sans serif;color:#FFCC00;font-size:10pt;font-weight:bold;Cursor:hand;}
.normalH{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;Cursor:hand;}
.normalG{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:13pt;font-weight:bold;}
.normal{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
.normalD{font-family:verdana,helvetica,arial,sans serif;color:#000000;font-size:10pt;font-weight:bold;}
.normalI{font-family:verdana,helvetica,arial,sans serif;color:#00FF00;font-size:10pt;font-weight:bold;}
.normalO{font-family:verdana,helvetica,arial,sans serif;color:#FFFF00;font-size:10pt;font-weight:bold;}
-->
</Style>
</HEAD>
<BODY topmargin=2 leftmargin=2>
<div align="center">
<center>
<table border="0" width="300" cellspacing="0" cellpadding="0"><tr><td width="200">
<center>
<table border="1" bordercolor="#000000" cellspacing="0" cellpadding="0" bgcolor="#000000">
<tr height="18">
<td ID="240" width="18"></td><td ID="241" width="18"></td><td ID="242" width="18"></td><td ID="243" width="18"></td><td ID="244" width="18"></td>
<td ID="245" width="18"></td><td ID="246" width="18"></td><td ID="247" width="18"></td><td ID="248" width="18"></td><td ID="249" width="18"></td>
</tr>
<tr height="18">
<td ID="230" width="18"></td><td ID="231" width="18"></td><td ID="232" width="18"></td><td ID="233" width="18"></td><td ID="234" width="18"></td>
<td ID="235" width="18"></td><td ID="236" width="18"></td><td ID="237" width="18"></td><td ID="238" width="18"></td><td ID="239" width="18"></td>
</tr>
<tr height="18">
<td ID="220" width="18"></td><td ID="221" width="18"></td><td ID="222" width="18"></td><td ID="223" width="18"></td><td ID="224" width="18"></td>
<td ID="225" width="18"></td><td ID="226" width="18"></td><td ID="227" width="18"></td><td ID="228" width="18"></td><td ID="229" width="18"></td>
</tr>
<tr height="18">
<td ID="210" width="18"></td><td ID="211" width="18"></td><td ID="212" width="18"></td><td ID="213" width="18"></td><td ID="214" width="18"></td>
<td ID="215" width="18"></td><td ID="216" width="18"></td><td ID="217" width="18"></td><td ID="218" width="18"></td><td ID="219" width="18"></td>
</tr>
<tr height="18">
<td ID="200" width="18"></td><td ID="201" width="18"></td><td ID="202" width="18"></td><td ID="203" width="18"></td><td ID="204" width="18"></td>
<td ID="205" width="18"></td><td ID="206" width="18"></td><td ID="207" width="18"></td><td ID="208" width="18"></td><td ID="209" width="18"></td>
</tr>
<tr height="18">
<td ID="190" width="18"></td><td ID="191" width="18"></td><td ID="192" width="18"></td><td ID="193" width="18"></td><td ID="194" width="18"></td>
<td ID="195" width="18"></td><td ID="196" width="18"></td><td ID="197" width="18"></td><td ID="198" width="18"></td><td ID="199" width="18"></td>
</tr>
<tr height="18">
<td ID="180" width="18"></td><td ID="181" width="18"></td><td ID="182" width="18"></td><td ID="183" width="18"></td><td ID="184" width="18"></td>
<td ID="185" width="18"></td><td ID="186" width="18"></td><td ID="187" width="18"></td><td ID="188" width="18"></td><td ID="189" width="18"></td>
</tr>
<tr height="18">
<td ID="170" width="18"></td><td ID="171" width="18"></td><td ID="172" width="18"></td><td ID="173" width="18"></td><td ID="174" width="18"></td>
<td ID="175" width="18"></td><td ID="176" width="18"></td><td ID="177" width="18"></td><td ID="178" width="18"></td><td ID="179" width="18"></td>
</tr>
<tr height="18">
<td ID="160" width="18"></td><td ID="161" width="18"></td><td ID="162" width="18"></td><td ID="163" width="18"></td><td ID="164" width="18"></td>
<td ID="165" width="18"></td><td ID="166" width="18"></td><td ID="167" width="18"></td><td ID="168" width="18"></td><td ID="169" width="18"></td>
</tr>
<tr height="18">
<td ID="150" width="18"></td><td ID="151" width="18"></td><td ID="152" width="18"></td><td ID="153" width="18"></td><td ID="154" width="18"></td>
<td ID="155" width="18"></td><td ID="156" width="18"></td><td ID="157" width="18"></td><td ID="158" width="18"></td><td ID="159" width="18"></td>
</tr>
<tr height="18">
<td ID="140" width="18"></td><td ID="141" width="18"></td><td ID="142" width="18"></td><td ID="143" width="18"></td><td ID="144" width="18"></td>
<td ID="145" width="18"></td><td ID="146" width="18"></td><td ID="147" width="18"></td><td ID="148" width="18"></td><td ID="149" width="18"></td>
</tr>
<tr height="18">
<td ID="130" width="18"></td><td ID="131" width="18"></td><td ID="132" width="18"></td><td ID="133" width="18"></td><td ID="134" width="18"></td>
<td ID="135" width="18"></td><td ID="136" width="18"></td><td ID="137" width="18"></td><td ID="138" width="18"></td><td ID="139" width="18"></td>
</tr>
<tr height="18">
<td ID="120" width="18"></td><td ID="121" width="18"></td><td ID="122" width="18"></td><td ID="123" width="18"></td><td ID="124" width="18"></td>
<td ID="125" width="18"></td><td ID="126" width="18"></td><td ID="127" width="18"></td><td ID="128" width="18"></td><td ID="129" width="18"></td>
</tr>
<tr height="18">
<td ID="110" width="18"></td><td ID="111" width="18"></td><td ID="112" width="18"></td><td ID="113" width="18"></td><td ID="114" width="18"></td>
<td ID="115" width="18"></td><td ID="116" width="18"></td><td ID="117" width="18"></td><td ID="118" width="18"></td><td ID="119" width="18"></td>
</tr>
<tr height="18">
<td ID="100" width="18"></td><td ID="101" width="18"></td><td ID="102" width="18"></td><td ID="103" width="18"></td><td ID="104" width="18"></td>
<td ID="105" width="18"></td><td ID="106" width="18"></td><td ID="107" width="18"></td><td ID="108" width="18"></td><td ID="109" width="18"></td>
</tr>
<tr height="18">
<td ID="90" width="18"></td><td ID="91" width="18"></td><td ID="92" width="18"></td><td ID="93" width="18"></td><td ID="94" width="18"></td>
<td ID="95" width="18"></td><td ID="96" width="18"></td><td ID="97" width="18"></td><td ID="98" width="18"></td><td ID="99" width="18"></td>
</tr>
<tr height="18">
<td ID="80" width="18"></td><td ID="81" width="18"></td><td ID="82" width="18"></td><td ID="83" width="18"></td><td ID="84" width="18"></td>
<td ID="85" width="18"></td><td ID="86" width="18"></td><td ID="87" width="18"></td><td ID="88" width="18"></td><td ID="89" width="18"></td>
</tr>
<tr height="18">
<td ID="70" width="18"></td><td ID="71" width="18"></td><td ID="72" width="18"></td><td ID="73" width="18"></td><td ID="74" width="18"></td>
<td ID="75" width="18"></td><td ID="76" width="18"></td><td ID="77" width="18"></td><td ID="78" width="18"></td><td ID="79" width="18"></td>
</tr>
<tr height="18">
<td ID="60" width="18"></td><td ID="61" width="18"></td><td ID="62" width="18"></td><td ID="63" width="18"></td><td ID="64" width="18"></td>
<td ID="65" width="18"></td><td ID="66" width="18"></td><td ID="67" width="18"></td><td ID="68" width="18"></td><td ID="69" width="18"></td>
</tr>
<tr height="18">
<td ID="50" width="18"></td><td ID="51" width="18"></td><td ID="52" width="18"></td><td ID="53" width="18"></td><td ID="54" width="18"></td>
<td ID="55" width="18"></td><td ID="56" width="18"></td><td ID="57" width="18"></td><td ID="58" width="18"></td><td ID="59" width="18"></td>
</tr>
<tr height="18">
<td ID="40" width="18"></td><td ID="41" width="18"></td><td ID="42" width="18"></td><td ID="43" width="18"></td><td ID="44" width="18"></td>
<td ID="45" width="18"></td><td ID="46" width="18"></td><td ID="47" width="18"></td><td ID="48" width="18"></td><td ID="49" width="18"></td>
</tr>
<tr height="18">
<td ID="30" width="18"></td><td ID="31" width="18"></td><td ID="32" width="18"></td><td ID="33" width="18"></td><td ID="34" width="18"></td>
<td ID="35" width="18"></td><td ID="36" width="18"></td><td ID="37" width="18"></td><td ID="38" width="18"></td><td ID="39" width="18"></td>
</tr>
<tr height="18">
<td ID="20" width="18"></td><td ID="21" width="18"></td><td ID="22" width="18"></td><td ID="23" width="18"></td><td ID="24" width="18"></td>
<td ID="25" width="18"></td><td ID="26" width="18"></td><td ID="27" width="18"></td><td ID="28" width="18"></td><td ID="29" width="18"></td>
</tr>
<tr height="18">
<td ID="10" width="18"></td><td ID="11" width="18"></td><td ID="12" width="18"></td><td ID="13" width="18"></td><td ID="14" width="18"></td>
<td ID="15" width="18"></td><td ID="16" width="18"></td><td ID="17" width="18"></td><td ID="18" width="18"></td><td ID="19" width="18"></td>
</tr>
<tr height="18">
<td ID="0" width="18"></td><td ID="1" width="18"></td><td ID="2" width="18"></td><td ID="3" width="18"></td><td ID="4" width="18"></td>
<td ID="5" width="18"></td><td ID="6" width="18"></td><td ID="7" width="18"></td><td ID="8" width="18"></td><td ID="9" width="18"></td>
</tr>
</table>
</center>
</td>
<td width="100">
<table border="1" bordercolor="#000000" height="452" width="100" cellspacing="0" cellpadding="0">
<tr height="30">
<td class=normalG align=center bgcolor="#FFFF00">俄罗斯方块</td>
</tr>
<tr height="20">
<td class=normalD align=center bgcolor="#FFCC00">提醒区</td>
</tr>
<tr height="100">
<td bgcolor="#FFCC00">
<!-- Inicio Preview -->
<div align="center"><center><table border="1" cellspacing="0" cellpadding="0" bgcolor="#000000">
<tr height="18">
<td ID="P0" width="18"></td><td ID="P1" width="18"></td><td ID="P2" width="18"></td><td ID="P3" width="18"></td>
</tr>
<tr height="18">
<td ID="P4" width="18"></td><td ID="P5" width="18"></td><td ID="P6" width="18"></td><td ID="P7" width="18"></td>
</tr>
<tr height="18">
<td ID="P8" width="18"></td><td ID="P9" width="18"></td><td ID="P10" width="18"></td><td ID="P11" width="18"></td>
</tr>
</table></center></div>
<!-- Fin Preview -->
</td>
</tr>
<tr height="32">
<td ID="Sco01" align=center bgcolor="#009900" class=normalh onmou搜索引擎优化ver=Mmove(“I“) onmou搜索引擎优化ut=Mmove(“O“)>得分</td>
</tr>
<tr height="32">
<td ID="Sco02" align=center bgcolor="#FFFF00" class=normalh>0</td>
</tr>
<tr height="32">
<td ID="In01" align=center bgcolor="#009900" class=normal onmou搜索引擎优化ver=Mmove(“I“) onmou搜索引擎优化ut=Mmove(“O“)>程度</td>
</tr>
<tr height="32">
<td ID="In02" align=center bgcolor="#FFFF00" class=normal>1</td>
</tr>
<tr height="32">
<td ID="In05" align=center bgcolor="#009900" class=normalh onmou搜索引擎优化ver=Mmove(“I“) onmou搜索引擎优化ut=Mmove(“O“)>块</td>
</tr>
<tr height="32">
<td ID="In06" align=center bgcolor="#FFFF00" class=normalh>1</td>
</tr>
<tr height="32">
<td ID="In03" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“i“) onmou搜索引擎优化ver=Mmove(“I“) onmou搜索引擎优化ut=Mmove(“O“)>入手下手</td>
</tr>
<tr height="32">
<td ID="In04" align=center bgcolor="#009900" class=normalh onclick=Iniciar(“d“) onmou搜索引擎优化ver=Mmove(“I“) onmou搜索引擎优化ut=Mmove(“O“)>停止</td>
</tr>
<tr height="38">
<td ID="In09" align=center bgcolor="#009900" class=normalh onclick=self.close() onmou搜索引擎优化ver=Mmove(“I“) onmou搜索引擎优化ut=Mmove(“O“)>封闭窗口</td>
</tr>
</table>
</td></tr></table></center></div>
</BODY>
<SCRIPT LANGUAGE=vbscript>
Dim Timer1,HastIni,LevlIni,Namn,Score,Levl,Hast,Fig,Fig2,Farg,Farg2,X,Y,Rot,Rot2,tratt,Pausa,ScrPau,Pos,GOver
Dim hs(),sor(),hsant(),n(),s(),s2(),s3()
redim hs(3, 15, 2):redim sor(3, 15):redim hsant(3):redim n(10, 25):redim s(5, 4):redim s2(4, 4):redim s3(4, 4)
LevlIni = 1
Pausa = False
HastIni = VelLevel(LevlIni)
Hast = HastIni
Levl = LevlIni
Pos = Levl - 1
ColorForm
GOver = false
function Iniciar(ind)
if ind = "i" then
score = 0
GOver = false
Hast = HastIni
Levl = LevlIni
Pos = PosLevel(Levl)
For i = 1 To 4:For i2 = 1 To 4:s2(i, i2) = False:Next:Next
For i = 1 To 10:For i2 = 1 To 25:n(i, i2) = False:Next:Next
Timer1 = window.setInterval("Andar()",Hast)
ColorForm
Fig2 = 0
Nyfig
else
window.clearInterval Timer1
end if
end function
Sub Nyfig()
Pos = Pos + 1
document.all("In06").innertext = Pos
Select Case Pos
Case 30: Levl = 2: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 60: Levl = 3: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 90: Levl = 4: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 120: Levl = 5: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 150: Levl = 6: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 180: Levl = 7: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 210: Levl = 8: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 240: Levl = 9: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 270: Levl = 10: Hast = VelLevel(Levl): window.In02.innerText = Levl
Case 300: Levl = 11: Hast = VelLevel(Levl): window.In02.innerText = Levl
End Select
window.clearInterval Timer1
Timer1 = window.setInterval("Andar()",Hast)
Fig = Fig2
Farg = Farg2
Fig2 = Int(Rnd * 7) + 1
X = 4
Y = 26
Rot = 1
For i = 1 To 4:For i2 = 1 To 4:s(i, i2) = s2(i, i2):s2(i, i2) = 0:Next:Next
Select Case Fig2
Case 1:s2(2, 2) = True:s2(3, 2) = True:s2(2, 3) = True:s2(3, 3) = True:Farg2 = "#FF0000"
Case 2:s2(1, 2) = True:s2(2, 2) = True:s2(3, 2) = True:s2(4, 2) = True:Farg2 = "#33CC33"
Case 3:s2(2, 1) = True:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#FF9900"
Case 4:s2(3, 1) = True:s2(2, 1) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#666666"
Case 5:s2(3, 1) = True:s2(3, 2) = True:s2(3, 3) = True:s2(2, 2) = True:Farg2 = "#CC00CC"
Case 6:s2(2, 1) = True:s2(2, 2) = True:s2(3, 2) = True:s2(3, 3) = True:Farg2 = "#6666FF"
Case 7:s2(3, 1) = True:s2(3, 2) = True:s2(2, 2) = True:s2(2, 3) = True:Farg2 = "#33CCCC"
End Select
For i = 1 To 4
For i2 = 1 To 3
document.all("P" & cstr(((i2 - 1) * 4 + i - 1))).bgcolor = "#000000"
If s2(i, i2) = True Then
document.all("P" & cstr((i2 - 1) * 4 + i - 1)).bgcolor = Farg2
End If
Next
Next
End Sub
Function PosLevel(Lev)
Select Case Lev
Case 1: PosLevel = 1
Case 2: PosLevel = 51
Case 3: PosLevel = 81
Case 4: PosLevel = 111
Case 5: PosLevel = 141
Case 6: PosLevel = 181
Case 7: PosLevel = 221
Case 8: PosLevel = 261
Case 9: PosLevel = 301
Case 10: PosLevel = 341
End Select
End Function
“いいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいいい
Function VelLevel(Velo)
Select Case Velo
Case 1: VelLevel = 500
Case 2: VelLevel = 450
Case 3: VelLevel = 400
Case 4: VelLevel = 350
Case 5: VelLevel = 300
Case 6: VelLevel = 250
Case 7: VelLevel = 200
Case 8: VelLevel = 150
Case 9: VelLevel = 100
Case 10: VelLevel = 50
Case 11: VelLevel = 10
End Select
End Function
Sub ColorForm()
For i = 0 To 11:document.all("P" & cstr(i)).bgcolor = "#000000":Next
For i = 0 To 249:document.all(cstr(i)).bgcolor = "#000000":Next
End Sub
function Andar()
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
End If
Next
Next
If Fig = 0 Then
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
Next
Next
Ner
Nyfig
Else
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True And s(i, i2 - 1) = False Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
End If
Next
Next
End If
Y = Y - 1
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True Then
if not gover = true then
If ucase(document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor) <> "#000000" And ucase(document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor) <> Farg Then
Gameover
end if
end if
End If
If s(i, i2) = True Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
End If
Next
Next
end function
Sub Gameover()
MsgBox "游戏停止！", , "俄罗斯方块"
window.clearInterval Timer1
GOver = true
End Sub
Sub Ner()
Score = Score + 10
document.all("Sco02").innertext = Score
For i2 = 25 To 1 Step -1
ok = 1
For i = 1 To 10
If n(i, i2) = False Then ok = 0
Next
If ok = 1 Then
Score = Score + 150
document.all("Sco02").innertext = Score
For i = 1 To 10
For i3 = i2 To 24
n(i, i3) = n(i, i3 + 1)
document.all(cstr(coor(i, i3))).bgcolor = document.all(cstr(coor(i, i3 + 1))).bgcolor
Next
Next
End If
Next
End Sub
Function coor(xx, yy)
coor = (yy - 1) * 10 + xx - 1
End Function
Sub Rota()
Rot2 = Rot + 1
If Rot2 = 5 Then Rot2 = 1
If (Fig = 2 Or Fig > 5) And Rot2 = 3 Then Rot2 = 1
For i = 1 To 4
For i2 = 1 To 4
s3(i, i2) = 0
Next
Next
Select Case Fig
Case 2
Select Case Rot2
Case 1:s3(1, 2) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
Case 2:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(2, 4) = True
End Select
Case 3
Select Case Rot2
Case 1:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True
Case 2:s3(4, 1) = True:s3(4, 2) = True:s3(3, 2) = True:s3(2, 2) = True
Case 3:s3(3, 3) = True:s3(2, 3) = True:s3(2, 2) = True:s3(2, 1) = True
Case 4:s3(2, 2) = True:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True
End Select
Case 4
Select Case Rot2
Case 1:s3(3, 1) = True:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(4, 2) = True
Case 3:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 3) = True
Case 4:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
End Select
Case 5
Select Case Rot2
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(3, 3) = True:s3(2, 2) = True
Case 2:s3(3, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(4, 2) = True
Case 3:s3(2, 1) = True:s3(2, 2) = True:s3(2, 3) = True:s3(3, 2) = True
Case 4:s3(2, 1) = True:s3(3, 1) = True:s3(4, 1) = True:s3(3, 2) = True
End Select
Case 6
Select Case Rot2
Case 1:s3(2, 1) = True:s3(2, 2) = True:s3(3, 2) = True:s3(3, 3) = True
Case 2:s3(2, 2) = True:s3(3, 2) = True:s3(3, 1) = True:s3(4, 1) = True
End Select
Case 7
Select Case Rot2
Case 1:s3(3, 1) = True:s3(3, 2) = True:s3(2, 2) = True:s3(2, 3) = True
Case 2:s3(2, 1) = True:s3(3, 1) = True:s3(3, 2) = True:s3(4, 2) = True
End Select
End Select
ok = 1
For i = 1 To 4
For i2 = 1 To 4
If s3(i, i2) = True Then
If X + i - 1 < 1 Or X + i - 1 > 10 Or Y - i2 + 1 < 1 Then ok = 0
If ok = 1 Then
If n(X + i - 1, Y - i2 + 1) = True Then ok = 0
End If
End If
Next
Next
If ok = 0 Then Exit Sub
Rot = Rot2
For i = 1 To 4
For i2 = 1 To 4
If s3(i, i2) = True And s(i, i2) = False Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
End If
If s3(i, i2) = False And s(i, i2) = True Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
End If
s(i, i2) = s3(i, i2)
Next
Next
End Sub
Sub document_onkeydown
If window.event.keyCode = 27 Then msgbox "Pause",,"TET"
If window.event.keyCode = 80 Or window.event.keyCode = 114 Then iniciar("d")
If window.event.keyCode = 113 Then iniciar("i")
If Not Pausa = True Then
If window.event.keyCode = 38 And Fig > 1 Then Rota
If window.event.keyCode = 37 Then
ok = 1
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True And X + i - 1 - 1 > 0 Then
If n(X + i - 1 - 1, Y - i2 + 1) = True Then ok = 0
End If
If s(i, i2) = True And X + i - 1 - 1 < 1 Then ok = 0
Next
Next
If ok = 1 Then
X = X - 1
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True Then
If s(i + 1, i2) = False Then
document.all(cstr(coor(X + i, Y - i2 + 1))).bgcolor = "#000000"
End If
End If
If s(i, i2) = True Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
End If
Next
Next
End If
End If
If window.event.keyCode = 39 Then
ok = 1
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True And X + i - 1 + 1 < 11 Then
If n(X + i - 1 + 1, Y - i2 + 1) = True Then ok = 0
End If
If s(i, i2) = True And X + i - 1 + 1 > 10 Then ok = 0
Next
Next
If ok = 1 Then
X = X + 1
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True Then
If s(i - 1, i2) = False Then
document.all(cstr(coor(X + i - 2, Y - i2 + 1))).bgcolor = "#000000"
End If
End If
If s(i, i2) = True Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
End If
Next
Next
End If
End If
“Aqui
If window.event.keyCode = 32 Or window.event.keyCode = 40 Then
If Fig > 0 Then
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = "#000000"
End If
Next
Next
Do
Y = Y - 1
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True And Y - i2 + 1 = 1 Then Fig = 0
If Y - i2 > 0 And X + i - 1 > 0 And X + i - 1 < 11 Then
If s(i, i2) = True And n(X + i - 1, Y - i2) = True Then Fig = 0
End If
Next
Next
Loop Until Fig = 0
For i = 1 To 4
For i2 = 1 To 4
If s(i, i2) = True Then
document.all(cstr(coor(X + i - 1, Y - i2 + 1))).bgcolor = Farg
End If
If s(i, i2) = True Then n(X + i - 1, Y - i2 + 1) = True
Next
Next
End If
End If
End If
End Sub
function Mmove(Index)
if index = "I" then
document.all(Window.Event.SrcElement.sourceindex).classname = "normalHI"
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#0099CC"
else
document.all(Window.Event.SrcElement.sourceindex).classname = "normalH"
document.all(Window.Event.SrcElement.sourceindex).bgcolor = "#009900"
end if
end function
</script>
</HTML>
<%End If%>


原作者: Anton Gustavsson 、 Marcus Mason

相干信息材料

文档巨细:
21975字
演示地址:  http://www.hontosolid.net/example/game/tet.asp对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，
俄罗斯方块, Microsoft, function, status, Style

相关帖子
回复

使用道具 举报

再现理想 该用户已被删除
沙发
发表于 2015-2-4 01:42:24 | 只看该作者
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。
回复 支持 反对

使用道具 举报

小妖女 该用户已被删除
板凳
发表于 2015-2-4 09:50:11 | 只看该作者
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。
回复 支持 反对

使用道具 举报

若相依 该用户已被删除
地板
发表于 2015-2-7 09:55:20 | 只看该作者
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
回复 支持 反对

使用道具 举报

若天明 该用户已被删除
5#
发表于 2015-2-12 06:51:36 | 只看该作者
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的
回复 支持 反对

使用道具 举报

山那边是海 该用户已被删除
6#
发表于 2015-2-19 19:02:36 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。
回复 支持 反对

使用道具 举报

愤怒的大鸟 该用户已被删除
7#
发表于 2015-3-6 15:18:38 | 只看该作者
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?
回复 支持 反对

使用道具 举报

蒙在股里 该用户已被删除
8#
发表于 2015-3-13 03:08:31 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：
回复 支持 反对

使用道具 举报

爱飞 该用户已被删除
9#
发表于 2015-3-13 03:08:34 | 只看该作者
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。
回复 支持 反对

使用道具 举报

灵魂腐蚀 该用户已被删除
10#
发表于 2015-3-20 10:56:46 | 只看该作者
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。
回复 支持 反对

使用道具 举报

飘飘悠悠 该用户已被删除
11#
发表于 2015-3-21 03:10:33 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：
回复 支持 反对

使用道具 举报

简单生活 该用户已被删除
12#
发表于 2015-3-25 09:32:21 | 只看该作者
掌握asp的特性而且一定要知道为什么。
回复 支持 反对

使用道具 举报

飘灵儿 该用户已被删除
13#
发表于 2015-3-26 08:11:21 | 只看该作者
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组
回复 支持 反对

使用道具 举报

小魔女 该用户已被删除
14#
发表于 2015-4-12 03:44:36 | 只看该作者
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组
回复 支持 反对

使用道具 举报

小女巫 该用户已被删除
15#
发表于 2015-6-11 05:42:35 | 只看该作者
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。
回复 支持 反对

使用道具 举报

再见西城 该用户已被删除
16#
发表于 2015-6-20 03:53:24 | 只看该作者
代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。
回复 支持 反对

使用道具 举报

变相怪杰 该用户已被删除
17#
发表于 2015-6-22 23:03:44 | 只看该作者
掌握asp的特性而且一定要知道为什么。
回复 支持 反对

使用道具 举报

18#
发表于 2015-6-30 22:36:22 | 只看该作者
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
回复 支持 反对

使用道具 举报

冷月葬花魂 该用户已被删除
19#
发表于 2015-7-2 20:49:24 | 只看该作者
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-23 02:05

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表