FaceitWeb.com

Un piccolo tutorial che spiega come realizzare un motore di ricerca in ASP, da integrare nel proprio sito web. La funzione di questo motore è quella di ricercare il contenuto di ogni singolo file presente sul sito. Andiamo ad analizzare il codice:

<title>Risultato della ricerca per </title>

<p align="center">
Risultato della ricerca per: <b></b>
</p>

&lt;%
Const fsoForReading = 1

'Dimensioniamo il FileSytemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Impostiamo la directory in cui cercare usando MapPath
'nel nostro caso impostiamo la root del sito
Dim objFolder
Set objFolder = objFSO.GetFolder(Server.MapPath("/"))

Dim objFile, objTextStream, ContenutoDelFile, FileTrovato
FileTrovato = False

'Leggiamo il contenuto di ogni file trovato nella directory
For Each objFile in objFolder.Files
If Response.IsClientConnected then
Set objTextStream = objFSO.OpenTextFile(objFile.Path,fsoForReading)
ContenutoDelFile = objTextStream.ReadAll

'Se nel contenuto del file è presente la stringa cercata...
'Stampo a video il link ed in nome del file
If InStr(1,ContenutoDelFile,CosaCercare,1) then
Response.Write "<a>" &amp; objFile.Name &amp; "</a><br>"
FileTrovato = True
End If

'Chiudo il file e proseguo nella ricerca
objTextStream.Close
End If
Next

'Se nessun file contiene il termine cercato...
if Not FileTrovato then Response.Write "Nessun risultato trovato..."

'Chiudo tutto...
Set objTextStream = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%&gt;

ASP: Motore di ricerca nel sito