sapare cosa cerca chi entra nella pagina di ricerca

[simona72]

domada da un milione di dollari... sarebbe possibile sapere quali parole gli utenti digitano nel box del motore di ricerca? quindi sapere che ingrediente o ricetta cercano?

la pagina di ricerca e' in htm metre quella dei risultati in asp...
il box di ricerca e' qui
http://www.cucinareconamore.it/home.htm
la pagina furori dal frame e' questa
http://www.cucinareconamore.it/cerca.htm


grazie e tutti

[nillio]

O non ho capito cosa vuoi, o la tua domanda è tale per cui solo tu sai la risposta: in un sito di cucina, sarà dura che la gente cerchi cose come 'biella' o 'Manzoni' ... lo sai te cosa vuoi che la gente trovi, no?

[karbu]

Penso ti basti aggiungere uno script che registri ogni volta le parole inoltrate dal form di ricerca, oltre ad effettuare la ricerca vera e propria.

[nillio]

Tu non vuoi sapere che key ti conviene inserire, vuoi sapere che key usa la gente

[Marcolino's]

Quindi uno sniffer è sufficiente, in pratica devi monitorare le parole usate dal cliente nel motore di ricerca per ogni ricerca andata a buon fine.
Una cosa che si fa normalmente

PS: nillio: rimedi naturali [avatar] ?

[karbu]

Originariamente inviato da nillio


Tu non vuoi sapere che key ti conviene inserire, vuoi sapere che key usa la gente

eh?

[simona72]

io voglio semplicemente sapere che ricette o ingredienti vengono cercati di modo che se non ci sono ancora le inserisco...

[karbu]

Originariamente inviato da Marcolino's
in pratica devi monitorare le parole usate dal cliente nel motore di ricerca per ogni ricerca andata a buon fine.
Una cosa che si fa normalmente

Mi sembra la giusta risposta
Come si fa? Bè, credo dovresti postare nel forum Asp

[weppos]

Originariamente inviato da simona72
io voglio semplicemente sapere che ricette o ingredienti vengono cercati di modo che se non ci sono ancora le inserisco...

Come funzica il tuo motore di ricerca?
Asp, php, js... ?

[simona72]

allora, la pagina di ricerca e' htm, la pagina che visualizza i risultati e' asp
http://www.cucinareconamore.it/cerca.htm
http://www.cucinareconamore.it/motore/richieste.asp

mi hanno dato un codice da inserire nella pagina ma non va...

allora questa e' la mia pagina risultati.asp


<%
'Inserire all'inizio della pagina asp
Dim tempoi, tempof, tempop

tempoi = Timer
%>

<%

Dim prechiave

Dim tipo

prechiave=request.querystring("form_chiave")

tipo=request.querystring("tipo")
if tipo="tutte" then

change="%'and descrizione like'%"

chiave=Replace(prechiave," ", change)
else

chiave=prechiave

end if


Dim iPageSize 'Numero di record da visualizzare

Dim iPageCount 'Numero di pagine totali che otteniamo dalla query

Dim iPageCurrent 'Pagina corrente

Dim strOrderBy 'Parametro in base a cui definire l'ordinamento

Dim strSQL 'Comando da eseguire

Dim RS 'Il solito amico Recordset

Dim iRecordsShown 'Variabile usata per definire i record mostrati

Dim miastringa 'Variabile utilizzata per la visualizzazione dei risultati

Dim nuovastringa 'Variabile utilizzata per la visualizzazione dei risultati

' Imposto il numero di record visualizzati

iPageSize = 8

If Request.QueryString("page") = "" Then

iPageCurrent = 1

Else

iPageCurrent = CInt(Request.QueryString("page"))

End If

If Request.QueryString("order") = "" Then

strOrderBy = "id"

Else

strOrderBy = Request.QueryString("order")

End If

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/cerca.mdb")

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

sql = "SELECT * FROM cerca where descrizione like '%"&chiave&"%' ORDER BY " & strOrderBy & " DESC;"



RS.Open sql, conn, adOpenKeyset

RS.PageSize = iPageSize

RS.CacheSize = iPageSize

iPageCount = RS.PageCount
Dim totale
totale = rs.recordcount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount

If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then

response.redirect("search_again.htm")

Else

RS.AbsolutePage = iPageCurrent
%>
<p align=“center”>Home <font color="cc0000"></font>
Nuova ricerca <font color="cc0000">

La ricerca ha prodotto <% = totale %> risultati</font></p>
<%

iRecordsShown = 0

Do While iRecordsShown < iPageSize And Not RS.EOF

%>


"><%= rs("percorso")%>

<font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%

miastringa = RS("descrizione")

nuovastringa = Mid( miastringa, 1, 200)

response.write(nuovastringa)&"..."

%></font></p>
<%

iRecordsShown = iRecordsShown + 1

RS.MoveNext

Loop

End If
RS.Close

Set RS = Nothing

Conn.Close

Set Conn= Nothing

%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">Pagina <%= iPageCurrent%> di <%= iPageCount%></font>
<%

If iPageCurrent <> 1 Then

%>

indietro

<% end if %>

<%If iPageCurrent < iPageCount Then

%>

avanti >



</p>

<% end if %>

<%
'Da inserire alla fine della pagina

tempof = Timer

'tempop non è altro che la differenza dei due tempi

tempop = tempof - tempoi

'Arrotondamento, si può anche non fare...

tempop = Round(tempop, 4)

Response.Write "Pagina creata in " & tempop & " sec."
%>



mi e' stato detto:

1) Inserisci all'inizio (proprio in cima al tuo file risultati.asp questo listato:

Quote:
--------------------------------------------------------------------------------
<%
strRichiesta = request.querystring("form_chiave")
If strRichiesta <> "" Then

Set cn=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/richieste.mdb")
cn.Open openStr

sql = "SELECT * FROM archivio WHERE richiesta='" & strRichiesta & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

If rs.EOF or rs.BOF Then
rs.AddNew
rs("richiesta") = strRichiesta
rs("numero") = 1
else
rs("numero") = rs("numero") + 1
End If
rs.close
set rs = nothing
cn = close
set cn = nothing
End If
%>

--------------------------------------------------------------------------------


2) Inserisci in una cartella qualsiasi del tuo sito il file richieste.asp (che ti posto integralmente qui sotto) che richiamerai ogni volta che vuoi vedere l'elenco delle richieste fatte

Quote:
--------------------------------------------------------------------------------
<%
Set cn=Server.CreateObject("ADODB.Connection")
OpenStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("/mdb-database/richieste.mdb")
cn.Open openStr

sql = "SELECT * FROM archivio ORDER BY numero desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn
%>
<html>

<body>

<p align="center"><font face="Verdana" size="2">ELENCO RICHIESTE</font></p>
<%
If Not (rs.eof Or rs.bof) Then
Do while not rs.EOF
%>
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td width="50%"><font face="Verdana" size="2"><%=rs("richiesta")%> (<%=rs("numero")%>)</font></td>
</tr>
</table>
<%
rs.MoveNext
Loop
End If
rs.close
set rs = nothing
cn = close
set cn = nothing
%>
</body>

--------------------------------------------------------------------------------


3) Scarica da QUI il db richieste.mdb (lo trovi in formati zip da scompattare) e inseriscilo nella cartella mdb-database


ho seguito le iscrtuzioni, ma la pagina non andava...cosi mi e state data questa modifica...

strRichiesta = request.querystring("form_chiave") con strRichiesta = request.form("form_chiave")

ma ancora non va