Motore di ricerca

Si tratta di un motore di ricerca in grado di analizzare il contenuto dei file in cartelle e sottocartelle del sito elenca i file che contengono le parole richieste dall'utente.

Incominciamo con il descrivere il contenuto del file default.asp

<% Option Explicit %> 







Motore di ricerca
 inserisci il testo da cercare

">
  
   Almeno una parola
   Tutte le parole
   Frase intera

<% 
Dim FSO, cartella 'File system object, cartella di lavoro
Dim radice 'Variabile Booleana per riconoscere la root
Dim FileURL 'Contiene il percorso del file sul sito
Dim ServerPath 'Contiene il percorso di questo script sul server
Dim a_parole 'Array per contenere le parole da cercare
Dim parole 'Parole da ricercare
Dim file_controllati 'Numero di file controllati
Dim file_positivi 'Numero dei file in cui è stata trovata una corrispondenza
Dim a_risultati(200) 'Vettore dei risultati della ricerca
Dim indice 'Contatore del vettore risultati
Dim esiste 'Controlla se sono state trovate delle corrispondenze
Dim file_est 'Estensioni dei file dove effettuare la ricerca
Dim cart_escluse 'Cartelle dove non effettuare la ricerca
Dim file_esclusi 'Nomi dei file da escludere dalla ricerca

file_est = "htm,html,asp,shtml" 
cart_escluse = "cgi_bin,_bin,fpdb,db"
file_esclusi = "riservato.htm,file_protetto.asp"
file_controllati = 0
%>

<%
parole = Trim(Request.QueryString("cerca"))
parole = Replace(parole,"<","<")
parole = Replace(parole,">",">")
a_parole = Split(Trim(parole)," ")

'Crea il file system object
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
if parole<>"" then
  Set Cartella = FSO.GetFolder(Server.MapPath("./"))
  ServerPath = Cartella.Path & "\"
  radice = true
  SearchEngine(cartella)
  Set FSO = Nothing
  Set Cartella = Nothing %>
<% end if %>

<% if not esiste Then %>
   
La ricerca delle parole <%=parole%> non ha fornito risultati su questo sito.
   
Consigli :
Controlla di aver digitato correttamente le parole;
    
Utilizza altre parole;
	
Utilizza parole meno specifiche;
	
Utilizza meno parole.
   
    <% Else %>
    
Ricerca effettuata nel sito per <%=parole%>
   	<% For indice = 1 to file_positivi %>
	  <%=a_risultati(indice)%>

	<% next
end if %>

<%
function SearchEngine(Cartella)
dim File 'File
dim StreamTesto 'Contenuto del File
dim SottoCartella 'Sottocartelle
dim contenuto 'Contenuto del file
Dim i_parole 'indice parole
Dim trovato 'è la variabile boleana che decide se inserire o meno un file nella lista
On Error Resume Next

'Ciclo sui documenti contenuti nella cartella
For Each File in Cartella.Files
  if instr(1, file_est, FSO.GetExtensionName(File.Name), vbTextCompare)>0 then
  if not InStr(1, file_esclusi, File.Name, vbTextCompare)>0 then
     Set StreamTesto = File.OpenAsTextStream
     contenuto = StreamTesto.ReadAll
     StreamTesto.Close
     trovato = false
     if Request.QueryString("tipo")="intera" then
	   if InStr(1,LCase(contenuto),LCase(parole),1) then trovato=true
     else
	   if Request.QueryString("tipo") = "tutte" then trovato=true
	   for i_parole = 0 to UBound(a_parole)
	     if InStr(1, LCase(contenuto), LCase(a_parole(i_parole)),1) then
	        if Request.QueryString("tipo")="una" then trovato=true
	     else
	        if Request.QueryString("tipo")="tutte" then trovato=false
	     end if
	   next
     end if
     file_controllati = file_controllati + 1
     if trovato then
	    file_positivi = file_positivi + 1	
		esiste = true
		indice=indice+1
		a_risultati(indice) = "" & File.Name & ""
       end if
    end if
  end if
next

For Each SottoCartella In Cartella.SubFolders
    if NOT instr(1, cart_escluse, SottoCartella.Name, vbTextCompare) > 0 Then
       radice = false
       FileURL = Cartella.Path & "\"
       FileURL = Replace(FileURL, ServerPath, "")
       FileURL = Replace(FileURL, "\", "/")
       FileURL = Replace(FileURL, " ", "%20")
       SearchEngine(SottoCartella)
    end if
next
Set File = Nothing
Set StreamTesto = Nothing
Set SottoCartella = Nothing

End Function
%>