欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2023-02-18 18:23:37
说明:  这是个关于词语搭配的游戏,是用asp、vbscript和javascript写的。  在本机win98 oem2、pws、ie5下测试下没发现大问题。  使用方法:  方法一:比方说你的3...
说明:
  这是个关于词语搭配的游戏,是用asp、vbscript和javascript写的。
  在本机win98 oem2、pws、ie5下测试下没发现大问题。

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

  方法二:将游戏文件(wordasb.asp)随便拷入一新建的目录。鼠标右键点击该目录,菜单中选“属性”,
点“web sharing”属性页,点选“share this folder”项,点“ok”就可以了。
在ie的地址栏中键入你的机器名+/新建目录的名称/wordasb.asp
或新建目录的名称+/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