strFileName(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

'************************
'获得客户端的信息
'************************
Dim m_iSenPart
Dim m_strOpWay
Dim m_bRptedData

'------------------------------------------
'常变量说明
'm_iSenPart ：表示词汇分类的数字。整型
' 词汇的分类来自数组m_astrSenPart
' 可能的值有：
' 0：主语
' 1：程度状语
' 2：地点状语
' 3：谓语

'm_strOpWay ：文件操作方式。字符串型
' 可能的值有：
' 1、SAVE ：将某类词汇存入文件
' 2、SAVEALL ：将所有类别的词汇存入文件
' 3、LOAD ：从文件中载入某类词汇
' 4、LOADALL ：从文件中载入所有类别的词汇

'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

'检测是否重复提交表单
'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

'------------------------------------------
'常变量说明

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

在google里搜索更多ASP实例：词语搭配游戏的制作

	Web www.51ec.org

上一篇信息学院： ASP高级技巧：在ASP中使用Oracle数据库

下一篇信息学院： 学习ASP技巧：提高ASP页面的执行效率