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")
' 創(chuàng)建fso對象.
path = "c:chunfeng/form.txt"
ForReading = 1, ForWriting = 2, ForAppending = 3
set file = fso.opentextfile(path, ForAppending, trUE)
' 打開文件. OpenTextFile方法將返回一個TextStream對象, 這個對象揭示了操作文件內容的方法,如寫、讀一行、跳過一行.另我們還在OpentextFile的命令參數中定義了trUE,意為如文件不存在,就創(chuàng)建它.因為如果文件不存在,且沒定義trUE參數,系統(tǒng)就會出錯.
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
我們再把每一名來訪者的信息從記錄中分離出來。因為它沒有象數據庫一樣的列，所以要想辦法從剛才記錄的文件中讀出。在所創(chuàng)建的文件中，第1行是用戶名，第2行是用戶主頁，第3行是用戶電子信箱，其他用戶的信息也是這樣排列，即每3行包含一個用戶信息。這樣，我們就可以再利用FSO來讀取了：
%
set fso = Server.Createobject("Scripting.FileSystemObject")
' 創(chuàng)建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>")
' 逐行分析并格式化數據.
loop
' 循環(huán)列出每一用戶的信息.
file.close
set file = nothing
set fso = nothing
%>
都做好了。
如果form.txt本身數據出現差錯，如每一用戶信息只有2行而不是3行，那么就會產生如下錯誤信息：
Server object error 'ASP 0177 : 800a003e'
[1]
