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

核心提示：//在列表中，使鼠标移到之处的单词//产生“点亮”的效果function lightOpt(ele){var eleSrc;//--//常变量说明//eleSrc ：发生事件的元素//-- eleSrc = ele;eleSrc.className = "optLighted";}//在列表中，词语

//在列表中，使鼠标移到之处的单词
//产生“点亮”的效果
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 = "＜div class='optDelighted' 用于测试的函数和过程

Sub Show(strDef)
Response.Write strDef & ": " & Eval(strDef) & "＜br＞"
End Sub

Sub ShowMethod()
Response.Write "Request Method: " & Request.ServerVariables("REQUEST_METHOD") & "＜br＞"
End Sub

Sub ShowForm()
Dim iCount
Dim strPRop

iCount = 0
Response.Write "*********Form Information******＜br＞"
For Each strProp In Request.Form
iCount = iCount + 1
Response.Write iCount & "." & strProp & ": " & Request.Form(strProp) & "＜br＞"
Next
Response.Write "*********Form End**************＜br＞"
End Sub
%＞