motore di ricerca interno al sito

**slay** · 12-06-2004, 21:11

non voglio essere banale ho cercato bene prima di scrivere questo post...

devo fare un motore di ricerca interna al mio sito con access solo che non ho trovato o meglio ho trovato qualche tutorial ma non mi hanno portato a niente forse perchè danno scontate molte cose chi mi da una dritta su dove trovare uno script commentato per bene..

devo fare un semplice motore dove digitando la parola cercate del titolo della mia taballe chiamata ricette

grazie ho già fatto ricerche come già detto ma non ho visto qualcosa di completo :master:

**weppos** · 12-06-2004, 22:18

...dove sta il problema in tutto ciò?
Non hai finito il post!

Cosa non ti è chiaro?

**marco.raimondi** · 12-06-2004, 23:29

Fai la connessione
setta Record setcon una stringa di questo genere
sql = "Select * From tabellla WHERE pippo = '" & campo & "'"

poi fai

while not rs.eof

<%=rs("campo0")%>
<%=rs("campo1")%>
<%=rs("campo2")%>

rs.movenext
wend

chiudi rs
e connessione

**teorema55** · 12-06-2004, 23:40

Uhm.........forse stiamo semplificando un po' troppo.......

**teorema55** · 12-06-2004, 23:42

Se ti posto uno script creato da me, composto da un form dove inserire le parole (anche multiple) e da una pagina asp che fa la ricerca ed espone i risultati, ti interessa?

Devi adattarlo al tuo database a alla tua grafica naturalmente..........

**slay** · 13-06-2004, 14:26

grazie teorema sei sempre grande...

**teorema55** · 13-06-2004, 16:58

Traduzione: te lo devo postare?

**teorema55** · 13-06-2004, 17:01

Il form:

codice:

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>Form ricerca per parole chiave</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function check(){
	var test;
	test="true";
		if (test=="true") {
			if (document.ricerca.parole.value=="") {
				alert("Devi specificare almeno una parola da cercare!");
				test="false";
			}
		}
		if (test=="true") {
				document.ricerca.action="select_keywords.asp";
				document.ricerca.submit();
			}		
	}
//-->
</script>

</head>

<body onload="document.ricerca.parole.focus();">






<center><table border="0" width="90%">
	<tr>
		
	
		<td align="center">Ricerca per parole chiave</td>
	
		</tr>
</table>
</center>






<form name="ricerca" method="post">
	<center><table width="80%" border="0">
		<tr>
			<td align="right">Inserisci parole chiave</td>
			<td align="left"><input type="text" name="parole" size="30" value="<%=parole%>"></td>
		</tr>
		<tr>
		<td></td>
		<td></td>
		</tr>
		<tr>
			<td align="right"><input type="button" value="Conferma" onclick="javascript: check();"/></td>
			<td><input type="reset" name="reset" value="Annulla"/></td>
		</tr>
	</table></center>
</form> 

</body>
</html>

Facile, senza problemi: devi solo adattare l'action del form.

**teorema55** · 13-06-2004, 17:05

La ricerca:

codice:

<html>
<head>
<title>Ricerca per parole chiave</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
#piedepagina{
position: relative;
left: 20px;
bottom: 25px;
}
-->
</style>
</head>
<body>







<%
call open_connection ()

parole=request("parole")
parole=lcase(parole) 'per (dopo) evidenziare indipendentemente dalle maiuscole

if len(parole) > 0 then

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT codice, prodotto, categoria, descrizione, tipologia, comune, provincia, info2 FROM prodotti WHERE"

ArrSearch = Split(parole)
x = 0
for each Word In ArrSearch     
     sql = sql & " (prodotto like '%" & word & "%' or descrizione like '%" & word & "%' or tipologia like '%" & word & "%' or info2 like '%" & word & "%')"
     If Not x = UBound(ArrSearch) Then
	  sql = sql & " or"
  End If

  x = x + 1
Next
end if

'apro il rs
rs.Open sql, objConn, 3, 3 'cursore dinamico

if rs.eof then ' nessun record soddisfa la richiesta!

%>



<center><table border="0" width="80%">
	<tr>
		<td></td>	
		<td align="center">Nessuna inserzione soddisfa i criteri di ricerca</td> 
		<td>Altra ricerca</td>
	</tr>
</table>
</center>


<%

else

'ZZZZZZZZZZZZZZZZZ ESTRAZIONE RECORDS SELEZIONATI ZZZZZZZZZZZZZZZZZZZZZZZ

do while not (rs.EOF)

			codice_prodotto=rs.fields.item("codice").value
			prod=rs.fields.item("prodotto").value
			desc=rs.fields.item("descrizione").value
			tipol=rs.fields.item("tipologia").value
			com=rs.fields.item("comune").value
			prov=rs.fields.item("provincia").value
			inf=rs.fields.item("info2").value
			codice_categoria=rs.Fields.Item("categoria").Value
			
		SELECT CASE codice_categoria
          CASE "RV"
              nome_categoria = "Residenziale Vendita"
          CASE "RL"
              nome_categoria = "Residenziale Locazione"
          CASE "CV"
              nome_categoria = "Commerciale Vendita"
          CASE "CL"
              nome_categoria = "Commerciale Locazione"
        END SELECT
          
			

' XXXXXXXX CONTEGGIO PAROLE CHIAVE xxxxxxxxxxxxxxxxxxxxxxxxxx

x = 0
conteggio=0 

ArrSearch = Split(parole)
for each Word In ArrSearch 
	prova=prod&desc&tipol&prov&com&inf&nome_categoria
	tet="0"
		for y=1 to len(prova) 
		tet=instr(prova, word)
			if tet<>0 then
			conteggio=conteggio+1
			prova=mid(prova,tet+1)
			end if
		next
	x=x+1
next

' XXXXXXXXXXXXXX  AGGIORNAMENTO CAMPO "NUMERO PAROLE CHIAVE" XXXXXXXXXXXXXXXXX

SQLcont= "UPDATE prodotti SET campo10='"&conteggio&"' where codice ='"&codice_prodotto&"'"
objConn.Execute SQLcont

rs.movenext
loop

'ZZZZZZZ  PAGINAZIONE  ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ

numero=5 'notizie per pagina
controllo=numero

dim rs2, sql2
Set rs2 = Server.CreateObject("ADODB.Recordset")

pag = TRIM(Request.QueryString("pag")) 'paginazione
If pag="" Then
  pag = 1
Else
  pag = CInt(pag)
End If

' XXXXXXXXXXX  NUOVA ESTRAZIONE RECORDS ..............  XXXXXXXXXXXXXXXXXXXXXX

sql2 = "SELECT codice, prodotto, categoria, descrizione, tipologia, comune, provincia, info2 FROM prodotti WHERE"

ArrSearch = Split(parole)
x = 0
for each Word In ArrSearch     
     sql2 = sql2 & " (prodotto like '%" & word & "%' or descrizione like '%" & word & "%' or tipologia like '%" & word & "%' or info2 like '%" & word & "%')"
     If Not x = UBound(ArrSearch) Then
	  sql2 = sql2 & " or"
  End If

  x = x + 1
Next

' XXXXXX .......... QUESTA VOLTA IN ORDINE DI NUMERO DI RICORRENZE DELLE PAROLE CHIAVE! XXXXXXXXXX

sql2=sql2 & " ORDER BY campo10 DESC"

'apro il rs
rs2.Open sql2, objConn, 3, 3 'cursore dinamico
tot = rs2.RecordCount 'conta i records nel recordset per la paginazione

%>
<table border="0" width="100%">
	<tr>
		<td></td>
		<td align="center">La ricerca ha estratto <%=tot%> inserzioni rispondenti ai criteri inseriti</td>
		<td>Altra ricerca</td>
	</tr>
</table>


<table width='100%' border='1' cellpadding="2" cellspacing="0">
<%
rs2.move numero*(pag-1)

do while not (rs2.EOF or controllo=0)
			
			codice_prodotto=rs2.fields.item("codice").value
			prod=rs2.fields.item("prodotto").value
			desc=rs2.fields.item("descrizione").value
			tipol=rs2.fields.item("tipologia").value
			com=rs2.fields.item("comune").value
			prov=rs2.fields.item("provincia").value
			inf=rs2.fields.item("info2").value
			codice_categoria=rs2.Fields.Item("categoria").Value
			
		SELECT CASE codice_categoria
          CASE "RV"
              nome_categoria = "Residenziale Vendita"
          CASE "RL"
              nome_categoria = "Residenziale Locazione"
          CASE "CV"
              nome_categoria = "Commerciale Vendita"
          CASE "CL"
              nome_categoria = "Commerciale Locazione"
        END SELECT
					
'xxxxxxxxx EVIDENZIAZIONE PAROLE CHIAVE xxxxxxxxxxxxxxxxx
x=0
ArrSearch = Split(parole)
for each Word In ArrSearch
if prod <> "" then
prod=lcase(prod) 
prod=Replace(prod, word, ""&word&"")
end if
x=x+1
next

x=0
ArrSearch = Split(parole)
for each Word In ArrSearch
if desc <> "" then
desc=lcase(desc) 
desc=Replace(desc, word, ""&word&"")
end if
x=x+1
next

x=0
ArrSearch = Split(parole)
for each Word In ArrSearch
if tipol <> "" then 
tipol=lcase(tipol)
tipol=Replace(tipol, word, ""&word&"")
end if
x=x+1
next

x=0
ArrSearch = Split(parole)
for each Word In ArrSearch 
if com <> "" then
com=lcase(com)
com=Replace(com, word, ""&word&"")
end if
x=x+1
next

x=0
ArrSearch = Split(parole)
for each Word In ArrSearch 
if prov <> "" then
prov=lcase(prov)
prov=Replace(prov, word, ""&word&"")
end if
x=x+1
next

x=0
ArrSearch = Split(parole)
for each Word In ArrSearch 
if inf <> "" then
inf=lcase(inf)
inf=Replace(inf, word, ""&word&"")
end if
x=x+1
next

x=0
ArrSearch = Split(parole)
for each Word In ArrSearch 
if nome_categoria <> "" then
nome_categoria=lcase(nome_categoria)
nome_categoria=Replace(nome_categoria, word, ""&word&"")
end if
x=x+1
next

'XXXXXXXXXXXXXX STAMPA A VIDEO XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
			
%>
<tr>
	<td><%=prod %></td> 

	<td><%=desc %></td>
<!--<td><%=tipol %></td> 
	<td><%=com %></td> 
	<td><%=prov %></td>  
	<td><%=inf %></td> //-->
	<td align="left" width="10%" > Visual scheda </td>
     
<%			controllo = controllo - 1
			rs2.Movenext

	loop
	
	%>
</tr></table>



<center><table border="0" width="250">
	<tr>
<%
If ( pag > 1) Then
%>
<td widht="50" align="left">[img]barrow.gif[/img]</td>
<% else %>
<td widht="50"></td>
<% 
end if
%>
<td width="220" align="center">
<%
if tot mod(numero)=0 then
lastpage=int(tot/numero)
else 'deve numerare l'ultima pagina anche se incompleta!
lastpage=int(tot/numero)+1
end if
for c=1 to lastpage
%>
<%=c%>
<%
next
%></td><%
If not rs2.eof Then
%>
		</td><td widht="50" align="right">[img]arrow.gif[/img]</td>
<% else %> <td widht="50"></td>
<% end if %>
</tr>
</table>
</center>



<div id="piedepagina">Pag. <%=pag%> di <%=lastpage%></div>
<%

'rs.close
'rs=nothing

rs2.close
set rs2=nothing

end if

'chiudo tutto
call close_connection ()

%>

</body>
</html>

un po' più impegnativo, ma è discretamente commentato, non ti sarà difficile: connessione, nome database e relativi tabelle/campi, paginazione (le due immagini nella funzione di paginazione sono due freccette, puoi sostituirle...)

**teorema55** · 13-06-2004, 17:14

Occhio anche ai file di inclusione. L'unica cosa che ti impegnerà un po' (a meno di sopprimerla ma non mi pare il caso, vedi tu...): vedrai che lo script è fatto in modo da evidenziare in grassetto le parole chiave, e da ordinare i record trovati in base al numero di parole chiave che contengono. In che modo si ottiene ciò? Aggiungendo al database un campo (campo10 in questo caso) che viene aggiornato in modo dinamico durante la ricerca, tenendo traccia del numero di parole chiave nel record.

Questo si è reso necessario perchè ho scelto (opportunità commerciale....) di legare le varia parole chiave con la clausola "OR" anzichè "AND". In questo modo, inserendo più parole chiave, il numero dei risultati aumenta anzichè restringersi, con la conseguente necessità di recuperare per primi i records con più parole chiave. Su un piccolo database, usare la clausola "AND" rischia di non fare mai trovare risultati.

Dal punto di vista logico invece, sarebbe giusto usare la clausola "AND" anzichè "OR" (sempre a mio avviso)

Quando avrai testato lo script, se ti sembrerà buono, deciderai tu come implementarlo nel tuo sito.........

Discussione: motore di ricerca interno al sito

Strumenti discussione

Ricerca discussione

Visualizza

motore di ricerca interno al sito

Permessi di invio