词语搭配游戏的制作(ASP)一

2016-01-29 17:41 4 1 收藏

词语搭配游戏的制作(ASP)一,词语搭配游戏的制作(ASP)一

【 tulaoshi.com - ASP 】

    说明:
  这是个关于词语搭配的游戏,是用ASP、VBScript和JavaScript写的。
  在本机Win98 OEM2、PWS、IE5下测试下没发现大问题。

  使用方法:
  方法一:比方说你的3W服务的目录是C:Inetpubwwwroot,在下面建一个目录,如wordAsb;
将游戏文件(wordAsb.asp)拷入目录中;在IE的地址栏中键入http://+你的机器名+/wordAsb/wordAsb.asp
或http://127.0.0.1/wordAsb/wordAsb.asp,回车,就可以开始游戏了

  方法二:将游戏文件(wordAsb.asp)随便拷入一新建的目录。鼠标右键点击该目录,菜单中选“属性”,
点“Web Sharing”属性页,点选“Share this folder”项,点“OK”就可以了。
在IE的地址栏中键入http://+你的机器名+/新建目录的名称/wordAsb.asp
或http://127.0.0.1/+新建目录的名称+/wordAsb.asp,回车,就可以开始游戏了

注:您的机子OS应该是NT或Win2000 Server或其他OS但是装有PWS

  游戏方法:
  单击游戏中的“游戏说明”就知道了;
如果有时页面一片空白,请按F5刷新一遍(这也是目前最大的bug吧),不知为什么
代码如下:
<%@ Language = VBScript%>
<%
Option Explicit
'Last Updated By Recon On 03/16/2001

Dim m_iPartCnt
Dim m_strPrompt
Dim m_astrSenPart(), m_astrFileName()
Dim m_astrWords(), m_aiOpStatus()

'------------------------------------------
'常变量说明
'm_iPartCnt :词汇分类的数目。整型
'm_strPrompt :对文件操作完毕后的提示。字符串型
'm_astrSenPart :词汇分类的名称。字符型数组
'm_astrFileName :记录各类词汇文件的文件名。字符型数组
'm_astrWords :纪录各类词汇。二维字符型数组
'm_aiOpStatus :纪录对各个文件操作后的状态。整型数组
'------------------------------------------

'ShowMethod
m_iPartCnt = 4
m_strPrompt = ""
ReDim m_astrSenPart(m_iPartCnt)
ReDim m_astrFileName(m_iPartCnt)
ReDim m_astrWords(m_iPartCnt)
ReDim m_aiOpStatus(m_iPartCnt)

'定义各种词汇分类的名称
m_astrSenPart(0) = "主语"
m_astrSenPart(1) = "程度状语"
m_astrSenPart(2) = "地点状语"
m_astrSenPart(3) = "谓语"

'定义记载各类词汇文件的名称
m_astrFileName(0) = "Who.txt"
m_astrFileName(1) = "How.txt"
m_astrFileName(2) = "Where.txt"
m_astrFileName(3) = "What.txt"

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
'如果页面的请求方式是 POST

'************************
'获得客户端的信息
'************************
Dim m_iSenPart
Dim m_strOpWay
Dim m_bRptedData

'------------------------------------------
'常变量说明
'm_iSenPart :表示词汇分类的数字。整型
' 词汇的分类来自数组m_astrSenPart
' 可能的值有:
' 0:主语
' 1:程度状语
' 2:地点状语
' 3:谓语

'm_strOpWay :文件操作方式。字符串型
' 可能的值有:
' 1、SAVE :将某类词汇存入文件
' 2、SAVEALL :将所有类别的词汇存入文件
' 3、LOAD :从文件中载入某类词汇
' 4、LOADALL :从文件中载入所有类别的词汇

'm_bRptedData :表示本次提交的表单数据和上次是否相同。布尔型
' 可能的值有:
' 1、False :表单数据不重复
' 2、True :表单数据重复(即重复提交表单)
'------------------------------------------

'ShowForm
'获得用户请求的操作方式
m_strOpWay = Request.Form("txtOpWay")
'Show("m_strOpWay")

'获得各个类别的单词
For m_iCount = 0 To (m_iPartCnt - 1)
If Request.Form("txtWords" & m_iCount) <> "" Then
m_astrWords(m_iCount) = Split(Request.Form("txtWords" & m_iCount), ",")
End If
'Response.Write UBound(m_astrWords(m_iCount)) & "<br>"
Next

'检测是否重复提交表单
'If Session("FormInf") = Request.Form Then
' '表单是重复提交
' m_bRptedData = True
'Else
' '表单是非重复提交
' Session("FormInf") = Request.Form
' m_bRptedData = False
'End If
'Show("m_bRptedData")

'************************
'对单词文件进行操作
'************************
'If m_bRptedData = False Then

Dim m_iCount, m_iErrCnt
Dim m_strFilePath

'------------------------------------------
'常变量说明
'm_iC

来源:https://www.tulaoshi.com/n/20160129/1502536.html

延伸阅读
标签: flash教程
前些日子qinni在论坛贴出了她制作的一个添色的flash小游戏,是用编程实现的,很多朋友都对这个小游戏的做法非常感兴趣,所以qinni专门为大家编写了这样的一个教程。 第一个中文的教程,大家多多指教,下面大家看到的这个动画,就是我们今天要制作的flash添色小游戏。 先用RectangleTool画两个方形(别的形状...
标签: ASP
  概述 对于任何的WEB应用程序服务器,一个主要的要求就是具有丰富而且灵活具有柔韧性的配置系统——使开发者能够让“可 安装的应用程序”容易地与“设置数据”联系,而无须将设置值置入程序代码,而且,能使Administrators方便容易地调 整、定制这些设置值 Post-deployment。 ASP+ 配置系统致力于满足这两个必要条件。为做到这些,...
标签: ASP
  编写定制的Active Server Page(ASP)代码来完成一些任务,比方说数据库访问的能力是重要的.但是,一个由脚本写成的解决方案最明显的问题就是性能.在这篇文章中,我将向你展示如何将一个数据库对象的脚本版本转换成一个动态链接库(dll),或是就象它的通常的名字,一个COM组件.为了生成这个编译版本,我将使用Visual Basic 6...
标签: ASP
       最初的考虑(一)   作 者 : 雨晨          它包括运行平台的配置,pagelet的建立,新的ADO+的使用,如何使用新的DataSet进行数据访问,HTML表格到DataList的转变,以及其他多种新的服务器端控件的使用技巧……还等什么?现在就来感受一下ASP+的全...
标签: ASP
  使你的类开始工作 既然你已经拥有了一个能够运行的COM组件了,那么现在就是让它参与工作的时候了.让这个组件能在ASP中使用有几步工作要做.第一步,修改框架(framework)中的pageDeclare.asp文件来用一个object置标来引用这个刚刚编译成功的组件(列表D). Listing D <%@ LANGUAGE="VBScript" % <object runat="se...

经验教程

354

收藏

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