< html>
< body>
< form action="manage.asp" method="post">
< input type="text" size="10" name="username">
< input type="text" size="10" name="homepage">
< input type="text" size="10" name="email">
< /form>
< /body>
< /html>
manage.asp
< %
strname = request.form("username")
strhomepage = request.form("homepage")
stremail = request.form("email")
' 获取表单信息.
set fso = server.createobject("scripting.filesystemobject")
' 创建fso对象.
path = "c:chunfeng/form.txt"
forreading = 1, forwriting = 2, forappending = 3
set file = fso.opentextfile(path, forappending, true)
' 打开文件. opentextfile方法将返回一个textstream对象, 这个对象揭示了操作文件内容的方法,如写、读一行、跳过一行.另我们还在opentextfile的命令参数中定义了true,意为如文件不存在,就创建它.因为如果文件不存在,且没定义true参数,系统就会出错.
file.write(strname) & vbcrlf
' vb常量vbcrlf产生一个换行符.
file.write(strhomepage) & vbcrlf
file.write(stremail) & vbcrlf
' 向文件写信息.
file.close
set file = nothing
set fso = nothing
' 清空.
现在打开form.txt，可以看到如下的信息：
user's name
user's home page
user's email
我们再把每一名来访者的信息从记录中分离出来。因为它没有象数据库一样的列，所以要想办法从刚才记录的文件中读出。在所创建的文件中，第1行是用户名，第2行是用户主页，第3行是用户电子信箱，其他用户的信息也是这样排列，即每3行包含一个用户信息。这样，我们就可以再利用fso来读取了：
< %
set fso = server.createobject("scripting.filesystemobject")
' 创建fso对象.
path = "c:chunfeng/form.txt"
set file = fso.opentextfile(path, 1)
' 打开文件.
do until file.atendofstream
' atendofstream是textstream对象的属性,它提示何时到文件尾部.
response.write("name: " & file.readline & " ")
' readline方法读取1行内容,直到遇到换行符,随后的readline调用读取下一行.
response.write("home page: " & file.readline & " ")
response.write("email: " & file.readline & "< p>")
' 逐行分析并格式化数据. 都做好了。 如果form.txt本身数据出现差错，如每一用户信息只有2行而不是3行，那么就会产生如下错误信息：
loop
' 循环列出每一用户的信息.
file.close
set file = nothing
set fso = nothing
%>
server object error 'asp 0177 : 800a003e'
[1]
如对本文有疑问， 点击进行留言回复！！
vscode使用editorconfig插件以及.editorconfig配置文件说明详解
VSCODE添加open with code实现右键打开文件夹
我要评论
网友评论