home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 September / PCWorld_2000-09_cd.bin / Software / Topware / aspedit / _SETUP.1 / textsearch.asp < prev    next >
Text File  |  1999-10-25  |  1KB  |  46 lines
  1. <HTML><HEAD>
  2. <B>Search Results for <%=Request("SearchText")%></B><BR>
  3.  
  4. <%
  5.  
  6. Const fsoForReading = 1
  7.  
  8. Dim strSearchText
  9. strSearchText = Request("SearchText")
  10.  
  11. Dim objFSO
  12. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  13.  
  14.  
  15. Dim objFolder
  16. Set objFolder = objFSO.GetFolder(Server.MapPath("/"))
  17.  
  18. Dim objFile, objTextStream, strFileContents, bolFileFound
  19. bolFileFound = False
  20.  
  21. For Each objFile in objFolder.Files
  22.   If Response.IsClientConnected then
  23.     Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
  24.  
  25.     strFileContents = objTextStream.ReadAll
  26.  
  27.     If InStr(1,strFileContents,strSearchText,1) then
  28.        Response.Write "<LI><A HREF=""/" & objFile.Name & _
  29.                       """>" & objFile.Name & "</A><BR>"
  30.  
  31.        bolFileFound = True
  32.     End If
  33.  
  34.     objTextStream.Close
  35.   End If
  36. Next
  37.  
  38. if Not bolFileFound then Response.Write "No matches found..."
  39.  
  40. Set objTextStream = Nothing
  41. Set objFolder = Nothing
  42. Set objFSO = Nothing
  43. %>
  44.  
  45. </BODY></HTML>
  46.