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

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

使用方法：
方法一：比方说你的3W服务的目录是C:Inetpub，在下面建一个目录，如wordAsb；
将游戏文件(wordAsb.asp)拷入目录中；在IE的地址栏中键入你的机器名+/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