波多野结衣办公室双飞,青青操在线视频,日本高清视频在线观看

翻譯討飯貓

很久以前（其實(shí)就幾個月）就知道 Chinaasp 有個實(shí)際效果象黑客的ASE程序，最近 Chinaasp 又提供了精華區(qū)全文檢索功能?？磥砦募到y(tǒng)對象組件還是很有用的，對吧？如果你對此有興趣，可以看看這篇文章。本文屬入門級，修行還靠你自己，呵呵。

注意:我們在下文中要操作的是Web服務(wù)器的文件系統(tǒng)，所以首先要確定你對該服務(wù)器有足夠的權(quán)限。如果你不想麻煩你的Web Master，你也可以用微軟的Personal Web Server來進(jìn)行你的試驗。

FSO對象包括
驅(qū)動器對象（Drive Object）用來存取本地盤或網(wǎng)絡(luò)盤，
文件系統(tǒng)對象（FielSystemObject 簡稱FSO）是用來存取文件系統(tǒng)
文件夾對象（Folder Object）用于存取文件夾的各種屬性
文本流對象（TextStream Object 簡稱TS）存取文件內(nèi)容

使用以上對象，你的確可以在一臺電腦上為所欲為，但同樣也可能會造成災(zāi)難，所以在使用FSO的時候要注意安全，特別是在Web應(yīng)用中，Web服務(wù)器中會存儲諸如用戶信息，日志文件等等重要信息，更要格外小心。在本文中，我們主要探討FSO對象和TextStream對象

（FSO由Microsoft提供，所以本文內(nèi)容只適用于Windows操作系統(tǒng)下的ASP編程。）

如何使用FSO？

要開始干壞事之前，首先要學(xué)會建立FSO。如果你曾經(jīng)在ASP中創(chuàng)建過對象，那么這事好辦：

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

現(xiàn)在我們已經(jīng)建立了FSO，并賦值給變量fso，接下來就可以使用我們熟悉的object.method方法來使用它了（如果你對對象的操作不熟悉，請自己去補(bǔ)課，這里恕不奉陪）。在下面的例子中，主要使用的是fso.method和fso.property。

（FSO模塊來自微軟提供的腳本運(yùn)行庫scrrun.dll中，許多應(yīng)用系統(tǒng)都會調(diào)用它，例如Access,Word等等，并非專為ASP應(yīng)用開發(fā)。）

下面是我們要用到的部分FSO方法：

CopyFile 拷貝一個或多個文件
CreateTextFile 創(chuàng)建一個文件并返回一個TS對象
DeleteFile 刪除一個文件
OpenTextFile 打開一個文件并返回一個可用于讀和添加的TS對象。

要獲得完整的FSO方法，請參看MSDN。下面看個例子吧。

寫文件

設(shè)想你要建立一個簡單的guestbook，而又不想用復(fù)雜的數(shù)據(jù)庫，或者你的ISP限制你用數(shù)據(jù)庫，大可以用FSO來干。
假設(shè)你要從用戶提交的form中收集信息，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>

再看看用于處理這個form的formhandler.asp。

%
' 獲取 form信息
strName = Request.Form("username")
strHomePage = Request.Form("homepage")
strEmail = Request.Form("Email")

' 建立fso對象
Set fso = Server.CreateObject("Scripting.FileSystemObject")

path = "c:\temp\test.txt"
ForReading = 1, ForWriting = 2, ForAppending = 3

' 打開文件
set file = fso.opentextfile(path, ForAppending, TRUE)

' 把信息寫入文件
file.write(strName) vbcrlf
file.write(strHomePage) vbcrlf
file.write(strEmail) vbcrlf

' 關(guān)閉并清除對象
file.close
set file = nothing
set fso = nothing

看看上面，OpenTextFile方法返回了一個TS對象，TS對象提供了例如Write,ReadLine,SkipLine等一系列的方法來操作文件內(nèi)容。VB常量vbcrlf是換行符。

（我們在OpentextFile方法中指定了TRUE參數(shù)，通知系統(tǒng)當(dāng)文件不存在時生成一個新文件。如果不用TRUE，當(dāng)文件不存在時就會返回一個難看的錯誤提示。）

現(xiàn)在打開c:\temp\test.txt，你可以看到如下信息：

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

當(dāng)然，實(shí)際內(nèi)容是用戶的輸入。哈，一個簡單的guestbook誕生啦。

讀文件

好，現(xiàn)在我們的guestbook里已經(jīng)存儲了不少用戶的信息了，如果這時一個用戶想看看我們訪客的信息，我們得把信息再還原出來。由于不是數(shù)據(jù)庫，得自己動手來解決分段問題?？纯磘est.txt,每三行就是一個用戶的信息，好辦：

%
' 建立fso對象
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c:\temp\test.txt"

'打開文件
set file = fso.opentextfile(path, 1) -- 用于讀

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

' 關(guān)閉并清除
file.close
set file = nothing
set fso = nothing
%>

（這里我們只是將信息簡單輸出，你可以根據(jù)實(shí)際情況作調(diào)整，包括輸出到表格和DHTML form中。）

ReadLine方法用于從文件中讀取一行，下次調(diào)用ReadLine方法將讀取下一行。AtEndOfStream是TS對象的一個屬性，讓你知道是否到達(dá)文件結(jié)尾。

假設(shè)由于某種原因文件有問題，例如某個用戶只有兩行，那么我們會得到以下錯誤信息：

Server object error 'ASP 0177 : 800a003e'

所以加入一些錯誤處理代碼是必要的。

FSO的權(quán)限問題

現(xiàn)在我們已經(jīng)對FSO有一些基本認(rèn)識了，是時候來討論一下FSO的權(quán)限問題。FSO的讀取權(quán)限就是創(chuàng)建FSO的賬號所擁有的權(quán)限。如果某人從Internet上使用這個頁面，那么創(chuàng)建FSO的就是Internet賬號。如果你用administrator本機(jī)登錄并訪問頁面，那么建立的FSO就擁有administrator的權(quán)限。

Internet賬號（IUSER_機(jī)器名）通常只有讀權(quán)限，這意味著用戶永遠(yuǎn)無法寫guestbook文件。所以必須想辦法解決。

第一個辦法，是讓用戶首先要用一個有寫權(quán)限的賬號登錄。但實(shí)際上所有從Internet訪問的用戶都是以anonymous登錄，所以這個方法比較難實(shí)現(xiàn)。

第二個方法是建立一個允許賬號為 IUSER_機(jī)器名的用戶讀寫的目錄。但這樣可能會帶來安全漏洞。如果這個目錄讓黑客知道了，就可以往里面寫一些代碼并通過某種方式運(yùn)行它，那你就慘了。所以最好將這個目錄建立在Web路徑之外（也就是inetpub路徑之外）。

用FSO實(shí)現(xiàn)search功能

現(xiàn)在讓我們來做更進(jìn)一步的工作，用FSO在我們的Web站點(diǎn)上實(shí)現(xiàn)search功能。建立搜索引擎的關(guān)鍵是遞歸。

首先來建立搜索頁面。假設(shè)我們已經(jīng)給用戶提供了一個輸入搜索字符串的頁面。

Dim objFolder
Dim strSearchText
Dim objFSO

strSearchText = Request.Form("SearchText") -- 搜索字符串

' 建立 FSO 和文件夾對象
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("/"))

Search objFolder

上面的代碼只是進(jìn)行了一些變量初始化工作，真正的serach工作由下面這個Search函數(shù)執(zhí)行。

Function Search(objFolder)
Dim objSubFolder

'循環(huán)搜尋當(dāng)前文件夾中的每個文件
For Each objFile in objFolder.Files

Set objTextStream = objFSO.OpenTextFile(objFile.Path,1) -- For Reading

'把文件內(nèi)容讀入一個變量
strFileContents = objTextStream.ReadAll

'如果在文件中找到該字符串，寫個指到該文件的鏈接
If InStr(1, strFileContents, strSearchText, 1) then
Response.Write "A HREF=""/" objFile.Name """>" objFile.Name "/A>BR>"
bolFileFound = True
End If

objTextStream.Close

Next

'以下是遞歸部分
' 如果其中有子目錄，再調(diào)用Search函數(shù)
For Each objSubFolder in objFolder.SubFolders
Search objSubFolder
Next

End Function

該程序會自動搜索Web root目錄以下的所有子目錄，還不錯吧？

（FSO要使用物理絕對路徑，而不是Web Path的相對路徑。例如，要打開的是c:\inetpub\wwwroot\temp\index.html，而不能是www.enfused.com/temp/index.html 或 /temp/index.html。要將后一種路徑轉(zhuǎn)換為物理絕對路徑，使用Server.MapPath("filename")。）

隨著文件和子目錄數(shù)的增加，程序運(yùn)行的時間會變長。所以如果是要提供繁重的搜尋功能，還是建議使用象 Microsoft Index Server這樣的專業(yè)工具。

用FSO進(jìn)行目錄管理

現(xiàn)在知道FSO的好處了吧？下面我們嘗試用FSO來做更復(fù)雜一些的工作。

Web目錄管理就是在Web環(huán)境下進(jìn)行文檔的新建刪除改名移動等工作，一個好的Web目錄管理工具可以為用戶提供一個與我們慣用的環(huán)境一樣的操作方法來管理Web服務(wù)器上的文件。

那么先讓我們來試試文件改名。首先要告訴大家，不幸得很，F(xiàn)SO不允許直接文件改名，所以我們要繞個彎進(jìn)行。

%
' 建立fso對象
set fso = Server.Createobject("Scripting.FileSystemObject")

path = "c:\temp\test.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:\inetpub\wwwroot\articles\&; strDate

strNewFileName = Hour(Now) "_" Minute(Now) "_" second(Now) ".html"

' 打開舊文件
set file = fso.opentextfile(path, 1) -- 用于讀
strText = file.readall
set file = nothing

' 檢查是是否要建立文件夾
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

' 創(chuàng)建并寫入新文件
set file = fso.Createtextfile(f.path "\&; strNewFileName)
file.write(strText)

set f = nothing
file.close
set file = nothing

' 刪除舊文件
fso.DeleteFile(path "\&; rst("FileName") i)

' 清除
set fso = nothing
%>

我們在這里特別舉這個例子就是因為FSO在這個功能上存在缺陷，所以我們必須分兩步走。首先新建一個文件，注意，由于用戶可能將文件改名到另一個目錄下，所以我們必須判斷新目錄是否存在（就是if not fso.folderexists那段代碼）。新文件建好后，用fso.DeleteFile 將舊文件刪除。

FSO功能上的弱點(diǎn)

FSO還是存在一些弱點(diǎn)。例如，它在處理二進(jìn)制文件的時候就不那么方便。對于象MS Word文檔，圖像等許多文件，你只能執(zhí)行移動，刪除等操作，而不能打開，讀/寫。當(dāng)然，F(xiàn)SO提供了另外一套操作它們的方法（具體請參考MSDN），但始終不如我們慣用的open方法那么順手。

另一個不足與文件大小有關(guān)。由于FSO操作需要經(jīng)常地將文件內(nèi)容讀入內(nèi)存，文件有多大，就需要多少內(nèi)存，所以如果你要處理大文件或一大堆小文件的話，內(nèi)存的開銷會很可觀，可能會對系統(tǒng)運(yùn)行速度有影響。解決辦法是將大文件分段處理，并記住經(jīng)常地清除內(nèi)存（把變量設(shè)為null或""，set 對象=nothing）。

此外，F(xiàn)SO不能改變文件和文件夾的屬性。例如，在建立guestbook的例子中，其實(shí)有一個安全機(jī)制我們沒有實(shí)現(xiàn)，就是將保存信息的文件的屬性設(shè)為只讀，只有在更新的時候才臨時改為可寫，寫完后再改回只讀，許多用CGI或Perl寫的guestbook程序都有這種功能，可惜用FSO無法實(shí)現(xiàn)該功能。

FSO還能干些什么？

總的來說，F(xiàn)SO還是很強(qiáng)大的。FSO還有一些一般沒人注意到的很酷的功能。下面列出一些，當(dāng)你看完可能會說“呀，我以前怎么不知道?！焙呛恰?

GetSpecialFolder 方法
返回一個特殊的Windows文件目錄：Windows安裝文件目錄，系統(tǒng)文件目錄，臨時文件目錄。使用方法分別是:FSO.GetSpecialFolder([0, 1, or 2])

GetTempName 方法
返回一個隨機(jī)生成的臨時文件或文件夾。象處理上面所說的將大文件分割處理的時候這個功能特別有用。（討飯貓：如果Win98常死機(jī)的話，我們經(jīng)?？梢栽赪indows根目錄下看到大量的長度為0的隨機(jī)文件名，估計就是這個用途）

GetAbsolutePathName 方法
返回一個文件夾的絕對路徑（有點(diǎn)象Server.MapPath）。例如，F(xiàn)SO.GetAbsolutePathName("region")會返回象"c:\mydocs\myfolder\region" 這樣的路徑，具體取決于你的當(dāng)前目錄。

GetExtensionName 方法
返回文件的擴(kuò)展名。例如 FSO.GetExtensionName("c:\docs\test.txt") 返回 "txt"。

GetBaseName 和 GetParentFolder 方法
分別返回根目錄名和父目錄名。例如 FSO.GetParentFolder ("c:\docs\mydocs") 返回 "docs"。

Drives 屬性
返回本機(jī)上所有驅(qū)動器的集合。如果你要建立一個explorer風(fēng)格的界面，這個功能再有用不過。

記住要建立一套完善的錯誤信息處理機(jī)制，因為上面這些功能如果遇到象文件夾不存在之類錯誤時，會返回一些可惡的錯誤代碼。

看到這里，是不是覺得FSO有用呢？實(shí)際上，我們所提到的內(nèi)容只是冰山的一角。在Enfused等大站點(diǎn)上，還可以看到更多與此有關(guān)話題的討論。

Copyright 1999-2000 internet.com Corp. All RIGHTS RESERVED.

標(biāo)簽：南京邢臺涼山清遠(yuǎn) 通遼赤峰楚雄上海

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《奇妙的文件系統(tǒng)對象組件》，本文關(guān)鍵詞奇妙,的,文件,系統(tǒng),對象,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。