ASP教程之词语搭配游戏的制造（ASP）(2)
asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。//------------------------------------------//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//iNxtWrdIdx：新单词在单词数组中的索引。整型
//strWord：用户输出的单词。字符串型
//------------------------------------------</p>
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);//取得索引
strWord=trim(txtWord.value);//取得用户输出的单词
//检测输出的单词是不是正当
//如果不法的单词则加入
if(strWord=="")
{
//若输出的单词为空或空格字符串
alert("单词不克不及为空或空格字符串");
txtWord.select();
return;
}
if(strWord.indexOf(",")!=-1||strWord.indexOf("")!=-1)
{
//若输出的单词包括逗号或空格
alert("单词不克不及包括逗号或空格");
txtWord.select();
return;
}
//将单词保留到辞汇数组中
iNxtWrdIdx=m_astrWords.length;
m_astrWords=strWord;
//showArray(m_astrWords);
//将单词写进到页面中
valueList(m_astrWords,iIndex);
txtWord.value="";
txtWord.focus();
}
//-----------------------------------------------------------
//将以后种别一切的单词从内存中删往
functionreset()
{
vareleSrc;
variIndex,iCount;
varstrPrompt;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//iCount：计数器。整型
//strPrompt：操纵提醒。字符串型
//------------------------------------------
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);
strPrompt="您断定要从内存中扫除["+m_astrSenPart+"]部分一切的单词吗？";
if(window.confirm(strPrompt)==false)return;
m_astrWords=newArray();
valueList(m_astrWords,iIndex);
//showArray(m_astrWords);
strPrompt="单词扫除终了";
alert(strPrompt);
txtWord.select();
}
//-----------------------------------------------------------
//将所选种别确当前辞汇保留进文件中
functionsave()
{
vareleSrc;
variIndex,iCount;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//iCount：计数器。整型
//------------------------------------------
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);
if(m_astrWords.length==0)
{
//假如所选种别确当前单词个数为零
varstrPrompt;
strPrompt="["+m_astrSenPart+"]部分如今一个可选单词也没有，您断定要保留吗？";
strPrompt+="
(如许将天生一个空的新文件)";
if(window.confirm(strPrompt)==false)return;
}
//保留以后内存中一切的单词
for(iCount=0;iCount<m_iPartCnt;iCount++)
eval("frmWords.txtWords"+iCount).value=m_astrWords.join(",");
frmWords.txtSenPart.value=iIndex;
frmWords.txtOpWay.value="SAVE";
frmWords.submit();
}
//-----------------------------------------------------------
//从文件中读取所选种别的单词记录
functionload()
{
vareleSrc;
variIndex,iCount;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//iCount：计数器。整型
//------------------------------------------
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);
//保留以后内存中一切的单词
for(iCount=0;iCount<m_iPartCnt;iCount++)
eval("frmWords.txtWords"+iCount).value=m_astrWords.join(",")
frmWords.txtSenPart.value=iIndex;
frmWords.txtOpWay.value="LOAD";
frmWords.submit();
}
//-----------------------------------------------------------
//显现辞汇列表
functionshowList(iIndex)
{
//假如未给定参数iIndex
//取得iIndex
if(iIndex==undefined)
{
//假如已有单词列表被流动，加入函数
if(m_iListFixed!=-1)return;
vareleSrc;
variIndex;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//------------------------------------------
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);
}
//alert("iIndex:"+iIndex);
//显现辞汇列表
//lblWordList.innerText="["+lblWordList.innerText+"]";
//lblWordList.innerText=lblWordList.innerText+">";
lblWordList.className="lblMOver";
divWordList.className="listShown";
}
//-----------------------------------------------------------
//埋没辞汇列表
functionhideList(iIndex)
{
//假如未给定参数iIndex
//取得iIndex
if(iIndex==undefined)
{
//假如已有单词列表被流动，加入函数
if(m_iListFixed!=-1)return;
vareleSrc;
variIndex;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//------------------------------------------
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);
}
//alert("iIndex:"+iIndex);
//埋没辞汇列表
//lblWordList.innerText=lblWordList.innerText.slice(0,-1);
lblWordList.className="lblMOut";
divWordList.className="listHidden";
}
//-----------------------------------------------------------
//流动辞汇列表
functionfixList()
{
vareleSrc;
variIndex;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//------------------------------------------
eleSrc=window.event.srcElement;
iIndex=getEleIndex(eleSrc);
switch(m_iListFixed)
{
case-1:
//假如还没有单词列表被流动
//流动以后列表
m_iListFixed=iIndex;
lblWordList.className="lblClicked";
divWordList.className="listFixed";
break;
caseiIndex:
//假如被流动单词列表是以后列表
//解固以后列表
m_iListFixed=-1;
lblWordList.className="lblMOver";
divWordList.className="listShown";
break;
default:
//假如被流动单词列表不是以后列表
//解固被流动列表
hideList(m_iListFixed);
m_iListFixed=-1;
lblWordList.className="lblMOver";
showList(iIndex);
break;
}
//alert("m_iListFixed:"+m_iListFixed+"
iIndex:"+iIndex);
}
//-----------------------------------------------------------
//写进某类辞汇已载进的单词
functionvalueList(aWords,iSenPart)
{
variCount,iWrdCnt;
varstrListPpt;
//------------------------------------------
//常变量申明
//iCount：计数器。整型
//iWrdCnt：某类辞汇单词的数量。整型
//strListPpt：单词列表中的提醒。字符串型
//------------------------------------------
//数据筹办
iWrdCnt=aWords.length;
lblWordCount.innerText=iWrdCnt;
strListPpt="<div><spanstyle=color:RED;font-style:Italic;font-size:10.5pt;>";
strListPpt+="双击单词将其删除</span></div>";
//将单词写出列表
if(iWrdCnt!=0)
{
divWordList.innerHTML=strListPpt;
for(iCount=0;iCount<iWrdCnt;iCount++)
divWordList.innerHTML+=makeOpt(aWords,iCount);
}
else
divWordList.innerHTML=strListPpt;
}
//-----------------------------------------------------------
//显现匡助列表
functionshowHelp()
{
//假如匡助列表已被流动，加入函数
if(m_iHelpFixed==0)return;
//显现匡助
lblHelp.className="lblMOver";
divHelp.className="helpShown";
}
//-----------------------------------------------------------
//埋没匡助列表
functionhideHelp()
{
//假如匡助列表已被流动，加入函数
if(m_iHelpFixed==0)return;
//埋没匡助
lblHelp.className="lblMOut";
divHelp.className="helpHidden";
}
//-----------------------------------------------------------
//流动匡助列表
functionfixHelp()
{
if(m_iHelpFixed==-1)
{
//假如匡助列表还未被流动
//流动它
m_iHelpFixed=0;
lblHelp.className="lblClicked";
divHelp.className="helpFixed";
}
else
{
//假如匡助列表已被流动
//解固它
m_iHelpFixed=-1;
lblHelp.className="lblMOver";
divHelp.className="helpShown";
}
}
//-----------------------------------------------------------
//重置页面至初始形态
functionresetAll()
{
variCount;
//------------------------------------------
//常变量申明
//iCount：计数器。整型
//------------------------------------------
for(iCount=0;iCount<m_iPartCnt;iCount++)
{
txtWord.value="";
m_astrWords=newArray();//将单词数组清空
valueList(m_astrWords,iCount);
}
txtSentence.value="";
txtWord.focus();
}
//-----------------------------------------------------------
//把一切种别的单词都存进文件
functionsaveAll()
{
variCount,iEmptyCnt;
varstrPrompt;
//------------------------------------------
//常变量申明
//iCount：计数器。整型
//iEmptyCnt：单词数量为0的种别个数。整型
//strPrompt：操纵提醒。字符串型
//------------------------------------------
iEmptyCnt=0;
for(iCount=0;iCount<m_iPartCnt;iCount++)
{
//保留以后内存中一切的单词
eval("frmWords.txtWords"+iCount).value=m_astrWords.join(",");
if(m_astrWords.length==0)
iEmptyCnt++;
}
//alert("iEmptyCnt:"+iEmptyCnt);
if(iEmptyCnt>0)
{
switch(iEmptyCnt)
{
casem_iPartCnt:
strPrompt="一切种别的辞汇单词个数都为0，操纵将会发生"+m_iPartCnt+"个空文件";
strPrompt+="
您断定要如许做吗？";
break;
default:
strPrompt="个中，";
for(iCount=0;iCount<m_iPartCnt;iCount++)
if(m_astrWords.length==0)
strPrompt+="["+m_astrSenPart+"]、";
strPrompt=strPrompt.slice(0,-1);
strPrompt+="部分单词个数为0";
strPrompt+="
操纵将会发生"+iEmptyCnt+"个空文件";
strPrompt+="，您断定要如许做吗？";
}
if(window.confirm(strPrompt)==false)return;
}
frmWords.txtOpWay.value="SAVEALL";
frmWords.submit();
}
//-----------------------------------------------------------
//从文件中载进一切种别的单词
functionloadAll()
{
variCount;
//------------------------------------------
//常变量申明
//iCount：计数器。整型
//------------------------------------------
//保留以后内存中一切的单词
for(iCount=0;iCount<m_iPartCnt;iCount++)
eval("frmWords.txtWords"+iCount).value=m_astrWords.join(",")
frmWords.txtOpWay.value="LOADALL";
frmWords.submit();
}
//-----------------------------------------------------------
//举行辞汇搭配，失掉一个句子
functionassemble()
{
variCount,iWrdCnt,iRndIndex;
varstrSentence;
//------------------------------------------
//常变量申明
//iCount：计数器。整型
//iWrdCnt：某类辞汇单词的个数。整型
//iRndIndex：随机发生的单词索引。整型
//strSentence：由各个种别辞汇中的随机单词构成的句子。字符串型
//------------------------------------------
strSentence="";
for(iCount=0;iCount<m_iPartCnt;iCount++)
{
//假如以后种别辞汇的个数为0
//给出提醒，并中断搭配
iWrdCnt=m_astrWords.length;
if(iWrdCnt==0)
{
varstrPrompt;
//------------------------------------------
//常变量申明
//strPrompt：操纵提醒。字符串型
//------------------------------------------
strPrompt="["+m_astrSenPart+"]部分一个可选单词也没有";
strPrompt+="
请最少输出一个单词";
alert(strPrompt);
txtWord.select();
return;
}
//随机抽取以后种别辞汇中的一个单词
//到场到句子中
iRndIndex=Math.floor(Math.random()*iWrdCnt);
strSentence+=m_astrWords;
//alert("iWrdCnt:"+iWrdCnt+"
iRndIndex:"+iRndIndex);
}
strSentence+="。";
txtSentence.value=strSentence;
}
//使鼠标移到的地方的按钮
//发生“点亮”的效果
functionlightBtn()
{
vareleSrc;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//------------------------------------------
eleSrc=window.event.srcElement;
while(eleSrc.tagName.toUpperCase()!="BUTTON")
eleSrc=eleSrc.parentElement;
eleSrc.className="btnLighted";
}
//使鼠标分开的按钮
//复原为初始形态
functiondelightBtn()
{
vareleSrc;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//------------------------------------------
eleSrc=window.event.srcElement;
while(eleSrc.tagName.toUpperCase()!="BUTTON")
eleSrc=eleSrc.parentElement;
eleSrc.className="btnDelighted";
}
//在列表中，使鼠标移到的地方的单词
//发生“点亮”的效果
functionlightOpt(ele)
{
vareleSrc;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//------------------------------------------
eleSrc=ele;
eleSrc.className="optLighted";
}
//在列表中，使鼠标分开的单词
//复原为初始形态
functiondelightOpt(ele)
{
vareleSrc;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//------------------------------------------
eleSrc=ele;
eleSrc.className="optDelighted";
}
//失掉界说过的将到场列表的单词
functionmakeOpt(strWord,iWrdIdx)
{
varstrOptHead,strOptFoot;
varstrOptWord;
//------------------------------------------
//常变量申明
//strOptHead：重界说单词头。字符串型
//strOptFoot：重界说单词尾。字符串型
//strOptWord：重界说单词。字符串型
//------------------------------------------
strOptHead="<divclass=optDelighted"+iWrdIdx+">";
strOptFoot="</div>";
strOptWord=strOptHead+strWord+strOptFoot;
//alert(strOptWord);
returnstrOptWord;
}
//删除列表中的单词
functionremoveOpt(ele)
{
vareleSrc;
variIndex,iWrdIdx;
varastrWords,astrHead,astrFoot;
//------------------------------------------
//常变量申明
//eleSrc：产生事务的元素
//iIndex：暗示辞汇分类的数字。整型
//iWrdIdx：单词在单词数组中的索引。整型
//astrWords：某类辞汇单词数组。字符串型数组
//astrHead：某类辞汇单词数组头部分。字符串型数组
//astrFoot：某类辞汇单词数组尾部分。字符串型数组
//------------------------------------------
eleSrc=ele;
iIndex=getEleIndex(eleSrc.parentElement);
iWrdIdx=parseInt(eleSrc.wrdIdx);
//将单词从辞汇数组中删往
//showArray(m_astrWords);
astrWords=m_astrWords.concat();
astrHead=astrWords.slice(0,iWrdIdx);
astrFoot=astrWords.slice(iWrdIdx+1);
m_astrWords=astrHead.concat(astrFoot);
//showArray(astrHead);
//showArray(astrFoot);
//showArray(m_astrWords);
//将残剩的单词从头写进到页面中
valueList(m_astrWords,iIndex);
txtWord.select();
}
//-->
</script>
</head>
<body>
<!--题目-->
<divalign="CENTER">
<spanstyle="font-size:20pt;font-weight:BOLD">词语搭配游戏</span>
<spanclass="fontEng2">v1.0</span>
</div>
<hrstyle="visibility:HIDDEN">
<!--主表格1-->
<tableborder="0"align="CENTER"width="80%">
<colgroup></colgroup>
<colgroup></colgroup>
<colgroup></colgroup>
<colgroup></colgroup>
<colgroup></colgroup>
<colgroup></colgroup>
<colgroupalign="CENTER"></colgroup>
<colgroup></colgroup>
<%Form_iCount=0To(m_iPartCnt-1)%>
<tr>
<td><%=m_astrSenPart(m_iCount)%></td>
<tdwidth="20%"><inputtype="text"id="txtWord"style="width:100%"></td>
<td><buttonid="btnGetWord"style="width:75px"title="将单词保留到内存中">保留</button></td>
<td><buttonid="btnReset"style="width:75px"title="从内存中删往以后种别一切的单词">重置</button></td>
<td><buttonid="btnSave"style="width:75px"title="将单词保留到文件中">存进</button></td>
<td><buttonid="btnLoad"style="width:75px"title="从文件中载进单词">载进</button></td>
<tdwidth="15%"><labelid="lblWordList"title="单击流动我">单词列表</label></td>
<td>
<divid="divWordList"class="listHidden"></div>
个数：<labelid="lblWordCount"class="fontEng1"><%=0%></label>
</td>
</tr>
<%Next%>
</table>
<hrstyle="visibility:HIDDEN">
<hrstyle="color:BLUE">
<!--主表格2-->
<tableborder="0"align="CENTER"width="80%">
<colgroupwidth="16%"></colgroup>
<colgroupwidth="16%"></colgroup>
<colgroupwidth="16%"></colgroup>
<colgroup></colgroup>
<tr>
<td><buttonid="btnResetAll"accesskey="r"title="从内存中删往一切种别的单词"class="btnDelighted">全体重置<u>R</u></button></td>
<td><buttonid="btnSaveAll"accesskey="s"title="将一切种别的单词保留到文件中"class="btnDelighted">全体存进<u>S</u></button></td>
<td><buttonid="btnLoadAll"accesskey="l"title="从文件中载进一切种别的单词"class="btnDelighted">全体载进<u>L</u></button></td>
<td>
<spanstyle="font-size:9pt;color:RED;">请单击</span>?<labelid="lblHelp"title="单击流动我">游戏申明</label>
<!--匡助申明表格-->
<divid="divHelp"class="helpHidden">
<tableid="tblHelp"border="0"align="CENTER"width="300px"style="font-size:9pt;">
<colgroupwidth="75px"></colgroup>
<colgroup></colgroup>
<tr><tdcolspan="2">
<ahref="#1"style="color:BLUE;">游戏步骤</a>
<ahref="#2"style="color:BLUE;">操纵申明</a>
<ahref="#3"style="color:BLUE;">游戏劈头</a>
<ahref="#4"style="color:BLUE;">制造缘故原由</a>
<ahref="#5"style="color:BLUE;">游戏功能</a>
<aname="0"style="display:NONE;">TOP</a>
</td></tr>
<!--游戏步骤-->
<tr><tdcolspan="2"></td></tr>
<tr><tdcolspan="2">
[<aname="1"style="color:BLUE;">游戏步骤</a>]?
<ahref="#0"class="link">TOP</a>
</td></tr>
<tr><tdcolspan="2">
<spanclass="fontEng1"><1></span>在每一个部分的<spanclass="fontEmp">输出框</span>中输出单词，按<spanclass="fontEmp">回车</span>或<spanclass="fontEmp">“保留”</span>按钮存进内存中；
或按<spanclass="fontEmp">“载进”</span>按钮修改之前保留的某种别单词记录；
或按<spanclass="fontEmp">“全体载进”</span>按钮修改之前保留的一切种别单词记录<br>
<spanclass="fontEng1"><2></span>按<spanclass="fontEmp">“入手下手搭配”</span>按钮，体系将从各种单词中随机抽取一个，构成一个句子
</td></tr>
<!--操纵申明-->
<tr><tdcolspan="2"></td></tr>
<tr><tdcolspan="2">
[<aname="2"style="color:BLUE;">操纵申明</a>]?
<ahref="#0"class="link">TOP</a>
</td></tr>
<tr>
<td>保留</td>
<td>失掉用户输出的单词</td>
</tr>
<tr>
<td>重置</td>
<td>将以后种别一切的单词从内存中删往</td>
</tr>
<tr>
<td>存进</td>
<td>将所选种别确当前辞汇保留进文件中</td>
</tr>
<tr>
<td>载进</td>
<td>从文件中读取所选种别的单词记录</td>
</tr>
<tr>
<td>全体重置</td>
<td>重置页面至初始形态</td>
</tr>
<tr>
<td>全体保留</td>
<td>把一切种别的单词都存进文件</td>
</tr>
<tr>
<td>全体载进</td>
<td>从文件中载进一切种别的单词</td>
</tr>
<tr>
<td>入手下手搭配</td>
<td>举行辞汇搭配，失掉一个句子</td>
</tr>
<tr><td></td></tr>
<tr><tdcolspan="2">
<spanclass="fontEng1"><1></span>
<spanclass="fontEmp">将鼠标移至“单词列表”处</span>，会弹出该类辞汇的单词列表；
<spanclass="fontEmp">将鼠标移开</span>，列表会主动埋没；
<spanclass="fontEmp">点击“单词列表”</span>，会流动单词列表；
<spanclass="fontEmp">再次点击</span>，会作废流动<br>
<spanclass="fontEng1"><2></span>
在<spanclass="fontEmp">流动住一个单词列表</span>后，
<spanclass="fontEmp">双击</span>该列表中的某个单词，能够将该单词从内存中删往<br>
<spanclass="fontEng1"><3></span>
输完一个单词后，<spanclass="fontEmp">间接按回车</span>就能够保留了，如许比按“保留”保留单词更便利
</td></tr>
<!--游戏劈头-->
<tr><tdcolspan="2"></td></tr>
<tr><tdcolspan="2">
[<aname="3"style="color:BLUE;">游戏劈头</a>]?
<ahref="#0"class="link">TOP</a>
</td></tr>
<tr><tdcolspan="2">
这个游戏设法来自于小时分玩的纸团游戏。当时和姐姐在家里闲得无聊，就玩这个，哈哈。
弄法很复杂，做一些纸片，分红四堆，分离写上<spanclass="fontEmp">亲友密友的名字</span>、<spanclass="fontEmp">描述水平的词语</span>、<spanclass="fontEmp">关于地址的词语</span>和<spanclass="fontEmp">所做的事变</span>。
然后，将纸片捏成纸团，<spanclass="fontEng1">OK,LetsStart!</span>如今从每堆中抽出一个纸团，就有四个词语，将它们构成一句话，由于是任意抽的，偶然能构成很弄笑的句子。
如：陈楠镇静地在年夜街上跳夏威夷草裙舞；万平易近安闲地在公园里沐浴。^_+
</td></tr>
<!--制造缘故原由-->
<tr><tdcolspan="2"></td></tr>
<tr><tdcolspan="2">
[<aname="4"style="color:BLUE;">制造缘故原由</a>]?
<ahref="#0"class="link">TOP</a>
</td></tr>
<tr><tdcolspan="2">
次要是无聊，想做个游戏文娱一下本人，固然也但愿人人能从中失掉笑声。
其次也想熬炼一下本人的手艺，之前用<spanclass="fontEng1">VB</span>做过一个，不是很好，此次用的是<spanclass="fontEng1">ASP</span>，不知有无前进，呵呵
这个版本我也许地测试了一下，没发明年夜的<spanclass="fontEng1">bug</span>。假如您在游戏中发明了成绩或有甚么倡议，请必定告知我，在此先感谢了！
我的信箱是<ahref="mailto:iamchn@21cn.com"class="link">iamchn@21cn.com</a>。欠好你就说吗！不成能你说好我又说欠好，你不说好我又说好的，^_+
</td></tr>
<!--游戏功能-->
<tr><tdcolspan="2"></td></tr>
<tr><tdcolspan="2">
[<aname="5"style="color:BLUE;">游戏功能</a>]?
<ahref="#0"class="link">TOP</a>
</td></tr>
<tr><tdcolspan="2">
由于是弄笑游戏，以是能使你心境兴奋、芳华抖擞，直接增添找工具的乐成率；
由于不必做纸团了，削减了华侈和净化，从而丑化了天下情况；
信任另有良多功能，请人人帮我找。哈哈。
</td></tr>
</table>
</div>
</td>
</tr>
<tr>
<td><buttonid="btnAsb"accesskey="a"title="从每一个种别辞汇中随机抽取一个单词，构成一个句子"class="btnDelighted">入手下手搭配<u>A</u></button></td>
<tdcolspan="3"><inputtype="text"id="txtSentence"style="width:100%"></td>
</tr>
</table>
<hrstyle="color:BLUE">
<!--提交表单-->
<formid="frmWords"method="POST"action=""style="display:NONE;">
<%Form_iCount=0To(m_iPartCnt-1)%>
<inputtype="text"name="txtWords<%=m_iCount%>">
<%Next%>
<inputtype="text"name="txtSenPart">
<inputtype="text"name="txtOpWay">
</form>
<!--版权-->
<divalign="CENTER">
<div>
?<spanclass="fontEng2">2001ChinaSentinSci.&Tech.Co.,Ltd.</span>?
<spanclass="fontEng2">AllRightsReserved.</span>
</div>
<div>
<spanclass="fontEng2">Authoredby</span><ahref="mailto:iamchn@21cn.com"class="link">Recon</a></span>
<ahref="http://recon.top263.net/"class="link">http://recon.top263.net/</a>
</div>
</div>
</body>
</html>
<%
以下是服务器端剧本
用到的函数和历程
************************
函数名：SaveFile
功效：将某类辞汇保留到文件中
输出：1、iSenPart：暗示辞汇分类的数字。整型
大概的值有：
0：主语
1：水平状语
2：地址状语
3：谓语
输入：对文件操纵后的形态值。整型
大概的值有：
0：操纵乐成
1：操纵失利
************************
FunctionSaveFile(iSenPart)
DimfsoMain,tsfWords
DimiCount,iWrdCnt
DimiOpStatus
------------------------------------------
常变量申明
fsoMain：FSO工具
tsfWords：TEXTSTREAM工具
iCount：计数器。整型
iWrdCnt：某类辞汇单词的数量。整型
iOpStatus：文件操纵终了后的形态。整型
------------------------------------------
SetfsoMain=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
SettsfWords=fsoMain.CreateTextFile(m_strFilePath&m_astrFileName(iSenPart),True)
tsfWords.WriteLine("["&m_astrSenPart(iSenPart)&"部分]")
假如该种别最少有一个单词
IfIsEmpty(m_astrWords(iSenPart))=FalseThen
iWrdCnt=UBound(m_astrWords(iSenPart))+1
ForiCount=0To(iWrdCnt-1)
tsfWords.WriteLine(m_astrWords(iSenPart)(iCount))
Next
EndIf
tsfWords.Close
iOpStatus=0
SaveFile=iOpStatus
EndFunction
************************
函数名：LoadFile
功效：从文件中载进某类辞汇
输出：1、iSenPart：暗示辞汇分类的数字。整型
大概的值有：
0：主语
1：水平状语
2：地址状语
3：谓语
输入：对文件操纵后的形态值。整型
大概的值有：
0：操纵乐成
1：操纵失利
************************
FunctionLoadFile(iSenPart)
DimfsoMain,tsfWords
DimstrLoaded
DimiOpStatus
------------------------------------------
常变量申明
fsoMain：FSO工具
tsfWords：TEXTSTREAM工具
strLoaded：某类辞汇一切单词组成的字符串。字符串型
iOpStatus：文件操纵终了后的形态。整型
------------------------------------------
SetfsoMain=Server.CreateObject("SCRIPTING.FILESYSTEMOBJECT")
IffsoMain.FileExists(m_strFilePath&m_astrFileName(iSenPart))=TrueThen
假如存在记录文件
strLoaded=""
SettsfWords=fsoMain.OpenTextFile(m_strFilePath&m_astrFileName(iSenPart),1)
tsfWords.SkipLine
DoWhiletsfWords.AtEndOfStream=False
strLoaded=strLoaded&tsfWords.ReadLine&","
Loop
IfstrLoaded""Then
strLoaded=Left(strLoaded,Len(strLoaded)-1)
m_astrWords(iSenPart)=Split(strLoaded,",")
Else
m_astrWords(iSenPart)=Empty
EndIf
tsfWords.Close
iOpStatus=0
Else
假如不存在记录文件
iOpStatus=1
EndIf
LoadFile=iOpStatus
EndFunction
%>
<%
以下是服务器端剧本
用于测试的函数和历程
SubShow(strDef)
Response.WritestrDef&":"&Eval(strDef)&"<br>"
EndSub
SubShowMethod()
Response.Write"RequestMethod:"&Request.ServerVariables("REQUEST_METHOD")&"<br>"
EndSub
SubShowForm()
DimiCount
DimstrProp
<P>iCount=0
Response.Write"*********FormInformation******<br>"
ForEachstrPropInRequest.Form
iCount=iCount+1
Response.WriteiCount&"."&strProp&":"&Request.Form(strProp)&"<br>"
Next
Response.Write"*********FormEnd**************<br>"
EndSub
%>
缺点:安全性不是太差了，还行，只要你充分利用系统自带的工具;唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。 没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的? 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。
页:
[1]