说明：

　　这是个关于词语搭配的游戏，是用ASP、VBScript和JavaScript写的。

　　在本机Win98 OEM2、PWS、IE5下测试下没发现大问题。

　　使用方法：

　　方法一：比方说你的3W服务的目录是C:\Inetpub\wwwroot，在下面建一个目录，如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_a

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多ASP实例：词语搭配游戏的制作

	Web www.51ec.org