referer

[moribura]

Ciao a tutti,

avrei bisogno di fre la seguente cosa ma non so come.
Io mi recupoero l'indirizzo di provenienza del visitatore, ma se quest'ultimo proviene da google, mi ritrovo una stringa a volte enorme...

E' possibile intercettare le parole chiave cercate dal visitatore:
esempio:

Referer:
http://www.google.com/search?sourcei...=prova+ricerca

Risultato che vorrei ottenere:
Prova ricerca ovvero solo ple parole chiave ricercate dall'utente?

Grazie

[OcchioCrepato]

ecco

'refer
ref="http://www.google.com/search?sourceid=navclient&hl=it&ie=UTF-8&rlz=1T4GGLJ_itIT212IT212&q=prova+ricerca"
'cerco la var q=
ref=mid(ref,InStr (1,ref,"q=")+2)
'Elimino eventuale stringhe dopo le keywords
ref=mid(ref,1,InStr (1,ref,"&")-1)
'creo array e stampo keyword
arrKeyword=split(ref,"+")
for i=0 to ubound(arrKeyword)
	Response.Write arrKeyword(i) & "
"
next

[moribura]

grazie mille...

funziona anche con gli altri motori c he non sono google?

grazie mille ancora

[OcchioCrepato]

Dovresti vedere la stringa di refer che arriva dagli altri motori come è composta e verificare dopo quale parametro si trovano le parole ricercate. Per google si trovano dopo q=
ref=mid(ref,InStr (1,ref,"q=")+2) e sono separate da il segno +.

Per gli altri motori non saprei.
Però se riesci ad identificare tutte le stringhe di ricerca si può provare a parametrizzare la funzione.

ciao

[moribura]

Grazie..

quindi in teroria

Altavista:
http://it.altavista.com/web/results?...va&kgs=1&kls=0
Per altavista non sussistono problemi giusto?, Anche lui usa q=

Yahoo
http://it.search.yahoo.com/search?p=...F-8&meta=vl%3D
Per quanto riguarda yahoo, basta cercare la p= invece di q=

Come posso aggiungere la ricerca della P invece che della q?

Grazie mille.

Scusami ma asp non lo conosco molto bene..

[OcchioCrepato]

prova questo codice
sicuramente si può fare di meglio

function ChiaviRicerca (ref)
	Keywords=""
	if InStr (1,ref,"google")>0 or InStr (1,ref,"altavista")>0 or InStr (1,ref,"search.msn") then
		'Controllo per google, altavista e search.msn
		'cerco la var q=
		ref=mid(ref,InStr (1,ref,"q=")+2)
	elseif InStr (1,ref,"yahoo")>0 then
		'Controllo per yahoo
		'cerco la var p=
		ref=mid(ref,InStr (1,ref,"p=")+2)
	end if
	'Elimino eventuale stringhe dopo le keywords
	if InStr (1,ref,"&")>0 then
		ref=Mid (ref,1,InStr (1,ref,"&")-1)
	end if
	'creo array e stampo keyword
	arrKeyword=split(ref,"+")
	for i=0 to ubound(arrKeyword)
		Keywords=Keywords &  arrKeyword(i) & "
"
	next
	ChiaviRicerca=Keywords
end function
		
'richiamo la funzione passando il refer
		ref="http://www.google.com/search?sourceid=navclient&hl=it&ie=UTF-8&rlz=1T4GGLJ_itIT212IT212&q=prova+ricerca"
ret=ChiaviRicerca (ref)
Response.Write ret & "
"
		
ref="http://it.altavista.com/web/results?itag=ody&q=prova&kgs=1&kls=0"
ret=ChiaviRicerca (ref)
Response.Write ret & "
"
		ref="http://it.search.yahoo.com/search?p=prova&fr=yfp-t-501&ei=UTF-8&meta=vl%3D"
ret=ChiaviRicerca (ref)
Response.Write ret & "
"
		
ref="http://search.msn.it/results.aspx?q=PROVA&FORM=MSNH"
ret=ChiaviRicerca (ref)
Response.Write ret & "
"

[moribura]

Mah..grazie mille..

nel ref devo passare p o q a seconda del motore da controllare giusto?...Almeno mi sembra di aver capito ...

Ciao grazie mille

[OcchioCrepato]

Non nel ref passi direttamente la stringa di refer che leggerai da request.serverVariables("HTTP_REFERER")


in pratica fai in questo modo

ref=request.serverVariables("HTTP_REFERER")
ret=ChiaviRicerca (ref)
Response.Write ret & "
"

aggiunto anche il controllo se il refer non arriva da un motore di ricerca conosciuto

function ChiaviRicerca (ref)
	Keywords=""
	bfound=false
	if InStr (1,ref,"google")>0 or InStr (1,ref,"altavista")>0 or InStr (1,ref,"search.msn") then
		'Controllo per google, altavista e search.msn
		'cerco la var q=
		ref=mid(ref,InStr (1,ref,"q=")+2)
		bfound=true
	elseif InStr (1,ref,"yahoo")>0 then
		'Controllo per yahoo
		'cerco la var p=
		ref=mid(ref,InStr (1,ref,"p=")+2)
		bfound=true
	end if
	if bfound then
		'Elimino eventuale stringhe dopo le keywords
		if InStr (1,ref,"&")>0 then
			ref=Mid (ref,1,InStr (1,ref,"&")-1)
		end if
		'creo array e stampo keyword
		arrKeyword=split(ref,"+")
		for i=0 to ubound(arrKeyword)
			Keywords=Keywords &  arrKeyword(i) & "
"
		next
	end if
	ChiaviRicerca=Keywords
end function

[moribura]

grazie, l'ho provato ma non mi funzeca..

non mi da nessun errore, semplicemente non stampa nulla..

[OcchioCrepato]

Qual è la stringa di refer che passi alla funzione?

ref=request.serverVariables("HTTP_REFERER")
response.write ref & "
"
ret=ChiaviRicerca (ref)
Response.Write ret & "
"