You are 1 of 10 Active ASP Visitors
  ASP Home  |  Resources  |  Write a Review  |  My Favor-Its  |  Login
Share on Facebook Tweet this! Share on Google+ Share on LinkedIn Add to   Add to StumbleUpon eee

Resource Menu
 Searching Through Text Files Site: 4GuysFromRolla 
This tutorial demonstrates how to build a paged search engine that will search through a selectedset of folders on a web site, returning a list of files that contain the text entered by the searcher. Author: 4GuysFromRolla Code: ASP 2.0 & VBScript

User Reviews   
   Authentic (0)  Anonymous (2) 

Overall Rating:
Codango PHP, ASP .NET, JSP Scripts, Resources, Reviews
Click to Read Reviews
not working    
Written by Anonymous User (#1640-196) from BH   (Wednesday, July 21, 2004)
Strengths:   no comment  
Weaknesses:   no comment  
Details:   I used these codes in vb, it works fine in win2000 and winxp but not in win98. Plz tell me what may the reason.
Review Based On:   using demo only  

Great Script!    
Written by Anonymous User from BC, Canada   (Wednesday, March 15, 2000)
Strengths:   no comment  
Weaknesses:   no comment  
Details:   This is the best 'simple' ASP site search engine I have found. All the asp code resides in a single page and there are no components to install. Works great as well! <BR><BR> Some areas that may give setup problems and should be better clarified: <BR><BR> 1.<BR> Function FormatURL(strPath)<BR> 'Cut off everything before wwwroot and replace all \ with /<BR> Dim iPos<BR> iPos = InStr(1,strPath,"wwwroot",1)<BR><BR> Dim str<BR> str = Mid(strPath,iPos+7,Len(strPath))<BR><BR> FormatURL = Replace(str,"\","/")<BR> End Function<BR><BR> -> If your root is not wwwroot be sure to change the info in iPos and str to suit your server<BR><BR> 2.<BR> 'Do we need to search this file?<BR> If UCase(Right(objFile.Name,6)) = ".SHTML" then<BR> If bolLFFound then<BR> if objFile.Size > 0 then<BR> 'Read the contents of the file into a string variable<BR> Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<BR> Set objTextStream = objFSO.OpenTextFile(objFile.Path,1)<BR> strContents = objTextStream.ReadAll<BR> objTextStream.Close<BR> Set objFSO = Nothing<BR><BR> '... continued in next code block ...<BR><BR> --> if you are looking at a different file extension don't forget to modify the line:<BR> "If UCase(Right(objFile.Name,6)) = ".SHTML" then"<BR><BR> ie for .htm pages change to:<BR> "If UCase(Right(objFile.Name,4)) = ".HTM" then"<BR><BR> The code from this asp is well layed out and is good to look through even if you don't need a search engine...some snippets gave me insight into solutions to other ideas I had been mulling with!




  Link to Us  |  About Us   Advertise  |  Contact Us  |  Website Help  
Write a User Review Today!
Its Fun, Fast, and Easy!
Web site monitoring by Web Site Monitor - for Android

2015 InfoVertica, LLC, All Rights Reserved *