ASP: Motore di ricerca nel sito

22 giu 2009

Pubblicato in HowTo, Programmazione | Nessun commento »

Questo tutorial vi spiega come riuscire a realizzare un motore di ricerca da integrare al proprio sito web, senza nessun database. La funzione di questo motore è quella di ricercare, in determinati momenti il contenuto di ogni singolo file presente sul sito. Per capirci meglio ecco il codice commentato:

 
 
 
 
 
<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;