+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Motore di ricerca interno con google

  1. #1
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    Ho sentito dire che si può fare...che cerca solo all'interno del mio sito..restituendo solo valori del mio sito..impaginati con la mia grafica,ecc.ecc.

    con questo mi cerca in tutta la rete:

    <%
    if request.querystring="" then
    sendform()
    else
    sendform()

    ' You must ask Google for a key
    key = "pippo"

    ' The URL where the script is located
    URL = "http://www.miosito.it/"


    SoapText = "<?xml version='1.0' encoding='UTF-8'?><SOAP-ENV:Envelope xmlns:SOAP-ENV='http://schemas.xmlsoap.org/soap/envelope/' xmlns:xsi='http://www.w3.org/1999/XMLSchema-instance' xmlns:xsd='http://www.w3.org/1999/XMLSchema'><SOAP-ENV :Body><ns1:doGoogleSearch xmlns:ns1='urn:GoogleSearch' SOAP-ENV:encodingStyle='http://schemas.xmlsoap.org/soap/enco ding/'><key xsi:type='xsd:string'>" & key &"</key><q xsi:type='xsd:string'>" & request.querystring("keywords") & "</q><start xsi:type='xsd:int'>" & request.querystring("h") & "</start><maxResults xsi:type='xsd:int'>10</maxResults><filter xsi:type='xsd:boolean'>true</filter><restrict xsi:type='xsd:string'></restrict><safeSearch xsi:type='xsd:boolean'>false</safeSearch><lr xsi:type='xsd:string'></lr> <ie xsi:type='xsd:string'>latin1</ie><oe xsi:type='xsd:string'>latin1</oe></ns1:doGoogleS earch></SOAP-ENV:Body></SOAP-ENV:Envelope>"


    Googleurl = "http://api.google.com/search/beta2"

    Set objXML = CreateObject("Microsoft.XMLHTTP")
    objXML.open "POST",Googleurl,"False"
    objXML.setRequestHeader "Man", "POST"+" "+Googleurl+" HTTP/1.1"
    objXML.setRequestHeader "MessageType", "CALL"
    objXML.setRequestHeader "Content-Type", "text/xml"
    objXML.send SoapText

    ResponsePage = objXML.responseText
    Set objXML = Nothing

    ResponsePage=Replace(ResponsePage," xsi:type=" & CHR(34) & "xsd:string" & CHR(34),"")
    ResponsePage=Replace(ResponsePage,"<b>","")
    ResponsePage=Replace(ResponsePage,"</b>","")
    ResponsePage=Replace(ResponsePage,"<br>","&l t;br>")

    EstimatedResults=left(ResponsePage,inStr
    (ResponsePage,"</estimatedTotalResultsCount>")-1)
    EstimatedResults=right(EstimatedResults,
    len (EstimatedResults)-inStr(EstimatedResults,"<estimatedTota lResultsCount")-46)
    Response.write ("Estimated results for <b>" & q & "</b>: " & EstimatedResults & "<A href=" & request.servervariables("URL") & "?keywords=" & request.querystring("keywords") & "&h=" & request.querystring("h")+10 & "><font size=2>next 10</font></a><HR>")

    public namearray
    namearray=split (ResponsePage,"<item xsi:type=" & CHR(34) & "ns1:ResultElement" & CHR(34) & ">")
    max=ubound(namearray)-1

    for i=1 to max

    theurl=left(namearray(i),inStr(namearray
    (i),"</URL>")-1)
    theurl=right(theurl,len (theurl)-instr(theurl,"<URL>")-4)

    thetitle=left(namearray(i),inStr(namearr
    ay(i),"</title>")-1)
    thetitle=right(thetitle,len (thetitle)-inStr(thetitle,"<title>")-6)
    if thetitle="" then
    thetitle="No Title"
    end if

    AA=inStr(namearray(i),"</snippet>")-1
    thedescription=left(namearray(i),AA)
    thedescription=right(thedescription,len (thedescription)-inStr(thedescription,"<snippet>")-8)

    Searchresults=Searchresults & "<p><a href=" & theurl & ">" & thetitle & "</a><br>" & thedescription & "<br><font size=2>" & theurl & "</font>"

    next


    Response.write(Searchresults)


    end if
    %>
    <% Sub SendForm() %>

    <form method=get action=<% =request.servervariables("URL") %>>
    Find Keywords <input type=text name=keywords size=15>
    <input type=hidden name=h value=0> <input type=submit value="Google Search">
    </form>

    <% end sub%>

    per cercare solo nel mio sito mi hanno detto che basta aggiungere davanti alla query il suffisso site:miosito.it

    ma francamente non ci ho capito un cavolo!

  2. #2
    Post
    4,740
    Blogs
    12
    Ciao delfinista,
    Sono andato a fondo a questo argomento:

    Google fornisce delle API che permettono all'utente finale di usufruire nei propri progetti (pagine web, software o altro ancora) delle ricerche, sfruttando le tecnologie Google e di conseguenza interrogando i propri database.

    Per fare cio', il servizio si basa su di un file .XSL (extensible style language) che deve essere modificato a piacere per soddisfare i nostri criteri di ricerca, leggi qui: Google API's Reference.

    Questo file a sua volta verra' inviato tramite il protocollo SOAP a Google, verra' elaborato ed infine restituira' gli eventuali risultati della ricerca.

    Ovviamente, per attivare cio' devi avere attivo un account su Google e avere richiesto la chiave per attivare il servizio:

    codice:
    <%
    'You must ask Google for a key
    key = ""
    'The URL where the script is located 
    URL = ""
    %>
    Tutto qui,
    Non so chi ti abbia fornito quel codice, ma non so se sia possibile usufruire di una chiave in comune (ovvero piu' utenti che utilizzano la stessa chiave per sbloccare il servizio).

    A presto,
    Giuseppe Leone

+ Rispondi al Thread

Discussioni simili

  1. Errore nelll'utilizzo di FINDNEXT
    Da Cis nel forum Visual Basic 6
    Risposte: 4
    Ultimo Post: 19-08-2006, 09:22
  2. Motore di ricerca interno e asp/asp.net
    Da net-addiction nel forum ASP 3.0, ASP .Net
    Risposte: 0
    Ultimo Post: 13-07-2005, 09:46
  3. ricerca con parametri
    Da Wizard nel forum Microsoft Office, Access, VBA
    Risposte: 6
    Ultimo Post: 24-09-2004, 10:36

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi