查开房记录网站,唐氏筛查性别,9号卫星
说明：
这是个关于词语搭配的游戏，是用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
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！
点击进行留言回复
我要评论
网友评论