使用FSO进行全文检索

<HTML>
<HEAD>
<TITLE>'<%=Request("SearchText")%>'的搜索结果</TITLE>
</HEAD>
<BODY>
'<%=Request("SearchText")%>'的搜索结果 
<%
Const fsoForReading = 1
Dim objFile, objFolder, objSubFolder, objTextStream
Dim bolCase, bolFileFound, bolTagFound
Dim strCount, strDeTag, strExt, strFile, strContent, strRoot, strTag, strText, strTitle, strTitleL
strFile = ".asp .htm .html .js .txt .css"
strRoot = "/"
strText = Request("SearchText")
strTag = Chr(37) & Chr(62)
bolFileFound = False
bolTagFound = False
If Request("Case") = "on" Then bolCase = 0 Else bolCase = 1
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
RealPath=Server.MapPath(strRoot)
VirtualPath="http://" & Request.ServerVariables("SERVER_NAME")
Set objFolder = objFSO.GetFolder(RealPath)
schSubFol(objFolder)
Sub schSubFol(objFolder)
on error resume next
For Each objFile in objFolder.Files
If strText = "" Then Exit Sub
If Response.IsClientConnected Then
 Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
 strContent = objTextStream.ReadAll
 If InStr(1, strContent, strTag, bolCase) Then
 Else
 If Mid(objFile.Name, Len(objFile.Name) - 1, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 1, 2)
 If Mid(objFile.Name, Len(objFile.Name) - 2, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 2, 3)
 If Mid(objFile.Name, Len(objFile.Name) - 3, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 3, 4)
 If Mid(objFile.Name, Len(objFile.Name) - 4, 1) = "." Then strExt = Mid(objFile.Name, Len(objFile.Name) - 4, 5)
 If InStr(1, strContent, strText, bolCase) And Instr(1, strFile, strExt, 1) Then
 If InStr(1, strContent, "<TITLE>", 1) Then
 strTitle = Mid(strContent, InStr(1, strContent, "<TITLE>", 1) + 7, InStr(1, strContent, "</TITLE>", 1))
 Else
 strTitle = "未命名"
 end if
 myFile=objFile.Path
 myFile=replace(myfile,RealPath,VirtualPath,1,-1,1)
 myFile=replace(myfile,"\","/")
 strCount = strCount + 1
 Response.Write "<DL><DT>"& strCount &" - <A HREF=" & myFile & ">" & strTitle & "</A></A></DT> <DD>"
 strTitleL = InStr(1, strContent, "</TITLE>", 1) - InStr(1, strContent, "<TITLE>", 1) + 7
 strDeTag = ""
 bolTagFound = False
 Do While InStr(strContent, "<")
 bolTagFound = True
 strDeTag = strDeTag & " " & Left(strContent, InStr(strContent, "<") - 1)
 strContent = MID(strContent, InStr(strContent, ">") + 1)
 Loop
 strDeTag = strDeTag & strContent
 If Not bolTagFound Then strDeTag = strContent
 Response.Write replace(Mid(strDeTag, strTitleL, 200),strText,"" & strText & "",1,-1,bolcase)
 Response.Write "... URL: " & myFile
 Response.Write " - 上次修改时间: " & objFile.DateLastModified
 Response.Write " - " & FormatNumber(objFile.Size / 1024)
 Response.Write "Kbytes</DD></DL>"
 bolFileFound = True
 End If
 objTextStream.Close
 End If
End If
Next
End Sub
For Each objSubFolder in objFolder.SubFolders
 schSubFol(objSubFolder)
Next
If Not bolFileFound then Response.Write "没有匹配结果"
If bolFileFound then Response.Write "搜索结束"
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</BODY></HTML>