[Resolvido] Traduza Qualquer Página

[xanburzum 169]

traduza qualquer página do site, usando o serviço de tradução do AltaVista, com apenas um arquivo, e duas linhas de código que você gostaria de traduzir. Utiliza XML

 

<! - coloque esta apliação em cada página que você quer traduzir -> 
<! - Mudar a ação para atender a url a página está em ->
<form name="trans" method="post" action="translate.asp?page=thisfilename.asp">

<center><font face="arial" size="1"><select name=langto style="size: 1pt;border-width: 0" onchange=document.trans.submit()><option value="en">Traduza</option><option value="zh">Chinese</option><option value="de">German</option><option value="es">Spanish</option><option value="fr">French</option><option value="it">Italian</option><option value="pt">Portuguese</option><option value="ja">Japanese</option><option value="ko">Korean</option></select></form></font></center>
<!-- end snippet code -->

<!-- colocar esse código no arquivo nomeado 'translate.asp'>
<% 
  ' URL da querystring:
  Dim page,langto,objXMLHTTP,xml,text,url,back

  page=Request.QueryString("page")
  langto=Request.Form("langto")

url = "http://babelfish.altavista.com/babelfish/urltrurl?tt=url&url="&page&"&lp=en_"&langto&""
 
	 Set xml = Server.CreateObject ("Microsoft.XMLHTTP")
	 xml.Open "GET", url, false
	 xml.Send
	 text = xml.ResponseText
	 Response.write(text)

if langto = "zh" then
back = "原文"
end if
if langto = "fr" then
back = "Página Original"
end if
if langto = "de" then
back = "Original site"
end if
if langto = "it" then
back = "Página Original"
end if
if langto = "ja" then
back = "元のページ"
end if
if langto = "ko" then
back = "원래 페이지"
end if
if langto = "pt" then
back = "Página Original"
end if
if langto = "es" then
back = "Página Original"
end if

	 Response.Write("<center><font size='1' face='verdana'><a href='"&page&"'>"&back&"<br>Página Original</a></font></center>")
	 Set xml = Nothing
%> 
<!-- end translate.asp -->