10/01/2005, 05:24
|
| |
| Y como me aprovecho del robot de busqueda de google
Pues igual de fácil que el anterior:
Código:
<%
if request("traducir") = "yes" then
set http_obj = createObject("Microsoft.XMLHTTP")
cadena2 = "http://www.google.es/search?num=100&hl=es&q="&request("palabra")
http_obj.Open "GET",cadena2,false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
codigo = replace(codigo,"<","<")
codigo = replace(codigo,">",">")
codigo = replace(codigo,"<a","<a target=""new""")
pos = instr(codigo,"class=g")
codigo = mid(codigo,pos-3,len(codigo))
pos = instr(codigo,"clear=all")
codigo = mid(codigo,1,pos)
codigo = replace(codigo,"/search?","google.asp?")
codigo = "<table><tr><td>" & codigo
end if
%>
<html>
<head>
<style>
<!--
body,td,div,.p,a{font-family:verdana }
div,td{color:#000}
.f,.fl:link{color:#6f6f6f}
a:link,.w,a.w:link,.w a:link{color:#800000;text-decoration:none;}
a:visited,.fl:visited{color:#551a8b}
a:active,.fl:active{color:#f00}
.t a:link,.t a:active,.t a:visited,.t{color:#000}
.t{background-color:#e5ecf9}
.k{background-color:#36c}
.j{width:34em}
.h{color:#36c}
.i,.i:link{color:#a90a08}
.a,.a:link{color:#008000}
.z{display:none}
div.n {margin-top: 1ex}
.n a{font-size:10pt; color:#000}
.n .i{font-size:10pt; font-weight:bold}
.q a:visited,.q a:link,.q a:active,.q {color: #00c; }
.b{font-size: 12pt; color:#00c; font-weight:bold}
.ch{cursor:pointer;cursor:hand}
.e{margin-top: .75em; margin-bottom: .75em}
.g{margin-top: 1em; margin-bottom: 1em}
//-->
</style>
</head>
<body>
<form action="google.asp" method="get">
<input type="text" name="palabra" size="50"value="<%=request("palabra")%>"><br>
<input type="hidden" name="traducir" value="yes">
<input type="submit"><br>
</form>
<%=codigo%>
</body>
</html>
Guardamos el código como google.asp luego si queremos cambiar un poco el estilo de la web para que no se parezca en nada al google lo hacemos editando el <style>.
La única dificultad que se me plantea es la paginación que hace google, pero eso ya os lo dejo a vosotros, aunque si tengo un hueco luego lo posteo.
chao Nota: Editado por Al Zuwaga para colocar el código entre etiquetas CODE en vez de QUOTE debido a que desforma las tablas
Última edición por AlZuwaga; 25/01/2005 a las 10:54 |