ASP中FSO的神奇功能 - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- ASP中FSO的神奇功能 (http://www.webasp.net/article/17/16997.htm)

-- 作者：未知 -- 發佈日期： 2005-03-15

轉帖 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 '' create the FSO and Folder objects Set fso = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("/")) Search objFolder 　　 上面的代碼簡單地初始化變量，Search函數執行搜索功能，描述如下： Function Search(objFolder) 　Dim objSubFolder 　''loop through every file in the current folder 　For Each objFile in objFolder.Files 　　Set objTextStream = objFSO.OpenTextFile(objFile.Path,1) < -- For Reading 　　　　''read the file''s contents into a variable 　　　　strFileContents = objTextStream.ReadAll 　　　　''if the search string is in the file, then write a link 　　　　'' to the file 　　　　If InStr(1, strFileContents, strSearchText, 1) then 　　　　　 Response.Write "< A HREF=""/" & objFile.Name & _ 　　　　　　　　""">" & objFile.Name & "< /A>< BR>" 　　　　　 bolFileFound = True 　　　　End If 　　　　objTextStream.Close 　Next 　''Here''s the recursion part - for each 　'' subfolder in this directory, run the Search function again 　For Each objSubFolder in objFolder.SubFolders 　　　　Search objSubFolder 　Next End Function 　　 為了能打開文件，FSO需要實際的文件路徑，而不是web路徑。比如，是c:inetpubwwwroot empindex.html, 而不是 www.enfused.com/temp/index.html 或者 /temp/index.html。 為了將後者轉換為前者，使用Server.MapPath ("filename"), filename表示web路徑名。 　　 上面的代碼將在你指定的初始目錄下的文件夾的每一個子目錄中執行，在這裡，初始目錄是指web根目錄"/"。然後 就簡單地打開目錄下的每一個文件，看看其中是否包含指定的字符串，如果找到字符串就顯示那個文件的鏈接。 　　 注意，隨著文件和子目錄數量的增加，搜索花費的時間也將增加。如果需要繁重的搜索工作，建議你採取其他的方 法，比如微軟公司的索引服務器Index Server。 到此，你對FSO可能已經有了很好的體會。讓我們再深入研究一步，來解決更複雜的難題。 　　 首先，你可能希望對文件改名。為了跟蹤所有的文檔，你將要重新命名它們以便唯一，這樣就可以被系統容易地區 別。很不幸，FSO不允許簡單的文件改名操作，所以我們不得不修改一下。 < % '' create the fso object set fso = Server.Createobject("Scripting.FileSystemObject") path = "c: emp est.txt" strDate = Replace(Date(), "/", "") strDir = "c:inetpubwwwrootarticles" & strDate strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" & second(Now) & ".html" '' open the old file set file = fso.opentextfile(path, 1)　< -- For reading strText = file.readall set file = nothing '' check for and/or create folder if not fso.folderexists(Server.MapPath(strDir)) then 　　　　set f = fso.CreateFolder(Server.MapPath(strDir)) else 　　　　set f = fso.GetFolder(Server.MapPath(strDir)) end if '' create and write new file set file = fso.Createtextfile(f.path & "" & strNewFileName) file.write(strText) set f = nothing file.close set file = nothing '' delete the old file fso.DeleteFile(path & "" & rst("FileName") & i) '' clean up set fso = nothing %> 　　 FSO能力的不足在這裡卻成了優勢，我們可以一次執行2步。首先，打開文件並讀入文件的內容。假設這裡要創建一個 唯一的文件夾和一個唯一的文件來存儲文章。然而，因為文件夾的路徑每天都將改變，所以必須首先檢查是否文件夾已經 存在，如果不存在，就創建它。這在if not fso.folderexists代碼段完成。然後，取得那個路徑，創建一個新的文件。新 文件建立完成後，刪除掉舊文件，這通過fso.DeleteFile來完成。 　　 這2步就是：對文件改名，然後移動到一個更合適的目錄下。注意，在這裡還可以對文件進行更多地操作，比如在寫 入新文件前進行一下內容的編輯。 　　 FSO確實存在一些弱點 － 比如，它很難處理二進制文件，這包括Word文檔、許多圖形格式的文件和其他一些文件。然而你仍然可以用其他的方式操作這些文件 － 移動它們、刪除它們，等等。你不能做的就是對它們進行打開或者寫操作。 　　 另外一個限制是對於文件長度的問題。當立刻讀寫一些內容時，所有的信息都存儲在內存中 － 內容越多，消耗的內存就越大。這將使每個工作都變得慢起來。所以，如果需要操作非常大的文件，或者大量的小文件時，考慮將文件分割成小塊，並且經常的清除內存。將應用程序融入進COM對像組件，也能大大地提高程序的速度。 　　 同樣，你也不能使用FSO來管理權限以及文件、文件夾的屬性，執行安全加密的一個很好方法就是將前面提到的留言簿文件設置為只讀，在需要時再設置為可寫，然後再修改回來。這個方法經常在CGI和Perl使用，但是很不幸，還沒有令人滿意的方法來用FSO實現。 　　 還能用FSO做什麼？ 　　 在FSO中還有許多很棒的功能，但許多人沒有意識到。這些功能常常是在你感到做某些事情很難後才發現的，這時你經常要感歎到：要是我早知道這個方法就好了！

webasp.net