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

2016-01-29 17:34 8 1 收藏

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

【 tulaoshi.com - ASP 】

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

来源:http://www.tulaoshi.com/n/20160129/1501937.html

延伸阅读
标签: ASP
<% dim fso,f,no,I '定义变量绝对是个好习惯 Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例 Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件,打开为只读. if f.AtEndOfStream then '判断这个文件是否不存在 no=1 else no=f.ReadLine no=no+1 end if f.Close set f=fso.O...
标签: Web开发
在目前的网站统计系统决大部分都是CGI的,但编写起来特别复杂,而ASP学起来简单,更有和数据库结合的优点,所以结合自己曾经做过的网站统计系统,和大家探讨一下ASP编写网站统计系统。 大家都看过网易的网站统计系统,它可以统计总访问量,每日平均访问量,当日访问量,最高访问量,最高访问日期,日流量分析,月流量分析,周流量分...

经验教程

286

收藏

100
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部