以下为引用的内容：
＜%@ 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() Spdns^com
'------------------------------------------
'常变量说明
'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 Spdns~com
'************************
'获得客户端的信息
'************************
Dim m_iSenPart
Dim m_strOpWay
Dim m_bRptedData 中.国.南通服务器网
'------------------------------------------
'常变量说明
'm_iSenPart ：表示词汇分类的数字。整型
' 词汇的分类来自数组m_astrSenPart
' 可能的值有：
' 0：主语
' 1：程度状语
' 2：地点状语
' 3：谓语 Www~Spdns~com
'm_strOpWay ：文件操作方式。字符串型
' 可能的值有：
' 1、SAVE ：将某类词汇存入文件
' 2、SAVEALL ：将所有类别的词汇存入文件
' 3、LOAD ：从文件中载入某类词汇
' 4、LOADALL ：从文件中载入所有类别的词汇 Www_Spdns_com
'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 Www_Spdns_com
'检测是否重复提交表单
'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 Www^Spdns^com
'------------------------------------------
'常变量说明
'm_iCount ：计数器。整型
'm_iErrCnt ：发生操作失败的次数。整型
'm_strFilePath ：记录各类词汇文件的路径。字符串型
'------------------------------------------ Spdns^com
'获得放置词汇文件的路径
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＜br＞"
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) & "]部分单词已成功地被保存到文件中" Spdns~com
Case 1
m_strPrompt = "[" & m_astrSenPart(m_iSenPart) & "]部分文件保存失败"
End Select Www@Spdns@com
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 Spdns
'根据操作状态，得到提示信息
Select Case m_iErrCnt
Case 0
m_strPrompt = "所有类别的单词都已成功地被保存到文件中" 中.国.南通服务器网
Case m_iPartCnt
m_strPrompt = "所有类别的单词文件都保存失败" Www~Spdns~com
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 中国南通服务器网,为中文网南通服务器网
'根据操作状态，得到提示信息
Select Case m_aiOpStatus(m_iSenPart)
Case 0
m_strPrompt = "[" & m_astrSenPart(m_iSenPart) & "]部分单词已成功地被载入" Spdns~com
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 = "所有类别的单词都已成功地被载入" Www~Spdns~com
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 Spdns
'End If
End If
'Response.Write "End to Operate Word Files＜br＞"
'Response.Write "Begin to Write Client Page＜br＞"
%＞ 中.国.南通服务器网
＜html＞
＜head＞
＜title＞ 词语搭配游戏 ＜/title＞
＜meta name="Generator" content="EditPlus"＞
＜meta name="Author" content="">
＜meta name="Keywords" content="">
＜meta name="Description" content=""> Spdns.com
＜!--风格表
＜style>
＜!--
/*英文字体1*/
.fontEng1
{
font-family: TIMES NEW ROMAN;
font-style: ;
} 中.国南通服务器网
/*英文字体2*/
.fontEng2
{
font-family: TIMES NEW ROMAN;
font-style: ITALIC;
} Spdns@com
/*强调字体*/
.fontEmp
{
color: RED;
} 中国南通服务器网
/*链接*/
.link
{
font-family: TIMES NEW ROMAN;
font-style: ITALIC;
text-decoration: NONE;
} 中.国南通服务器网
/*被显示的单词列表*/
.listShown
{
position: ABSOLUTE;
width: 140px;
height: 200px;
display: INLINE;
border: LIGHTCORAL 1px SOLID;
background-color: GAINSBORO;
} 南通服务器网
/*被隐藏的单词列表*/
.listHidden
{
position: ABSOLUTE;
width: 140px;
height: 200px;
display: NONE;
border: LIGHTCORAL 1px SOLID;
background-color: GAINSBORO;
} [南通服务器网]
/*被固定的单词列表*/
.listFixed
{
position: ABSOLUTE;
width: 140px;
height: 200px;
display: INLINE;
border: RED 1px SOLID;
background-color: GAINSBORO;
} Www^Spdns^com
/*被显示的帮助列表*/
.helpShown
{
position: ABSOLUTE;
width: ;
height: ;
display: block;
border: LIGHTCORAL 1px SOLID;
background-color: GAINSBORO;
} Spdns.com
/*被隐藏的帮助列表*/
.helpHidden
{
position: ABSOLUTE;
width: ;
height: ;
display: NONE;
border: LIGHTCORAL 1px SOLID;
background-color: GAINSBORO;
} 中国南通服务器网
/*被固定的帮助列表*/
.helpFixed
{
position: ABSOLUTE;
width: ;
height: ;
display: block;
border: RED 1px SOLID;
background-color: GAINSBORO;
} Www.Spdns.com
/*被强调显示的标签*/
.lblMOver
{
text-decoration: NONE;
color: LIGHTCORAL;
background-color: ;
} Www^Spdns^com
/*正常显示的标签*/
.lblMOut
{
text-decoration: NONE;
color: ;
background-color: ;
} 中国.南通服务器网
/*被点击过的标签*/
.lblClicked
{
text-decoration: UNDERLINE;
color: RED;
background-color: ;
} 中.国.南通服务器网
/*高亮显示的按钮*/
.btnLighted
{
width: 105px;
color: BLUE;
background-color: ;
} Www.Spdns.com
/*正常显示的按钮*/
.btnDelighted
{
width: 105px;
color: ;
background-color: ;
} [南通服务器网]
/*高亮显示的单词列表项*/
.optLighted
{
text-decoration: UNDERLINE;
color: BLUE;
background-color: ;
cursor: HAND;
} Spdns
/*正常显示的单词列表项*/
.optDelighted
{
text-decoration: NONE;
color: ;
background-color: ;
cursor: ;
}
＜/style> Www^Spdns^com
＜!--客户端脚本
＜script language="JavaScript">
＜!--
//客户端公用及测试函数
//************************
//函数名 ：lTrim
//功能 ：去掉字串左边的空格
//输入 ：1、strTemp ：要规整的字串。字符串型
//输出 ：规整后的字串。字符串型
//************************
function lTrim(strTemp)
{
var iCount, iLength;
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iLength ：字串的长度。整型
//------------------------------------------ Spdns.com
iLength = strTemp.length;
for (iCount = 0; iCount ＜ iLength; iCount ++)
if (strTemp.charAt(iCount) != " ")
return strTemp.substring(iCount, iLength); 中国.南通服务器网
return "";
} Www~Spdns~com
//************************
//函数名 ：rTrim
//功能 ：去掉字串右边的空格
//输入 ：1、strTemp ：要规整的字串。字符串型
//输出 ：规整后的字串。字符串型
//************************
function rTrim(strTemp)
{
var iCount, iLength;
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iLength ：字串的长度。整型
//------------------------------------------ Spdns
iLength = strTemp.length;
for(iCount = iLength - 1; iCount >= 0; iCount --)
if (strTemp.charAt(iCount) != " ")
return strTemp.substring(0, iCount + 1); 中国.南通服务器网
return "";
} 中国南通服务器网
//************************
//函数名 ：trim
//功能 ：去掉字串两边的空格
//输入 ：1、strTemp ：要规整的字串。字符串型
//输出 ：规整后的字串。字符串型
//************************
function trim(strTemp)
{
return rTrim(lTrim(strTemp));
} 中国南通服务器网
//将2位数字转换成2位数字字串
//************************
//函数名 ：get2bNumStr
//功能 ：转换2位的数字成2位的数字字串
//输入 ：1、iNumber ：要转换的数字。整型
//输出 ：转换后得到的数字字串。整型
//************************
function get2bNumStr(iNumber)
{
var str2bNum;
//------------------------------------------
//常变量说明
//str2bNum ：数字字串。字符串型
//------------------------------------------ 中国.南通服务器网
if (parseInt(iNumber) ＜ 10)
str2bNum = "0" + iNumber;
else
str2bNum = "" + iNumber; 中.国南通服务器网
return str2bNum;
} 南通服务器网
//************************
//函数名 ：assignFunc
//功能 ：指定元素的事件处理函数
//输入 ：1、ele ：要指定事件处理函数的元素。对象型
// 2、func ：事件处理函数。函数型
// 3、event ：事件类型。字符串型
//输出 ：无
//************************
function assignFunc(ele, func, event)
{
var iCount, iEleCount;
var strEvent; Spdns
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iEleCount ：同名元素集合中元素的个数。整型
//strEvent ：事件类型。字符串型
//------------------------------------------ Spdns.com
if (event == null)
strEvent = "onclick";
else
strEvent = event; Spdns
iEleCount = ele.length;
if (iEleCount == undefined)
eval("ele." + strEvent + " = " + func);
else
for (iCount = 0; iCount ＜ iEleCount; iCount ++)
eval("ele[iCount]." + strEvent + " = " + func);
} 中国南通服务器网
//************************
//函数名 ：getEleIndex
//功能 ：得到发生事件的元素在同名集合中的索引
//输入 ：1、eleSrc ：发生事件的元素。对象型
//输出 ：发生事件的元素在同名集合中的索引
//************************
function getEleIndex(eleSrc)
{
var colSrc;
var iCount, iEleCount; 中.国.南通服务器网
//------------------------------------------
//常变量说明
//colSrc ：同名元素集合。对象型数组
//iCount ：计数器。整型
//iEleCount ：同名元素集合中元素的个数。整型
//------------------------------------------ 中国南通服务器网
colSrc = eval(eleSrc.id);
iEleCount = colSrc.length;
for (iCount = 0; iCount ＜ iEleCount; iCount ++)
{
if (colSrc[iCount] == eleSrc)
return iCount;
} 中国南通服务器网
return -1;
} Spdns~com
//显示常变量的值（调试用）
//!准备删去
function show(strDef1, strDef2, strDef3, strDef4)
{
var iCount, iDefCnt;
var strShow, strTemp; Www_Spdns_com
iDefCnt = 4;
strShow = "[常变量值]";
for (iCount = 1; iCount ＜= iDefCnt; iCount ++)
{
strTemp = eval("strDef" + iCount);
if (strTemp != undefined && strTemp != null)
strShow += "\n" + strTemp + ": " + eval(strTemp);
} Spdns
alert(strShow);
} Spdns
//************************
//函数名 ：showArray
//功能 ：显示一维数组的元素（调试用）
//输入 ：1、array ：要显示的一维数组。数组
//输出 ：无
//************************
function showArray(array)
{
var iCount, iEleCount;
var strShow; Www_Spdns_com
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iEleCount ：数组元素的个数。整型
//strShow ：数组元素值构成的字串。字符串型
//------------------------------------------ Spdns~com
iEleCount = array.length;
strShow = "Array Length: " + iEleCount;
strShow += "\n---------------------------------\n"; 南通服务器网
for (iCount = 0; iCount ＜ iEleCount; iCount ++)
{
if (typeof(array[iCount]) == "object")
strShow += array[iCount].id + " ";
else
strShow += array[iCount] + " ";
} Spdns
alert(strShow);
} Www.Spdns.com
//************************
//函数名 ：show2DArray
//功能 ：显示二维数组的元素（调试用）
//输入 ：1、array ：要显示的二维数组。数组
//输出 ：无
//************************
function show2DArray(array)
{
var iX, iY, iLen1, iLen2;
var strShow; Spdns^com
//------------------------------------------
//常变量说明
//iX ：计数器。整型
//iY ：计数器。整型
//iLen1 ：数组一维的数目。整型
//iLen2 ：数组二维的数目。整型
//strShow ：数组元素值构成的字串。字符串型
//------------------------------------------ Www~Spdns~com
iLen1 = array.length;
strShow = "Array 1D Length: " + iLen1;
strShow += "\n---------------------------------"; Spdns
for (iX = 0; iX ＜ iLen1; iX ++)
{
strShow += "\n";
iLen2 = array[iX].length;
for (iY = 0; iY ＜ iLen2; iY ++)
strShow += array[iX][iY] + " ";
} Www~Spdns~com
alert(strShow);
}
//
＜/script> 南通服务器网
＜script language="JavaScript">
＜!--
//--------------------函数列表--------------------------
//window_onload
//
//getWord
//reset
//save
//load
//
//showList
//hideList
//fixList
//valueList
//
//showHelp
//hideHelp
//fixHelp
//
//resetAll
//saveAll
//loadAll
//assemble
//
//lightBtn
//delightBtn
//lightOpt
//delightOpt
//
//makeOpt
//removeOpt
//----------------------------------------------------------- 南通服务器网
var m_iPartCnt;
var m_astrSenPart, m_astrWords;
var m_strPrompt;
var m_iListFixed, m_iHelpFixed; 中国南通服务器网
//------------------------------------------
//常变量说明
//m_iPartCnt ：词汇分类的数目。整型
//m_astrSenPart ：词汇分类的名称。字符型数组
//m_astrWords ：纪录各类词汇。二维字符型数组
//m_strPrompt ：文件操作完毕后的提示信息。字符串型
//m_iListFixed ：代表被固定单词列表的数字。整型
// -1表示没有单词列表被固定
//m_iHelpFixed ：表示帮助列表固定状态的数字。整型
// -1表示帮助列表没有被固定
//------------------------------------------ Spdns.com
window.onload = window_onload;
//-----------------------------------------------------------
//初始化页面
function window_onload()
{
var iCount, iEleCnt;
var colButton;
var strHelp; Spdns_com
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iEleCnt ：集合中元素的个数。整型
//colButton ：BUTTON元素的集合。对象型数组
//strHelp ：帮助文件内容。字符串型
//------------------------------------------ Www^Spdns^com
m_iPartCnt = ＜%= m_iPartCnt%>;
m_strPrompt = "＜%= 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); 南通服务器网
//得到词汇分类的名称和已载入的各类词汇
＜%For m_iCount = 0 To (m_iPartCnt - 1)%>
//得到已载入的各类词汇
＜%If IsEmpty(m_astrWords(m_iCount)) = True Then%>
m_astrWords[＜%= m_iCount%>] = new Array();
＜%Else%>
m_astrWords[＜%= m_iCount%>] = "＜%= Join(m_astrWords(m_iCount), ",")%>".split(",");
＜%End If%> 中国南通服务器网
//得到词汇分类的名称
m_astrSenPart[＜%= m_iCount%>] = "＜%= m_astrSenPart(m_iCount)%>";
＜%Next%>
//show2DArray(m_astrWords);
//showArray(m_astrSenPart); Www^Spdns^com
//将已载入的各类词汇写入到页面中
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
valueList(m_astrWords[iCount], iCount); Spdns@com
//载入帮助文件
//strHelp = tblHelp.outerHTML;
//strHelp = divHelp1.innerHTML;
//tblHelp.outerHTML = "";
//divHelp.innerHTML = strHelp;
//tblHelp.style.display = "";
//divHelp.style.display = "NONE";
//divHelp.style.left = divHelp1.style.left;
//alert("left: "+divHelp.style.left + "\nleft: " + divHelp1.style.left);
//alert("pixelleft: "+divHelp.style.pixelLeft + "\npixelleft: " + divHelp1.style.pixelLeft);
//alert("posLeft: "+divHelp.style.posLeft + "\nposLeft: " + divHelp1.style.posLeft);
//alert("offsetLeft : "+divHelp.offsetLeft + "\noffsetLeft : " + divHelp1.offsetLeft );
//alert("clientLeft : "+divHelp.clientLeft + "\nclientLeft : " + divHelp1.clientLeft ); 中国南通服务器网
//指定页面元素的事件处理函数
assignFunc(txtWord, getWord, "onkeypress");
assignFunc(btnGetWord, getWord);
assignFunc(btnReset, reset);
assignFunc(btnSave, save);
assignFunc(btnLoad, load);
assignFunc(lblWordList, showList, "onmouseover");
assignFunc(lblWordList, hideList, "onmouseout");
assignFunc(lblWordList, fixList);
assignFunc(lblHelp, showHelp, "onmouseover");
assignFunc(lblHelp, hideHelp, "onmouseout");
assignFunc(lblHelp, fixHelp);
assignFunc(btnResetAll, resetAll);
assignFunc(btnSaveAll, saveAll);
assignFunc(btnLoadAll, loadAll);
assignFunc(btnAsb, assemble); 中国.南通服务器网
colButton = document.all.tags("BUTTON");
iEleCnt = colButton.length;
//showArray(colButton);
//alert("iEleCnt: " + iEleCnt);
for (iCount = 0; iCount ＜ iEleCnt; iCount ++)
{
assignFunc(colButton[iCount], lightBtn, "onmouseover");
assignFunc(colButton[iCount], delightBtn, "onmouseout");
} 中国南通服务器网,为中文网南通服务器网
//检测输入的单词是否合法
//若是非法的单词则退出
if (strWord == "")
{
//若输入的单词为空或空格字符串
alert("单词不能为空或空格字符串");
txtWord[iIndex].select();
return;
} 中国南通服务器网,为中文网南通服务器网
//-----------------------------------------------------------
//将所选类别的当前词汇保存进文件中
function save()
{
var eleSrc;
var iIndex, iCount; Www_Spdns_com
//------------------------------------------
//常变量说明
//eleSrc ：发生事件的元素
//iIndex ：表示词汇分类的数字。整型
//iCount ：计数器。整型
//------------------------------------------ 中.国.南通服务器网
eleSrc = window.event.srcElement;
iIndex = getEleIndex(eleSrc); 南通服务器网
if (m_astrWords[iIndex].length == 0)
{
//如果所选类别的当前单词个数为零
var strPrompt;
strPrompt = "[" + m_astrSenPart[iIndex] + "]部分现在一个可选单词也没有，您确定要保存吗？";
strPrompt += "\n(这样将生成一个空的新文件)";
if (window.confirm(strPrompt) == false) return;
} 中.国.南通服务器网
//保存当前内存中所有的单词
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
eval("frmWords.txtWords" + iCount).value = m_astrWords[iCount].join(","); Www@Spdns@com
frmWords.txtSenPart.value = iIndex;
frmWords.txtOpWay.value = "SAVE";
frmWords.submit();
} 中国南通服务器网
//-----------------------------------------------------------
//从文件中读取所选类别的单词纪录
function load()
{
var eleSrc;
var iIndex, iCount; 中国南通服务器网,为中文网南通服务器网
//保存当前内存中所有的单词
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
eval("frmWords.txtWords" + iCount).value = m_astrWords[iCount].join(",") 中.国.南通服务器网
frmWords.txtSenPart.value = iIndex;
frmWords.txtOpWay.value = "LOAD";
frmWords.submit();
} Spdns^com
//-----------------------------------------------------------
//显示词汇列表
function showList(iIndex)
{
//如果未给定参数 iIndex
//获得 iIndex
if (iIndex == undefined)
{
//如果已有单词列表被固定，退出函数
if (m_iListFixed != -1) return; 中国南通服务器网
var eleSrc;
var iIndex; [南通服务器网]
//------------------------------------------
//常变量说明
//eleSrc ：发生事件的元素
//iIndex ：表示词汇分类的数字。整型
//------------------------------------------ 中国南通服务器网
eleSrc = window.event.srcElement;
iIndex = getEleIndex(eleSrc);
}
//alert("iIndex: "+iIndex); 中国.南通服务器网
//显示词汇列表
//lblWordList[iIndex].innerText = "[" + lblWordList[iIndex].innerText + "]";
//lblWordList[iIndex].innerText = lblWordList[iIndex].innerText + "＞";
lblWordList[iIndex].className = "lblMOver";
divWordList[iIndex].className= "listShown";
} 南通服务器网
//-----------------------------------------------------------
//隐藏词汇列表
function hideList(iIndex)
{
//如果未给定参数 iIndex
//获得 iIndex
if (iIndex == undefined)
{
//如果已有单词列表被固定，退出函数
if (m_iListFixed != -1) return; 中国南通服务器网,为中文网南通服务器网
eleSrc = window.event.srcElement;
iIndex = getEleIndex(eleSrc);
}
//alert("iIndex: "+iIndex); Spdns.com
//隐藏词汇列表
//lblWordList[iIndex].innerText = lblWordList[iIndex].innerText.slice(0, -1);
lblWordList[iIndex].className = "lblMOut";
divWordList[iIndex].className= "listHidden";
} 中国南通服务器网
//-----------------------------------------------------------
//固定词汇列表
function fixList()
{
var eleSrc;
var iIndex; Spdns.com
//------------------------------------------
//常变量说明
//eleSrc ：发生事件的元素
//iIndex ：表示词汇分类的数字。整型
//------------------------------------------ Spdns
eleSrc = window.event.srcElement;
iIndex = getEleIndex(eleSrc); 南通服务器网
switch (m_iListFixed)
{
case -1:
//如果还没有单词列表被固定
//固定当前列表
m_iListFixed = iIndex;
lblWordList[iIndex].className = "lblClicked";
divWordList[iIndex].className= "listFixed";
break; Spdns@com
case iIndex:
//如果被固定单词列表是当前列表
//解固当前列表
m_iListFixed = -1;
lblWordList[iIndex].className = "lblMOver";
divWordList[iIndex].className= "listShown";
break; Spdns^com
default:
//如果被固定单词列表不是当前列表
//解固被固定列表
hideList(m_iListFixed);
m_iListFixed = -1;
lblWordList[iIndex].className = "lblMOver";
showList(iIndex);
break;
} 中.国.南通服务器网
//alert("m_iListFixed: " + m_iListFixed + "\niIndex: " + iIndex);
} Www^Spdns^com
//-----------------------------------------------------------
//写入某类词汇已载入的单词
function valueList(aWords, iSenPart)
{
var iCount, iWrdCnt;
var strListPpt; Www~Spdns~com
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iWrdCnt ：某类词汇单词的数目。整型
//strListPpt ：单词列表中的提示。字符串型
//------------------------------------------ 中国.南通服务器网
//数据准备
iWrdCnt = aWords.length;
lblWordCount[iSenPart].innerText = iWrdCnt;
strListPpt = "＜div＞＜span style='color: RED; font-style: Italic; font-size: 10.5pt;'＞";
strListPpt += "双击单词将其删除＜/span＞＜/div＞"; 南通服务器网
//将单词写入列表
if (iWrdCnt != 0)
{
divWordList[iSenPart].innerHTML = strListPpt;
for (iCount = 0; iCount ＜ iWrdCnt; iCount ++)
divWordList[iSenPart].innerHTML += makeOpt(aWords[iCount], iCount);
}
else
divWordList[iSenPart].innerHTML = strListPpt;
} Spdns~com
//-----------------------------------------------------------
//显示帮助列表
function showHelp()
{
//如果帮助列表已被固定，退出函数
if (m_iHelpFixed == 0) return; Www^Spdns^com
//显示帮助
lblHelp.className = "lblMOver";
divHelp.className = "helpShown";
} Spdns
//-----------------------------------------------------------
//隐藏帮助列表
function hideHelp()
{
//如果帮助列表已被固定，退出函数
if (m_iHelpFixed == 0) return; Spdns
//隐藏帮助
lblHelp.className = "lblMOut";
divHelp.className = "helpHidden";
} 中国南通服务器网
//-----------------------------------------------------------
//固定帮助列表
function fixHelp()
{
if (m_iHelpFixed == -1)
{
//如果帮助列表还未被固定
//固定它
m_iHelpFixed = 0;
lblHelp.className = "lblClicked";
divHelp.className = "helpFixed";
}
else
{
//如果帮助列表已被固定
//解固它
m_iHelpFixed = -1;
lblHelp.className = "lblMOver";
divHelp.className = "helpShown";
}
} Spdns_com
//-----------------------------------------------------------
//重置页面至初始状态
function resetAll()
{
var iCount;
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//------------------------------------------ Spdns@com
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
{
txtWord[iCount].value= "";
m_astrWords[iCount] = new Array(); //将单词数组清空
valueList(m_astrWords[iCount], iCount);
} Www~Spdns~com
txtSentence.value = "";
txtWord[0].focus();
} 中国南通服务器网
//-----------------------------------------------------------
//把所有类别的单词都存入文件
function saveAll()
{
var iCount, iEmptyCnt;
var strPrompt; 中.国南通服务器网
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iEmptyCnt ：单词数目为0的类别个数。整型
//strPrompt ：操作提示。字符串型
//------------------------------------------ 中.国南通服务器网
iEmptyCnt = 0;
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
{
//保存当前内存中所有的单词
eval("frmWords.txtWords" + iCount).value = m_astrWords[iCount].join(",");
if (m_astrWords[iCount].length == 0)
iEmptyCnt ++;
}
//alert("iEmptyCnt: " + iEmptyCnt); 中国南通服务器网
if (iEmptyCnt ＞ 0)
{
switch (iEmptyCnt)
{
case m_iPartCnt:
strPrompt = "所有类别的词汇单词个数都为0，操作将会产生" + m_iPartCnt + "个空文件";
strPrompt += "\n您确定要这样做吗？";
break; 中.国.南通服务器网
default:
strPrompt = "其中，";
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
if (m_astrWords[iCount].length == 0)
strPrompt += "[" + m_astrSenPart[iCount] + "]、";
strPrompt = strPrompt.slice(0, -1);
strPrompt += "部分单词个数为0";
strPrompt += "\n操作将会产生" + iEmptyCnt + "个空文件";
strPrompt += "，您确定要这样做吗？";
} 中国南通服务器网,为中文网南通服务器网
//-----------------------------------------------------------
//从文件中载入所有类别的单词
function loadAll()
{
var iCount;
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//------------------------------------------ Spdns~com
//保存当前内存中所有的单词
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
eval("frmWords.txtWords" + iCount).value = m_astrWords[iCount].join(",") 中国南通服务器网,为中文网南通服务器网
//------------------------------------------
//常变量说明
//iCount ：计数器。整型
//iWrdCnt ：某类词汇单词的个数。整型
//iRndIndex ：随机产生的单词索引。整型
//strSentence ：由各个类别词汇中的随机单词组成的句子。字符串型
//------------------------------------------ Spdns@com
strSentence = "";
for (iCount = 0; iCount ＜ m_iPartCnt; iCount ++)
{
//如果当前类别词汇的个数为0
//给出提示，并中止搭配
iWrdCnt = m_astrWords[iCount].length;
if (iWrdCnt == 0)
{
var strPrompt;
//------------------------------------------
//常变量说明
//strPrompt ：操作提示。字符串型
//------------------------------------------ Spdns^com
strPrompt = "[" + m_astrSenPart[iCount] + "]部分一个可选单词也没有";
strPrompt += "\n请至少输入一个单词";
alert(strPrompt);
txtWord[iCount].select();
return;
} Spdns~com
//随机抽取当前类别词汇中的一个单词
//加入到句子中
iRndIndex = Math.floor(Math.random()*iWrdCnt);
strSentence += m_astrWords[iCount][iRndIndex];
//alert("iWrdCnt: " + iWrdCnt + "\niRndIndex: " + iRndIndex);
} Www@Spdns@com
strSentence += "。";
txtSentence.value = strSentence;
} 中国南通服务器网
//使鼠标移到之处的按钮
//产生“点亮”的效果
function lightBtn()
{
var eleSrc;
//------------------------------------------
//常变量说明
//eleSrc ：发生事件的元素
//------------------------------------------ Www.Spdns.com
eleSrc = window.event.srcElement;
while (eleSrc.tagName.toUpperCase() != "BUTTON")
eleSrc = eleSrc.parentElement;
eleSrc.className = "btnLighted";
} 中国.南通服务器网
//使鼠标离开的按钮
//还原为初始状态
function delightBtn()
{
var eleSrc;
//------------------------------------------
//常变量说明
//eleSrc ：发生事件的元素
//------------------------------------------ 南通服务器网
eleSrc = window.event.srcElement;
while (eleSrc.tagName.toUpperCase() != "BUTTON")
eleSrc = eleSrc.parentElement;
eleSrc.className = "btnDelighted";
} 中.国南通服务器网
//在列表中，使鼠标移到之处的单词
//产生“点亮”的效果
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 ：重定义单词。字符串型
//------------------------------------------ Www_Spdns_com
strOptHead = "＜div class='optDelighted' onmouseover='lightOpt(this);' onmouseout='delightOpt(this);' ondblclick='removeOpt(this);' wrdIdx='" + iWrdIdx + "'＞";
strOptFoot = "＜/div＞";
strOptWord = strOptHead + strWord + strOptFoot;
//alert(strOptWord); 中国南通服务器网
return strOptWord;
} Spdns^com
//删除列表中的单词
function removeOpt(ele)
{
var eleSrc;
var iIndex, iWrdIdx;
var astrWords, astrHead, astrFoot; Spdns~com
//------------------------------------------
//常变量说明
//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]); Spdns
//将剩余的单词重新写入到页面中
valueList(m_astrWords[iIndex], iIndex);
txtWord[iIndex].select();
}
//--＞
＜/script＞
＜/head＞ 中国南通服务器网
＜body＞
＜!--标题--＞
＜div align="CENTER"＞
＜span style="font-size: 20pt; font-weight: BOLD"＞词语搭配游戏＜/span＞
＜span class="fontEng2"＞v1.0＜/span＞
＜/div＞ Www_Spdns_com
＜hr style="visibility: HIDDEN"＞
＜!--主表格1--＞
＜table border="0" align="CENTER" width="80%"＞ Spdns_com
＜colgroup＞＜/colgroup＞
＜colgroup＞＜/colgroup＞
＜colgroup＞＜/colgroup＞
＜colgroup＞＜/colgroup＞
＜colgroup＞＜/colgroup＞
＜colgroup＞＜/colgroup＞
＜colgroup align="CENTER"＞＜/colgroup＞
＜colgroup＞＜/colgroup＞ Spdns~com
＜%For m_iCount = 0 To (m_iPartCnt - 1)%＞
＜tr＞
＜td＞＜%= m_astrSenPart(m_iCount)%＞＜/td＞
＜td width="20%"＞＜input type="text" id="txtWord" style="width: 100%"＞＜/td＞
＜td＞＜button id="btnGetWord" style="width: 75px" title="将单词保存到内存中"＞保存＜/button＞＜/td＞
＜td＞＜button id="btnReset" style="width: 75px" title="从内存中删去当前类别所有的单词"＞重置＜/button＞＜/td＞
＜td＞＜button id="btnSave" style="width: 75px" title="将单词保存到文件中"＞存入＜/button＞＜/td＞
＜td＞＜button id="btnLoad" style="width: 75px" title="从文件中载入单词"＞载入＜/button＞＜/td＞
＜td width="15%"＞＜label id="lblWordList" title="单击固定我"＞单词列表＜/label＞＜/td＞
＜td＞
＜div id="divWordList" class="listHidden"＞＜/div＞
个数：＜label id="lblWordCount" class="fontEng1"＞＜%= 0%＞＜/label＞ Spdns@com ＜/td＞ ＜/tr＞ ＜%Next%＞ 中国南通服务器网,为中文网南通服务器网
＜tr＞
＜td＞＜button id="btnResetAll" accesskey="r" title="从内存中删去所有类别的单词" class="btnDelighted"＞全部重置 ＜u＞R＜/u＞＜/button＞＜/td＞
＜td＞＜button id="btnSaveAll" accesskey="s" title="将所有类别的单词保存到文件中" class="btnDelighted"＞全部存入 ＜u＞S＜/u＞＜/button＞＜/td＞
＜td＞＜button id="btnLoadAll" accesskey="l" title="从文件中载入所有类别的单词" class="btnDelighted"＞全部载入 ＜u＞L＜/u＞＜/button＞＜/td＞
＜td＞
＜span style="font-size: 9pt; color: RED;"＞请单击＜/span＞ ＜label id="lblHelp" title="单击固定我"＞游戏说明＜/label＞
＜!--帮助说明表格--＞
＜div id="divHelp" class="helpHidden"＞
＜table id="tblHelp" border="0" align="CENTER" width="300px" style="font-size: 9pt;"＞
＜colgroup width="75px"＞＜/colgroup＞ Spdns
＜colgroup＞＜/colgroup＞ Www~Spdns~com
＜tr＞＜td colspan="2"＞
＜a href="#1" style="color: BLUE;"＞游戏步骤＜/a＞
＜a href="#2" style="color: BLUE;"＞操作说明＜/a＞
＜a href="#3" style="color: BLUE;"＞游戏起源＜/a＞
＜a href="#4" style="color: BLUE;"＞制作原因＜/a＞
＜a href="#5" style="color: BLUE;"＞游戏功效＜/a＞
＜a name="0" style="display: NONE;"＞TOP＜/a＞
＜/td＞＜/tr＞ 中国.南通服务器网
＜!--游戏步骤--＞
＜tr＞＜td colspan="2"＞＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
[＜a name="1" style="color: BLUE;"＞游戏步骤＜/a＞]
＜a href="#0" class="link"＞TOP＜/a＞
＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
＜span class="fontEng1"＞＜1＞＜/span＞在每个部分的＜span class="fontEmp"＞输入框＜/span＞中输入单词， 按＜span class="fontEmp"＞回车＜/span＞或＜span class="fontEmp"＞“保存”＜/span＞按钮存入内存中；
或按＜span class="fontEmp"＞“载入”＜/span＞按钮调出以前保存的某类别单词纪录；
或按＜span class="fontEmp"＞“全部载入”＜/span＞按钮调出以前保存的所有类别单词纪录＜br＞
＜span class="fontEng1"＞＜2＞＜/span＞按＜span class="fontEmp"＞“开始搭配”＜/span＞按钮，系统将从各类单词中随机抽取一个，组成一个句子
＜/td＞＜/tr＞ 中.国.南通服务器网
＜!--操作说明--＞
＜tr＞＜td colspan="2"＞＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
[＜a name="2" style="color: BLUE;"＞操作说明＜/a＞]
＜a href="#0" class="link"＞TOP＜/a＞
＜/td＞＜/tr＞
＜tr＞
＜td＞保存＜/td＞
＜td＞得到用户输入的单词＜/td＞
＜/tr＞ 中.国南通服务器网
＜tr＞
＜td＞重置＜/td＞
＜td＞将当前类别所有的单词从内存中删去＜/td＞
＜/tr＞ Spdns~com
＜tr＞
＜td＞存入＜/td＞
＜td＞将所选类别的当前词汇保存进文件中＜/td＞
＜/tr＞ Www@Spdns@com
＜tr＞
＜td＞载入＜/td＞
＜td＞从文件中读取所选类别的单词纪录＜/td＞
＜/tr＞ Www^Spdns^com
＜tr＞
＜td＞全部重置＜/td＞
＜td＞重置页面至初始状态＜/td＞
＜/tr＞ Spdns
＜tr＞
＜td＞全部保存＜/td＞
＜td＞把所有类别的单词都存入文件＜/td＞
＜/tr＞ 中国.南通服务器网
＜tr＞
＜td＞全部载入＜/td＞
＜td＞从文件中载入所有类别的单词＜/td＞
＜/tr＞ 中国南通服务器网,为中文网南通服务器网,为中文网南通服务器网
＜span class="fontEng1"＞＜2＞＜/span＞
在＜span class="fontEmp"＞固定住一个单词列表＜/span＞后，
＜span class="fontEmp"＞双击＜/span＞该列表中的某个单词，可以将该单词从内存中删去＜br＞ Spdns~com
＜span class="fontEng1"＞＜3＞＜/span＞
输完一个单词后，＜span class="fontEmp"＞直接按回车＜/span＞就可以保存了，这样比按“保存”保存单词更方便
＜/td＞＜/tr＞ Spdns
＜!--游戏起源--＞
＜tr＞＜td colspan="2"＞＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
[＜a name="3" style="color: BLUE;"＞游戏起源＜/a＞]
＜a href="#0" class="link"＞TOP＜/a＞
＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
这个游戏想法来自于小时候玩的纸团游戏。那时和姐姐在家里闲得无聊，就玩这个，哈哈。
玩法很简单，做一些纸片，分成四堆，分别写上＜span class="fontEmp"＞亲朋好友的名字＜/span＞、＜span class="fontEmp"＞形容程度的词语＜/span＞、＜span class="fontEmp"＞关于地点的词语＜/span＞和＜span class="fontEmp"＞所做的事情＜/span＞。
然后，将纸片捏成纸团，＜span class="fontEng1"＞OK, Let's Start!＜/span＞ 现在从每堆中抽出一个纸团，就有四个词语，将它们组成一句话，因为是随便抽的，有时能组成很搞笑的句子。
如：陈楠兴奋地在大街上跳夏威夷草裙舞；万民悠闲地在公园里洗澡。^_+
＜/td＞＜/tr＞ Www^Spdns^com
＜!--制作原因--＞
＜tr＞＜td colspan="2"＞＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
[＜a name="4" style="color: BLUE;"＞制作原因＜/a＞]
＜a href="#0" class="link"＞TOP＜/a＞
＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
主要是无聊，想做个游戏娱乐一下自己，当然也希望大家能从中得到笑声。
其次也想锻炼一下自己的技术，以前用＜span class="fontEng1"＞VB＜/span＞做过一个，不是很好，这次用的是＜span class="fontEng1"＞ASP＜/span＞，不知有没有进步，呵呵
这个版本我大概地测试了一下，没发现大的＜span class="fontEng1"＞bug＜/span＞。如果您在游戏中发现了问题或有什么建议，请一定告诉我，在此先谢谢了！
我的信箱是＜a href="mailto: iamchn@21cn.com" class="link"＞iamchn@21cn.com＜/a＞。不好你就说吗！不可能你说好我又说不好，你不说好我又说好的，^_+
＜/td＞＜/tr＞ 南通服务器网
＜!--游戏功效--＞
＜tr＞＜td colspan="2"＞＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
[＜a name="5" style="color: BLUE;"＞游戏功效＜/a＞]
＜a href="#0" class="link"＞TOP＜/a＞
＜/td＞＜/tr＞
＜tr＞＜td colspan="2"＞
因为是搞笑游戏，所以能使你心情愉快、青春焕发，间接增加找对象的成功率；
因为不用做纸团了，减少了浪费和污染，从而美化了世界环境；
相信还有很多功效，请大家帮我找。哈哈。
＜/td＞＜/tr＞
＜/table＞
＜/div＞ 中国南通服务器网
＜/td＞
＜/tr＞ 南通服务器网
＜tr＞
＜td＞＜button id="btnAsb" accesskey="a" title="从每个类别词汇中随机抽取一个单词，组成一个句子"class="btnDelighted"＞开始搭配 ＜u＞A＜/u＞＜/button＞＜/td＞
＜td colspan="3"＞＜input type="text" id="txtSentence" style="width: 100%"＞＜/td＞
＜/tr＞
＜/table＞
＜hr style="color: BLUE"＞ Spdns_com
＜!--提交表单--＞
＜form id="frmWords" method="POST" action="" style="display: NONE;"＞
＜%For m_iCount = 0 To (m_iPartCnt - 1)%＞
＜input type="text" name="txtWords＜%= m_iCount%＞"＞
＜%Next%＞
＜input type="text" name="txtSenPart"＞
＜input type="text" name="txtOpWay"＞
＜/form＞ Www~Spdns~com
＜!--版权--＞
＜div align="CENTER"＞
＜div＞
© ＜span class="fontEng2"＞2001 China Sentin Sci. & Tech. Co., Ltd.＜/span＞
＜span class="fontEng2"＞All Rights Reserved.＜/span＞
＜/div＞
＜div＞
＜span class="fontEng2"＞Authored by＜/span＞ ＜a href="mailto: iamchn@21cn.com" class="link"＞Recon＜/a＞＜/span＞
＜a href="http://recon.top263.net/" class="link"＞http://recon.top263.net/＜/a＞
＜/div＞
＜/div＞
＜/body＞
＜/html＞ Www.Spdns.com
＜%
'以下是服务器端脚本
'用到的函数和过程 中国.南通服务器网
'************************
'函数名 ：SaveFile
'功能 ：将某类词汇保存到文件中
'输入 ：1、iSenPart ：表示词汇分类的数字。整型
' 可能的值有：
' 0：主语
' 1：程度状语
' 2：地点状语
' 3：谓语
'输出 ：对文件操作后的状态值。整型
' 可能的值有：
' 0：操作成功
' 1：操作失败
'************************
Function SaveFile(iSenPart)
Dim fsoMain, tsfWords
Dim iCount, iWrdCnt
Dim iOpStatus Www@Spdns@com
'------------------------------------------
'常变量说明
'fsoMain ：FSO对象
'tsfWords ：TEXTSTREAM对象
'iCount ：计数器。整型
'iWrdCnt ：某类词汇单词的数目。整型
'iOpStatus ：文件操作完毕后的状态。整型
'------------------------------------------ Www~Spdns~com
Set fsoMain = Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set tsfWords= fsoMain.CreateTextFile(m_strFilePath & m_astrFileName(iSenPart), True)
tsfWords.WriteLine("[" & m_astrSenPart(iSenPart) & "部分]") Www@Spdns@com
'如果该类别至少有一个单词
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))
Next
End If 中.国.南通服务器网
tsfWords.Close
iOpStatus = 0 Www.Spdns.com
SaveFile = iOpStatus
End Function 中国南通服务器网
'************************
'函数名 ：LoadFile
'功能 ：从文件中载入某类词汇
'输入 ：1、iSenPart ：表示词汇分类的数字。整型
' 可能的值有：
' 0：主语
' 1：程度状语
' 2：地点状语
' 3：谓语
'输出 ：对文件操作后的状态值。整型
' 可能的值有：
' 0：操作成功
' 1：操作失败
'************************
Function LoadFile(iSenPart)
Dim fsoMain, tsfWords
Dim strLoaded
Dim iOpStatus Www~Spdns~com
'------------------------------------------
'常变量说明
'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 Spdns@com
tsfWords.Close
iOpStatus = 0
Else
'如果不存在纪录文件
iOpStatus = 1
End If Spdns~com
LoadFile = iOpStatus
End Function
%＞ 中国南通服务器网
＜%
'以下是服务器端脚本
'用于测试的函数和过程 中国南通服务器网
Sub Show(strDef)
Response.Write strDef & ": " & Eval(strDef) & "＜br＞"
End Sub 南通服务器网
Sub ShowMethod()
Response.Write "Request Method: " & Request.ServerVariables("REQUEST_METHOD") & "＜br＞"
End Sub Spdns
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
%＞
中国.南通服务器网
|
