打印本文 打印本文  关闭窗口 关闭窗口
词语搭配游戏的制作(ASP)三
作者:采集员 文章来源:来源于网络 点击数: 更新时间:2005/9/10 13:15:38
<%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] 



打印本文 打印本文  关闭窗口 关闭窗口