用ASP编写的“俄罗斯方块游戏”
2018-09-06 12:52
<%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>
<p 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>
上一篇：ASP 无限级分类实现
下一篇：XMLHTTP批量抓取远程资料