作 者 : 甘冀平

　　 現(xiàn)在已經(jīng)有了一些用戶信息保存在文件中，就像一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)。假設(shè)有一個(gè)用戶想了解所有的訪問者，就要從登
記的信息中分離出相關(guān)部分，因?yàn)闆]有象數(shù)據(jù)庫(kù)一樣擁有結(jié)構(gòu)化的列。

　　 我們知道，在所創(chuàng)建的文件中，第1行是用戶名，第2行是他們的主頁(yè)，第3行是他們的電子郵件地址。隨后登記的用
戶也是按照這樣的結(jié)構(gòu)存儲(chǔ)他們的信息，所以每3行將包含一個(gè)用戶的登記信息。知道了這些，就可以編寫下面的代碼來顯
示信息：

< %
' create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c: emp est.txt"

' open the file
set file = fso.opentextfile(path, 1) < -- For
reading

　　 接著，分析每一行，并且格式化數(shù)據(jù)：

do until file.AtEndOfStream
Response.write("Name: " & file.ReadLine & " ")
Response.write("Home Page: " & file.ReadLine & " ")
Response.write("Email: " & file.ReadLine & "< p>")
loop

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

　　 這里僅僅做了一個(gè)非常簡(jiǎn)單的輸出，但是你可以根據(jù)情況包含表格或者DHTML表單信息。

　　 如果已經(jīng)正確地建立并寫入了文件，上面的小小循環(huán)將合適地列出數(shù)據(jù)庫(kù)中的每一個(gè)人的信息。ReadLine方法讀取1
行內(nèi)容，直到遇到換行符，隨后的ReadLine調(diào)用將讀取下一行。AtEndOfStream是TextStream對(duì)象的屬性，它告訴我們何時(shí)
遇到文件的尾部。

　　 假設(shè)由于某種原因，我們沒有正確地形成文件，如果一個(gè)用戶只有2行信息而不是3行，那么就會(huì)產(chǎn)生一些錯(cuò)誤。我們
這里的循環(huán)取回文件中的下3行信息，如果沒有3行多的信息，就將出現(xiàn)如下的錯(cuò)誤信息：

　　 Server object error 'ASP 0177 : 800a003e'

　　 所以，一定要添加一些錯(cuò)誤處理代碼，以防文件中插入了多余的行或者少了必要的行信息。

最新評(píng)論