<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<head>
<meta http-equiv="Content-Type" content="text/HTML; charset=gb2312">
<title>Guidy的Web扫雷程序 - 纯VBScript版</title>
<style type="text/CSS">
@charset "gb2312";
body,td {
Font: 12 Px "宋体", Verdana, Arial, Helvetica, sans-serif;
Cursor: default;
}
body{
margin: 0px;
BackGround: buttonface;
}
A:link,A:visited,A:active {
Color:#990000;
Text-Decoration:None;
}
A:hover {
Color:#FF8000;
Text-Decoration:UnderLine;
}
input {
Border-Top-Width: 1 Px;
Padding-Right: 1 Px;
Padding-Left: 1 Px;
Border-Left-Width: 1 Px;
Border-bottom-Width: 1 Px;
Border-Right-Width: 1 Px;
Padding-bottom: 1 Px;
Padding-Top: 1 Px;
Height: 18 Px;
Border-Left-Color: #C0C0C0;
Border-bottom-Color: #C0C0C0;
Border-Top-Color: #C0C0C0;
Border-Right-Color: #C0C0C0;
BackGround-Color: #FFFFFF;
Color: #000000;
Font: 9pt "宋体", Verdana, Arial, Helvetica, sans-serif;
}
.TdOver{
border: 1px outset;
Border-Left-Color: #FFFFFF;
Border-Top-Color: #FFFFFF;
Border-Right-Color: #AAAAAA;
Border-bottom-Color: #AAAAAA;
BackGround-Color: #FFCCFF;
}
.TdOut{
border: 1px outset;
Border-Left-Color: #E5E6E7;
Border-Top-Color: #E5E6E7;
Border-Right-Color: #E5E6E7;
Border-bottom-Color: #E5E6E7;
BackGround-Color: #E5E6E7;
}
.Tm0{BackGround-Color: buttonface;Color: #2E8B57; font-weight:bold;}
.Tm1{BackGround-Color: buttonface;Color: #0000FF; font-weight:bold;}
.Tm2{BackGround-Color: buttonface;Color: #2E8B57; font-weight:bold;}
.Tm3{BackGround-Color: buttonface;Color: #FF0000; font-weight:bold;}
.Tm4{BackGround-Color: buttonface;Color: #FF00FF; font-weight:bold;}
.Tm5{BackGround-Color: buttonface;Color: #00FFFF; font-weight:bold;}
.Tm6{BackGround-Color: buttonface;Color: #FF00FF; font-weight:bold;}
.Tm7{BackGround-Color: buttonface;Color: #FFFF00; font-weight:bold;}
.Tm8{BackGround-Color: buttonface;Color: #000000; font-weight:bold;}
</style>
</head>
<body onselectstart="event.returnValue=false;">
<table align="center"><tr><td>
<fieldset style="background-color:bottonface;"><legend>扫雷控制面板</legend><table border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td>宽度：</td>
<td><input name="Tmx" type="text" id="Tmx" size="4" maxlength="4" style="ime-mode: disabled;"></td>
<td><input name="S1" type="button" id="S1" onClick="CreatTable(Tmx.value,Tmy.value);LayMine(MNum.value);" value=" 开 始 "></td>
</tr>
<tr>
<td>高度：</td>
<td><input name="Tmy" type="text" id="Tmy" size="4" maxlength="4" style="ime-mode: disabled;"></td>
<td rowspan="2" align="center" valign="middle" id="BnNum" style="font-weight:800; color:#FF0000; font-size:36px;" title="当前标记个数，为负表明超过雷数！"> </td>
</tr>
<tr>
<td>雷数：</td>
<td><input name="MNum" type="text" id="MNum" size="4" maxlength="4" style="ime-mode: disabled;"></td>
</tr>
</table>
</fieldset></td></tr>
</table>
<hr size="1">
<table border="3" align="center" cellpadding="1" cellspacing="1" bordercolor="threedshadow">
<tr>
<td><div align="center" id="MineView"><div align="left"><br>
<ul>
<li><strong><font color="#FF0000">请设定后点击『开始』按钮，即可进入游戏！</font></strong></li>
<li>“扫雷”游戏的目标是尽快找到雷区中的所有地雷，而不许踩到地雷。如果挖开的是地雷，您将输掉游戏。</li>
<li>通过单击即可挖开方块。如果挖开的是地雷，则您输掉游戏。</li>
<li>如果方块上出现数字，则表示在其周围的八个方块中共有多少颗地雷。</li>
<li>要标记您认为可能有地雷的方块，请右键单击它。 </li>
<li>要标记您认为不确定的方块，请右键单击它两次。 </li>
</ul>
</div></div></td>
</tr>
</table>
<hr size="1">
<script language="vbscript">
Rem =========================================================
Rem 文件：WebMine.ASP
Rem 功能：Guidy的Web扫雷程序 - 纯VBScript版
Rem 版本：Ver1.0.0
Rem 全称：Guidy的Web扫雷程序 Ver1.0.0
Rem 时间：2004-10-15
Rem 作者：Guidy
Rem 版权：iXuEr Studio
Rem =========================================================
Rem Copyright (C) 2004-2006 114XP.CN All rights reserved.
Rem 官方网站：http://www.114xp.cn
Rem 技术论坛：http://bbs.114xp.cn
Rem 电子信箱：Guidy@qq.com , Guidy@psysch.com
Rem =========================================================
Option Explicit
Public i,o
Public x,y,z
Public MineArr,LayStr,LayTmpStr
Public Ri,Rn,Rm
Public WinMsg,LoseMsg,BnedMsg
Function CreatTable(Tx,Ty)
''//初始化雷区并将雷区标识符保存在数组中
Dim TmpStr,TmpStr1
WinMsg = "恭喜！你赢了！！！"
LoseMsg = "踩到地雷了，哈哈！去死吧！~~"
''//因为编程上的不足，只有在长宽相等的时候才能正确游戏
''//希望有高手帮助我更正这个问题
If Tx <> Ty And Tx > Ty Then
Ty = Tx
Else
Tx = Ty
End If
''//如果雷区参数过小就强制使用默认值
If Tx = "" Or IsNull(Tx) Then Tx = 9 : Tmx.Value = 9
If Ty = "" Or IsNull(Ty) Then Ty = 9 : Tmy.Value = 9
''//如果雷区参数过大就强制使用默认值
If Tx >= 24 Then Tx = 24 : Tmx.Value = 24
If Ty >= 24 Then Ty = 24 : Tmy.Value = 24
''//创建雷区表格
TmpStr = "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" bordercolor=""threeddarkshadow"" bgcolor=""#990000"">"
For x = 1 To Ty
TmpStr = TmpStr & " <tr>"
For y = 1 To Tx
TmpStr = TmpStr & " <td onClick=""ShowTMN(this.id);"" onContextMenu=""PutBn(this.id);event.returnValue=false;"" align=""center"" class=""TdOut"" width="&q
