词语搭配游戏的制作（ASP）一

说明：
　　这是个关于词语搭配的游戏，是用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