Ver Mensaje Individual
  #44 (permalink)  
Antiguo 10/01/2005, 04:51
perrogrun
Invitado
 
Mensajes: n/a
Puntos:
Como hacer un traductor que funciona aprovechándonos del Microsoft.XMLHTTP

Pues muy fácil, esto es un caso práctico de cómo podemos aprovechar el xmlhttp.

Código:
<% 
if request("traducir") = "yes" then
set http_obj = createObject("Microsoft.XMLHTTP")
cadena2 = "http://babelfish.altavista.com/babelfish/tr?doit=done&intl=1&tt=urltext&urltext="&request("palabra")&"&lp=es_en" 
http_obj.Open "GET",cadena2,false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
pos = instr(codigo, "10px;&gt;")
codigo = mid(codigo,pos+9,len(codigo))
pos2 = instr(codigo ,"&")
codigo = mid(codigo,1,pos2-1)
end if
%>
<form action="babel.asp" method="get">
<textarea name="palabra" cols="40" rows="10"><%=request("palabra")%></textarea><br>
<input type="hidden" name="traducir" value="yes">
<input type="submit"><br>
</form>
<%=codigo%>
Copiamos el código en un página asp que se llame babel.asp.

¿Cómo funciona?
Pues muy fácil, enviamos la palabra que queremos traducir a nuestra própia página, ésta lo que hace es ver el código fuente de la página de babelfish con nuestra frase ya traducida, busca dónde se encuentra la traducción y listo, la metemos en la variable "codigo" y la mostramos.

Es una pequeña demostración del poder que tiene el objeto Microsoft.XMLHTTP


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:52