Motore di ricerca interno con Google

[wegawhite]

Ciao; ho il tuo stesso problema che hai aperto in questa discussione, come hai risolto?

[michele.santoro]

Forse questo può andare?

<%
<%
'Imposto la URL del mio sito
Dim MyURL
MyURL = "www.qui_inserisci_il_nome_del_tuo_sito.it"

'Recupero i dati dal Form 
Dim MyQuery
MyQuery = Request.Form("q")

Dim MyAction
MyAction = Request.Form("a")

'Se action è search lancio il redirect a Google
'aggiungendo le mie preferenze e la query dell'utente
If MyAction = "search" then

response.redirect "http://www.google.it/search?as_sitesearch=" & MyURL & "&as_q=" & MyQuery
response.end

'Qualora action sia diverso da search mostro il form
else
%>

<form method="POST" action="cerca_su_google.asp">
<input type="hidden" name="a" value="search">
<input type="text" name="q">
<input type="submit" value="Cerca">
</form>

<%
end if
%>

Il file va chiamato "cerca_su_google.asp" come si deduce anche dallo script stesso.

Non è mio l'ho trovato su internet diversi mesi fa.

Spero possa esservi d'aiuto.

[viki1967]

Michele, ma questo script che hai postato, cerca all'interno di google (tutto il mondo e di più) o all'interno delle pagine del tuo sito (solo il tuo mondo)?

[michele.santoro]

Ciao viki1967 è un piacere risentirti

Lo script cerca e trova solo all'interno del proprio sito, almeno credo. L'ho provato solo pochi secondi dato che lo avevo scaricato per fare un modulo di ricerca veloce in un sito, ma poi ho preferito fare un "motore di ricerca" con un database.