深入理解ASP中FSO的神奇功能

來源:互聯網
上載者:User
fso     在ASP中,FSO的意思是File System Object,即檔案系統對象。

 我們將要操縱的電腦檔案系統,在這裡是指位於web伺服器之上。所以,確認你對此擁有合適的許可權。理想情況下,你可以在自己的機器上建立一個web伺服器,這樣就能方便地進行測試。如果運行於Windows平台,請試一試微軟公司的免費個人Web伺服器PWS。

 FSO 模型對象

 Drive Object:磁碟機對象 供存取磁碟或者網路磁碟機
 FileSystemObject Object:檔案系統對象 供存取電腦的檔案系統
 Folder Object:檔案夾對象 供存取檔案夾的所有屬性
 TextStream Object:文字資料流對象 供存取檔案內容

 你可以使用上面的對象做電腦上的任何事情,也包括破壞活動 ;-( 所以,請小心使用FSO。在web環境中,儲存資訊是非常重要的,比如使用者資訊,記錄檔,等等。FSO提供了一個強大且簡單的方法高效率地儲存資料。在這篇文章裡面,著重討論FileSystemObject和TextStream對象。

 FSO由微軟公司提供支援,對於非Windows系統,大概不能再使用ASP。

 怎麼樣使用FSO?

 為了使用FSO來執行所有的工作,首先要建立對象,代碼就象下面這樣:

< % Set fso = Server.CreateObject("Scripting.FileSystemObject")
% >

 這樣就建立了FSO並且賦予變數fso,接著就可以使用熟悉的object.method文法來執行檔案系統的操作〔查看Visual Basic文檔,擷取更多的關於對象和對象嚮導編程的知識〕。在這裡,我們可以使用fso.method 或者 fso.property,這些將在下面的例子中看到。

 FSO模型位於由微軟提供的指令碼已耗用時間DLL檔案中,它是scrrun.dll。你可以在任何應用程式中引用這個DLL檔案,比如MS Access,Word。 就是說,並非僅僅限制在ASP中應用它。

 這裡有一個簡要的FSO方法列表:

FSO方法   
CopyFile 拷貝一個或者多個檔案到新路徑  
CreateTextFile 建立檔案並且返回一個TextStream對象  
DeleteFile 刪除一個檔案  
OpenTextFile 開啟檔案並且返回TextStream對象,以便讀取或者追加

 如果想瞭解完整的FSO方法與屬性,請查閱微軟MSDN。下面來看幾個例子。

 假設你想建立一個簡單的留言簿,你可以建立一個資料庫,在其中儲存使用者的資訊。然而,如果並不需要資料庫的強大功能,使用FSO來儲存資訊將節省你的時間和金錢。並且,一些ISP也許限制了web上的資料庫應用。

 假設你在一個表單中收集了一些使用者資訊,這裡是一個簡單表單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")

  迄今為止,還沒有新鮮的東西,無非是擷取表單域的值並且賦值到變數。下面出現了有趣的部分 - 寫檔案:

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對象揭示了操作檔案內容的方法,比如寫、讀一行、跳過一行。VB常量vbcrlf產生一個分行符號。

 在OpentextFile的命令參數中定義了TRUE,這就告訴了系統,如果檔案不存在,就建立它。如果檔案不存在,並且沒有定義TRUE參數,就會出錯。

 現在轉到目錄c: emp,開啟test.txt,你可以看到如下的資訊:

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

 當然,這些單詞可以被輸入在表單中的任何內容所替換。

 現在已經有了一些使用者資訊儲存在檔案中,就像一個簡單的資料庫。假設有一個使用者想瞭解所有的訪問者,就要從登記的資訊中分離出相關部分,因為沒有象資料庫一樣擁有結構化的列。

 我們知道,在所建立的檔案中,第1行是使用者名稱,第2行是他們的首頁,第3行是他們的電子郵件地址。隨後登記的使用者也是按照這樣的結構儲存他們的資訊,所以每3行將包含一個使用者的登記資訊。知道了這些,就可以編寫下面的代碼來顯示資訊:

< %
'' 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  

 接著,分析每一行,並且格式化資料:

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
%>  

 這裡僅僅做了一個非常簡單的輸出,但是你可以根據情況包含表格或者DHTML表單資訊。

 如果已經正確地建立並寫入了檔案,上面的小小迴圈將合適地列出資料庫中的每一個人的資訊。ReadLine方法讀取1行內容,直到遇到分行符號,隨後的ReadLine調用將讀取下一行。AtEndOfStream是TextStream對象的屬性,它告訴我們何時遇到檔案的尾部。

 假設由於某種原因,我們沒有正確地形成檔案,如果一個使用者只有2行資訊而不是3行,那麼就會產生一些錯誤。我們這裡的迴圈取迴文件中的下3行資訊,如果沒有3行多的資訊,就將出現如下的錯誤資訊:

Server object error ''ASP 0177 : 800a003e''  
  
 所以,一定要添加一些錯誤處理代碼,以防檔案中插入了多餘的行或者少了必要的行資訊。

 上面討論了基本知識,然後說說許可權許可的問題。FSO以建立它的使用者帳戶許可權運行,換言之,如果有人從Internet上訪問你的頁面,那麼這個internet帳戶就建立FSO。如果以administrator的身份登入電腦,並且登入頁面,那麼administrator帳戶就建立了FSO。這是非常重要的,因為一定的帳戶擁有一定的許可權,並且FSO需要一些許可權從而能完整的執行功能。

 internet帳戶(IUSER_MachineName,MachineName是伺服器的名字)一般只擁有讀許可權,這意味著使用者將不能寫入留言簿檔案。然而,有幾個選擇可以繞過這個問題。

 首先,也是很困難的,是要求使用者在填寫留言簿前登入到伺服器。然而,留言簿的要點是從匿名使用者處收集資訊,如果要求使用者登入,就必須要知道他們是誰。因此,跳過這個選擇,看下一個。

 第2個方法是建立一個目錄或者檔案,IUSER_MachineName使用者對此有寫入權限。這樣做可能開放了一些潛在的安全性漏洞,因為任何知道正確目錄並具備一定web技巧的人就能在伺服器上填充內容。這是一個很嚴重的禁忌。所以你必須確認在隱藏的場所儲存了這些可寫目錄的資訊,並且儘可能地將這些目錄設定在web目錄結構以外(比如在Windows下,這是一個不在inetpub目錄下的一個目錄)。

 你也許想:好,現在我知道如何寫入檔案了。但能做到更多一些嗎?下面來試一試為web網站建立一個搜尋功能。

 建立搜尋引擎的關鍵是遞迴。主要地,編寫一段程式碼搜尋目錄下的檔案,然後對所有的目錄迴圈執行同樣的代碼。因為不能確定總共有多少個子目錄,所以必須一遍又一遍地執行搜尋代碼,直到結束。遞迴調用非常好!

 下面來建立搜尋網頁面。假設已經建立了一個HTML表單,使用者在其中輸入一個搜尋字串。

Dim objFolder
Dim strSearchText
Dim objFSO

strSearchText = Request.Form("SearchText") < -- The search string



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。