Chiama questa pagina search.asp e infilala nella directory principale del tuo sito:

<% Dim Listoffilesfound,Thefile,Thefolder,Folderpath
if request.form="" Then
SendForm()
else
SearchTerm = Server.HTMLencode(request.form("term"))
SearchTermArray=Split(SearchTerm," ")
MaxSearchTerms=ubound(SearchTermArray)
Folderstosearch="/"
DonotsearchthisFiles =""
Folderpath=server.mappath("\")
Thefolder = ""
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Folderpath & Thefolder)
Set fc = f.Files
For Each f1 In fc
Wfile = f1.name
Thefile=Thefolder & "/" & Wfile
if inStr(DonotsearchthisFiles,Thefile)=0 Then
Searchit()
End if
Next
Searchresponse()
End if
%><% Sub SendForm() %>
<HTML><HEAD><TITLE>Search</TITLE></HEAD>
<BODY BGCOLOR=FFFFFF><CENTER>
<FORM method="POST" action="search.asp">
<TABLE border=0 cellpadding=5 bgcolor=AAAAAA><TR>
<TD width="323" align=center>
Ricerca
<INPUT type=text name=term size=15>
<input name="submit" type=submit
value="Cerca">
</TD>
</TR></TABLE>
</FORM>
</CENTER></BODY></HTML>
<% End Sub %><% Sub Searchresponse() %>
<HTML><HEAD><TITLE>Search results</TITLE></HEAD><BODY BGCOLOR=FFFFFF><CENTER>
<TABLE BORDER=0 WIDTH=600><TR><TD BGCOLOR=C0C0C0><FONT SIZE=5>Risultati della Ricerca</FONT></TD></TR></TABLE>
<TABLE BORDER=0 WIDTH=600>
<% if Listoffilesfound="" Then %>
<TR><TD>Nessun elemento trovato</TD></TR>
<% Else
Response.Write (Listoffilesfound)
End if %>
</TABLE>
</CENTER></BODY></HTML>
<% End Sub %><% Sub Searchit()
Thefilepath=Folderpath & Thefile
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(Thefilepath)
ThecontentofFile = a.ReadAll
a.close
Findterms=0
For j=0 To MaxSearchTerms
if instr(1,ThecontentofFile,SearchTermArray(j),1)>0 Then
Findterms=Findterms+1
End if
next
if Findterms=MaxSearchTerms+1 Then
if instr(1,ThecontentofFile,"</TITLE>",1)>0 and instr(1,ThecontentofFile,"<TITLE>",1)>0 Then
TheTitle=left(ThecontentofFile,instr(1,Thecontento fFile,"</TITLE>",1)-1)
TheTitle=right(TheTitle,len(TheTitle)-instr(1,TheTitle,"<TITLE>",1)-6)
else
TheTitle=""
End if
Listoffilesfound= Listoffilesfound & "<TR><TD>" & TheTitle & "</TD><TD ALIGN=CENTER VALIGN=MIDDLE> Dettagli </TD></TR>"
End if
End Sub %>