快捷搜索:

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

阐明:

这是个关于词语搭配的游戏,是用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吧),不知为什么

代码如下:

--------------------------------------------------------------------------------

"" Then

m_astrWords(m_iCount) = Split(Request.Form("txtWords" & m_iCount), ",")

End If

'Response.Write UBound(m_astrWords(m_iCount)) & "

"

Next

'检测是否重复提交表单

'If Session("FormInf") = Request.Form Then

' '表单是重复提交

' m_bRptedData = True

'Else

' '表单长短重复提交

' Session("FormInf") = Request.Form

' m_bRptedData = False

'End If

'Show("m_bRptedData")

'奸淫奸淫奸淫奸淫奸淫奸淫奸淫奸淫

'对单词文件进行操作

'奸淫奸淫奸淫奸淫奸淫奸淫奸淫奸淫

'If m_bRptedData = False Then

Dim m_iCount, m_iErrCnt

Dim m_strFilePath

'------------------------------------------

'常变量阐明

'm_iCount :计数器。整型

'm_iErrCnt :发生操作掉败的次数。整型

'm_strFilePath :记录种种词汇文件的路径。字符串型

'------------------------------------------

'得到放置词汇文件的路径

m_strFilePath = Request.ServerVariables("PATH_TRANSLATED")

m_strFilePath = Left(m_strFilePath, InStrRev(m_strFilePath, "\"))

'm_strFilePath = m_strFilePath & "Words\"

'Show("m_strFilePath")

'开始操作文件

'Response.Write "Begin to Operate Word Files

"

Select Case m_strOpWay

Case "SAVE"

'保存单词到文件中

m_iSenPart = CInt(Request.Form("txtSenPart"))

m_aiOpStatus(m_iSenPart) = SaveFile(m_iSenPart)

'根据操作状态,获得提示信息

Select Case m_aiOpStatus(m_iSenPart)

Case 0

m_strPrompt = "[" & m_astrSenPart(m_iSenPart) & "]部分单词已成功地被保存到文件中"

Case 1

m_strPrompt = "[" & m_astrSenPart(m_iSenPart) & "]部分文件保存掉败"

End Select

Case "SAVEALL"

'保存所有类其余单词到文件中

m_iErrCnt = 0

For m_iCount = 0 To (m_iPartCnt - 1)

m_aiOpStatus(m_iCount) = SaveFile(m_iCount)

If m_aiOpStatus(m_iCount) = 1 Then

m_iErrCnt = m_iErrCnt + 1

End If

Next

'根据操作状态,获得提示信息

Select Case m_iErrCnt

Case 0

m_strPrompt = "所有类其余单词都已成功地被保存到文件中"

Case m_iPartCnt

m_strPrompt = "所有类其余单词文件都保存掉败"

Case Else

m_strPrompt = "此中,"

For m_iCount = 0 To (m_iPartCnt - 1)

If m_aiOpStatus(m_iCount) = 1 Then

m_strPrompt = m_strPrompt & "[" & m_astrSenPart(m_iCount) & "]、"

End If

Next

m_strPrompt = Left(m_strPrompt, Len(m_strPrompt) - 1)

m_strPrompt = m_strPrompt & "部分文件保存掉败"

End Select

Case "LOAD"

'从文件中载入单词

m_iSenPart = CInt(Request.Form("txtSenPart"))

m_aiOpStatus(m_iSenPart) = LoadFile(m_iSenPart)

'根据操作状态,获得提示信息

Select Case m_aiOpStatus(m_iSenPart)

Case 0

m_strPrompt = "[" & m_astrSenPart(m_iSenPart) & "]部分单词已成功地被载入"

Case 1

m_strPrompt = "[" & m_astrSenPart(m_iSenPart) & "]部分文件不存在,载入掉败"

End Select

Case "LOADALL"

'从各个文件中载入单词

m_iErrCnt = 0

For m_iCount = 0 To (m_iPartCnt - 1)

m_aiOpStatus(m_iCount) = LoadFile(m_iCount)

If m_aiOpStatus(m_iCount) = 1 Then

m_iErrCnt = m_iErrCnt + 1

End If

Next

'根据操作状态,获得提示信息

Select Case m_iErrCnt

Case 0

m_strPrompt = "所有类其余单词都已成功地被载入"

Case m_iPartCnt

m_strPrompt = "所有类其余单词文件都不存在,载入完全掉败"

Case Else

m_strPrompt = "此中,"

For m_iCount = 0 To (m_iPartCnt - 1)

If m_aiOpStatus(m_iCount) = 1 Then

m_strPrompt = m_strPrompt & "[" & m_astrSenPart(m_iCount) & "]、"

End If

Next

m_strPrompt = Left(m_strPrompt, Len(m_strPrompt) - 1)

m_strPrompt = m_strPrompt & "部分文件不存在,载入部分掉败"

End Select

End Select

'End If

End If

'Response.Write "End to Operate Word Files

"

'Response.Write "Begin to Write Client Page

"

%>

词语搭配游戏

;

m_strPrompt = "";

m_iListFixed = -1;

m_iHelpFixed = -1;

m_astrSenPart = new Array();

m_astrWords = new Array();

//alert("m_iPartCnt: " + m_iPartCnt + "\nm_strPrompt: " + m_strPrompt);

//获得词汇分类的名称和已载入的种种词汇

//获得已载入的种种词汇

m_astrWords[] = new Array();

m_astrWords[] = "".split(",");

//获得词汇分类的名称

m_astrSenPart[] = "";

//show2DArray(m_astrWords);

//showArray(m_astrSenPart);

//将已载入的种种词汇写入到页面中

for (iCount = 0; iCount

您可能还会对下面的文章感兴趣: