作 者 : 甘冀平 ;


　　 假設(shè)你想創(chuàng)建一個簡單的留言簿，你可以建立一個數(shù)據(jù)庫，在其中存儲用戶的信息。然而，如果并不需要數(shù)據(jù)庫的強大功能，使用FSO來存儲信息將節(jié)省你的時間和金錢。并且，一些ISP也許限制了web上的數(shù)據(jù)庫應(yīng)用。

　　 假設(shè)你在一個表單中收集了一些用戶信息，這里是一個簡單表單HTML代碼：

< html>
< body>

< form action="formhandler.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>

　　 再看看formhandler.asp中處理表單的代碼：

< %
' Get form info
strName = Request.Form("username")
strHomePage = Request.Form("homepage")
strEmail = Request.Form("Email")

' create the fso object
Set fso = Server.CreateObject("Scripting.FileSystemObject")

　　 迄今為止，還沒有新鮮的東西，無非是獲取表單域的值并且賦值到變量。下面出現(xiàn)了有趣的部分 － 寫文件：

path = "c: emp est.txt"
ForReading = 1, ForWriting = 2, ForAppending = 3

' open the file
set file = fso.opentextfile(path, ForAppending, TRUE)

' write the info to the file
file.write(strName) & vbcrlf
file.write(strHomePage) & vbcrlf
file.write(strEmail) & vbcrlf

' close and clean up
file.close
set file = nothing
set fso = nothing


　　 回想一下，OpenTextFile方法返回一個TextStream對象，它是FSO模型中的另外一個對象。TextStream對象揭示了操作文件內(nèi)容的方法，比如寫、讀一行、跳過一行。VB常量vbcrlf產(chǎn)生一個換行符。

　　 在OpentextFile的命令參數(shù)中定義了TRUE，這就告訴了系統(tǒng)，如果文件不存在，就創(chuàng)建它。如果文件不存在，并且沒有定義TRUE參數(shù)，就會出錯。

　　 現(xiàn)在轉(zhuǎn)到目錄c: emp，打開test.txt，你可以看到如下的信息：

User's name
User's home page
User's email

　　 當然，這些單詞可以被輸入在表單中的任何內(nèi)容所替換。

最新評論