Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Estevao GN

Sistema de Pesquisa google

Por , em ASP Clássico

Recommended Posts

Estevao GN    0

Estevao GN
Postado

Olá pessoal,

é o seguinte estou querendo fazer um sistema de busca no meu site...ouvi falar do google para pesquisa, gostaria de mais informações de como usar.. se existe uma forma de eu gerar um XML para q o google busque no XML...

 

Se alguem puder me ajudar....agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

da uma procurada no forum que existe um código assim até mesmo deixando a "palavra" pesquisada em outra cor, e existe tb uma api.google.com, e abaixo um outro exemplo,do Google que permite acesso ao seu motor de pesquisa e para obter os arquivos XML com os resultados da pesquisa. No script abaixo esta opção é usada para acessar o arquivo XML e extrair dele a informação ,e irá exibir em nossa página (o caminho URL, títulos e trechos).

 

Este serviço do Google é para uso pessoal e você deve abrir uma conta do Google para poder utilizar este serviço. Eles irão fornecer a você uma chave que você deve incluir no script.

Googlesearch.asp

 

CÓDIGO
<html><head><title> Search</title></head> 
<body bgcolor=ffffff> 
<% 
if request.querystring="" then  
sendform() 
else 
sendform() 

' 'Você deve pedir ao Google a key 
key = "00000000000000000000000000000000000"  

'O URL onde o script está localizado
URL = "http://www.seudomínio/seuscript.asp"  


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/encoding/'><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:doGoogleSearch></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>","<br>") 

EstimatedResults=left(ResponsePage,inStr(ResponsePage,"</estimatedTotalResultsCount>")-1) 
EstimatedResults=right(EstimatedResults,len (EstimatedResults)-inStr(EstimatedResults,"<estimatedTotalResultsCount")-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(namearray(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") %>> 
Encontrar palavras-chave <input type=text name=keywords size=15> 
<input type=hidden name=h value=0> <input type=submit value="Google Search"> 
</form> 

<% end sub%> 
</body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito