当前位置：ASP技术首页 >> ASP应用 >> 词语搭配游戏的制作（ASP）三

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

2004-10-01 08:26:10 作者：来源：互联网浏览次数：4 文字大小：【大】【中】【小】

简介：//在列表中，使鼠标移到之处的单词 //产生“点亮”的效果 function lightOpt(ele) { var eleSrc; //------------------------------------------ //常变量说明 //eleSrc ：发生事件的元素 //-------------------...

关键字：词语搭配制作 ASP

//在列表中，使鼠标移到之处的单词

//产生“点亮”的效果

function lightOpt(ele)

{

var eleSrc;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//------------------------------------------

eleSrc = ele;

eleSrc.className = "optLighted";

}

//在列表中，使鼠标离开的单词

//还原为初始状态

function delightOpt(ele)

{

var eleSrc;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//------------------------------------------

eleSrc = ele;

eleSrc.className = "optDelighted";

}

//得到定义过的将加入列表的单词

function makeOpt(strWord, iWrdIdx)

{

var strOptHead, strOptFoot;

var strOptWord;

//------------------------------------------

//常变量说明

//strOptHead ：重定义单词头。字符串型

//strOptFoot ：重定义单词尾。字符串型

//strOptWord ：重定义单词。字符串型

//------------------------------------------

strOptHead = "

strOptFoot = "

strOptWord = strOptHead + strWord + strOptFoot;

//alert(strOptWord);

return strOptWord;

}

//删除列表中的单词

function removeOpt(ele)

{

var eleSrc;

var iIndex, iWrdIdx;

var astrWords, astrHead, astrFoot;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//iIndex ：表示词汇分类的数字。整型

//iWrdIdx ：单词在单词数组中的索引。整型

//astrWords ：某类词汇单词数组。字符串型数组

//astrHead ：某类词汇单词数组头部分。字符串型数组

//astrFoot ：某类词汇单词数组尾部分。字符串型数组

//------------------------------------------

eleSrc = ele;

iIndex = getEleIndex(eleSrc.parentElement);

iWrdIdx = parseInt(eleSrc.wrdIdx);

//将单词从词汇数组中删去

//showArray(m_astrWords[iIndex]);

astrWords = m_astrWords[iIndex].concat();

astrHead = astrWords.slice(0, iWrdIdx);

astrFoot = astrWords.slice(iWrdIdx + 1);

m_astrWords[iIndex] = astrHead.concat(astrFoot);

//showArray(astrHead);

//showArray(astrFoot);

//showArray(m_astrWords[iIndex]);

//将剩余的单词重新写入到页面中

valueList(m_astrWords[iIndex], iIndex);

txtWord[iIndex].select();

}

//-->

词语搭配游戏

v1.0

<%For m_iCount = 0 To (m_iPartCnt - 1)%>
<%Next%>

<%= m_astrSenPart(m_iCount)%> 单词列表

个数：<%= 0%>

请单击游戏说明

游戏步骤

操作说明

游戏起源

制作原因

游戏功效

TOP

[游戏步骤]

TOP

<1>在每个部分的输入框中输入单词，按回车或“保存”按钮存入内存中；

或按“载入”按钮调出以前保存的某类别单词纪录；

或按“全部载入”按钮调出以前保存的所有类别单词纪录

<2>按“开始搭配”按钮，系统将从各类单词中随机抽取一个，组成一个句子

[操作说明]

TOP

保存得到用户输入的单词

重置将当前类别所有的单词从内存中删去

存入将所选类别的当前词汇保存进文件中

载入从文件中读取所选类别的单词纪录

全部重置重置页面至初始状态

全部保存把所有类别的单词都存入文件

全部载入从文件中载入所有类别的单词

开始搭配进行词汇搭配，得到一个句子

<1>

将鼠标移至“单词列表”处，会弹出该类词汇的单词列表；

将鼠标移开，列表会自动隐藏；

点击“单词列表”，会固定单词列表；

再次点击，会取消固定

<2>

在固定住一个单词列表后，

双击该列表中的某个单词，可以将该单词从内存中删去

<3>

输完一个单词后，直接按回车就可以保存了，这样比按“保存”保存单词更方便

[游戏起源]

TOP

这个游戏想法来自于小时候玩的纸团游戏。那时和姐姐在家里闲得无聊，就玩这个，哈哈。

玩法很简单，做一些纸片，分成四堆，分别写上亲朋好友的名字、形容程度的词语、关于地点的词语和所做的事情。

然后，将纸片捏成纸团，OK, Let's Start! 现在从每堆中抽出一个纸团，就有四个词语，将它们组成一句话，因为是随便抽的，有时能组成很搞笑的句子。

如：陈楠兴奋地在大街上跳夏威夷草裙舞；万民悠闲地在公园里洗澡。^_+

[制作原因]

TOP

主要是无聊，想做个游戏娱乐一下自己，当然也希望大家能从中得到笑声。

其次也想锻炼一下自己的技术，以前用VB做过一个，不是很好，这次用的是ASP，不知有没有进步，呵呵

这个版本我大概地测试了一下，没发现大的bug。如果您在游戏中发现了问题或有什么建议，请一定告诉我，在此先谢谢了！

我的信箱是iamchn@21cn.com。不好你就说吗！不可能你说好我又说不好，你不说好我又说好的，^_+

[游戏功效]

TOP

因为是搞笑游戏，所以能使你心情愉快、青春焕发，间接增加找对象的成功率；

因为不用做纸团了，减少了浪费和污染，从而美化了世界环境；

相信还有很多功效，请大家帮我找。哈哈。

� 2001 China Sentin Sci. & Tech. Co., Ltd.

Authored by Recon

http://recon.top263.net/

'以下是服务器端脚本

'用到的函数和过程

'************************

'函数名：SaveFile

'功能：将某类词汇保存到文件中

'输入：1、iSenPart ：表示词汇分类的数字。整型

' 可能的值有：

' 0：主语

' 1：程度状语

' 2：地点状语

' 3：谓语

'输出：对文件操作后的状态值。整型

' 可能的值有：

' 0：操作成功

' 1：操作失败

'************************

Function SaveFile(iSenPart)

Dim fsoMain, tsfWords

Dim iCount, iWrdCnt

Dim iOpStatus

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

'常变量说明

'fsoMain ：FSO对象

'tsfWords ：TEXTSTREAM对象

'iCount ：计数器。整型

'iWrdCnt ：某类词汇单词的数目。整型

'iOpStatus ：文件操作完毕后的状态。整型

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

Set fsoMain = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")

Set tsfWords= fsoMain.CreateTextFile(m_strFilePath & m_astrFileName(iSenPart), True)

tsfWords.WriteLine("[" & m_astrSenPart(iSenPart) & "部分]")

'如果该类别至少有一个单词

If IsEmpty(m_astrWords(iSenPart)) = False Then

iWrdCnt = UBound(m_astrWords(iSenPart)) + 1

For iCount = 0 To (iWrdCnt - 1)

tsfWords.WriteLine(m_astrWords(iSenPart)(iCount))

End If

tsfWords.Close

iOpStatus = 0

SaveFile = iOpStatus

End Function

'************************

'函数名：LoadFile

'功能：从文件中载入某类词汇

'输入：1、iSenPart ：表示词汇分类的数字。整型

' 可能的值有：

' 0：主语

' 1：程度状语

' 2：地点状语

' 3：谓语

'输出：对文件操作后的状态值。整型

' 可能的值有：

' 0：操作成功

' 1：操作失败

'************************

Function LoadFile(iSenPart)

Dim fsoMain, tsfWords

Dim strLoaded

Dim iOpStatus

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

'常变量说明

'fsoMain ：FSO对象

'tsfWords ：TEXTSTREAM对象

'strLoaded ：某类词汇所有单词构成的字符串。字符串型

'iOpStatus ：文件操作完毕后的状态。整型

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

Set fsoMain = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")

If fsoMain.FileExists(m_strFilePath & m_astrFileName(iSenPart)) = True Then

'如果存在纪录文件

strLoaded = ""

Set tsfWords= fsoMain.OpenTextFile(m_strFilePath & m_astrFileName(iSenPart), 1)

tsfWords.SkipLine

Do While tsfWords.AtEndOfStream = False

strLoaded = strLoaded & tsfWords.ReadLine & ","

Loop

If strLoaded <> "" Then

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

m_astrWords(iSenPart) = Split(strLoaded, ",")

Else

m_astrWords(iSenPart) = Empty

End If

tsfWords.Close

iOpStatus = 0

Else

'如果不存在纪录文件

iOpStatus = 1

End If

LoadFile = iOpStatus

End Function

'以下是服务器端脚本

'用于测试的函数和过程

Sub Show(strDef)

Response.Write strDef & ": " & Eval(strDef) & "
"

End Sub

Sub ShowMethod()

Response.Write "Request Method: " & Request.ServerVariables("REQUEST_METHOD") & "
"

End Sub

Sub ShowForm()

Dim iCount

Dim strProp

iCount = 0

Response.Write "*********Form Information******
"

For Each strProp In Request.Form

iCount = iCount + 1

Response.Write iCount & "." & strProp & ": " & Request.Form(strProp) & "
"

Response.Write "*********Form End**************
"

End Sub

责任编辑：admin

本文引用地址： http://www.3pcode.com/asp/2004/10/392.htm

发表评论　加入收藏　告诉好友　打印本页　关闭窗口　返回顶部

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

最新文章

更多

推荐文章

更多

热点文章

更多