ASP中FSO的神奇功能

核心提示： 上面的代码简单地初始化变量，Search函数执行搜索功能，ASP中FSO的神奇功能(6)，描述如下： Function Search(objFolder)Dim objSubFolder'loop through every file in the currentfolderFor

上面的代码简单地初始化变量，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根目录“/”。然后