Tradutor online Babylon

[xanburzum 169]

utilizar o tradutor on-line Babylon em página web

 

<% Response.Charset="ISO-8859-1" %>
<%
Function BinaryToString(strBinary)
Dim intCount, xBinaryToString
xBinaryToString =""
For intCount = 1 to LenB(strBinary)
xBinaryToString = xBinaryToString & chr(AscB(MidB(strBinary,intCount,1)))
Next
BinaryToString = xBinaryToString
End Function 

function get(p,para)
  if Not (p = "") then
	Set XMLHttp = Server.CreateObject("MSXML2.XMLHTTP")
	XMLHttp.open "GET","http://online.babylon.com/cgi-bin/trans.cgi?layout=uol.txt〈="¶&"&word="&p&"", false
	XMLHttp.send()
	get = BinaryToString(XMLHttp.responseBody)  'ResponseText

	get1 = split(get,chr(10))
	for i = 5 to UBound(get1)
	    get1(i) = replace(get1(i),"  ","")
	    	    get1(i) = replace(get1(i),"""","'")
	    
	    if i = 5 then get1(i) = "<b>"&get1(i)&"</b>"
	    
		if instr(get1(i),"<a href=") >  0 then
		   exit for
		end if  
		if get1(i) <> "" then
 	 	 ba = ba & replace(get1(i),"COLOR='#000000'", "style='border: dashed 1px #dddddd;'")& "<br>"
        end if
	next
	response.write "<div class=resultado>"&ba&"</div>"
  end if
end function
%>
<% Call get( request.QueryString("traducao"),request.QueryString("para")) %>

[desisto 0]

nao acho legal esse codigo

 

basta colocar o campo que o Babylon fornece e nao usar dessa forma

[xanburzum 169]

este é um exemplo, você pode modificar o code, otimizar e postar novamente...