＜%Next%＞
＜input type="text" name="txtSenPart"＞
＜input type="text" name="txtOpWay"＞
＜/form＞

＜!--版权--＞
＜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＞

＜%
'以下是服务器端脚本
'用到的函数和过程

'************************
'函数名 ：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))
Next
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) & "＜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
%＞

上一页  [1] [2] 

	输入您的搜索字词 提交搜索表单
	军旅同心论坛 军旅同心博客 军旅同心网