当前位置: 首页 > 图文教程 > 网络编程 > ASP > 用ASP编写的“俄罗斯方块游戏”

ASP
用XML数据岛解决用户界面问题 - 1
用XML数据岛解决用户界面问题 - 2
用XML数据岛解决用户界面问题 - 3
关于ASP中堆栈溢出错误的解决
运用asp结合vbscript模拟股票滚屏
如何在VC++ 编写的组件中使用 ADO
VBSctipt 5.0中的新特性
ASP.NET中使用多个runat=server form
ASP.NET中的XML表单控件
页面之间传递元素的办法
转换文本为超联和Email格式的代码
vbscript和javascript互相调用
用VB6创建MTS组件
连接各种数据库的代码的总结
数据排序及如何动态排序
将HTML表单数据存储为XML格式
关于打印页面的一些经验
用vbscript判断email地址的合法性
可以近视替代remote script的代码
利用MSCHART画图的一段代码

用ASP编写的“俄罗斯方块游戏”


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 125 ::
收藏到网摘: n/a

  <%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"