come si crea un motore di ricerca
come si crea un motore di ricerca
devi usare pho asp oppure javascript...in base al tuo server decidi
e scegli la sezione adtatta
Ciro Marotta - Programmatore JAVA - PHP
Preferisco un fallimento alle mie condizioni che un successo alle condizioni altrui.
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 %>
come browser ho internet explorer come server ho tiscali è a me piacerebbe che me lo insegnassi in javascript
Javascript non è in grado di interagire con un database, per cui un motore di ricerca in Javascript avrà sempre funzionalità limitate. Ma se il Tuo sito ha dimensioni accetabili, Ti cerco una soluzione...
Ciao,
dover
Forse questo, di HTML.IT, può aiutarti:
www.filelife.com/motore_Js.zip
Ciao,
dover
Cerca su questo sito ( www.html.it )
Permessi di invio
Rispondi quotando