Às vezes, queremos fornecer suporte multilíngue para nossas páginas da web. É muito problemático usar uma página da web para um idioma. Felizmente, o Google fornece uma função de ferramenta de idioma. .
Autor: Taote.com
Fonte: http://www.tot.name
Nota: Indique a fonte para reimpressão
lan.htm
<form>
<selecione nome="lan">
<option value="en|de">Inglês para Alemão</option>
<option value="en|es">Inglês para espanhol</option>
<option value="en|fr">Inglês para Francês</option>
<option value="en|it">Inglês para Italiano</option>
<option value="en|pt">Inglês para Português</option>
<option value="en|ja">BETA de inglês para japonês</option>
<option value="en|ko">BETA de inglês para coreano</option>
<option value="en|zh-CN" >Inglês traduzido para chinês (simplificado) BETA</option>
<option value="de|en">Tradução de alemão para inglês</option>
<option value="de|fr">Tradução de alemão para francês</option>
<option value="es|en">Espanhol para Inglês</option>
<option value="fr|en">Francês para Inglês</option>
<option value="fr|de">Francês para Alemão</option>
<option value="it|en">Italiano para Inglês</option>
<option value="pt|en">Português para Inglês</option>
<option value="ja|en">Japonês para inglês BETA</option>
<option value="ko|en">Coreano para Inglês BETA</option>
<option value="zh-CN|en">Chinês (simplificado) traduzido para inglês BETA</option>
<input style="FONT-SIZE: 12px" type="button" value="Go->" name="Button1" onClick="javascript:window.open('translate.asp?urls='+document.location+ '&lan='+lan.value,'_self','')">
</selecionar>
</form>
O conteúdo em lan.htm é usado para selecionar o idioma a ser traduzido, incluindo o idioma original e o idioma a ser traduzido. Precisamos apenas copiar o conteúdo de lan.htm para a página que fornece tradução multilíngue.
traduzir.asp
<html>
<cabeça>
<title>Tradução on-line</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<corpo>
<%
'em caso de erro, retome o próximo
'Se a velocidade da Internet for muito lenta, você poderá ajustar o próximo tempo. Unidade segundo
Servidor.ScriptTimeout = 999999
'================================================ ========
'Função de codificação de caracteres
'================================================ ========
Função BytesToBstr(corpo,código)
escurecer objstream
definir objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Modo =3
objstream.Open
objstream.Escrever corpo
objstream.Posição = 0
objstream.Type = 2
objstream.Charset = código
BytesToBstr = objstream.ReadText
objstream.Fechar
definir objstream = nada
End Function
'Obtém a posição de ocorrência de uma string de linha em outra string
Função Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
se Newstring<=0 então Newstring=Len(wstr)
Função final
'Substituir função string
função SubstituirStr(ori,str1,str2)
SubstituirStr=substituir(ori,str1,str2)
função final
'================================================ = ====
função ReadXml(url,código,início,fim)
definir oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,falso)
oEnviar.send()
ReadXml=BytesToBstr(oSend.responseBody,código)
if(início="" ou fim="") então
outro
start=Newstring(ReadXml,iniciar)
ReadXml=meio(ReadXml,início)
ends=Newstring(ReadXml,termina)
ReadXml = esquerda (ReadXml, termina-1)
terminar se
função final
escurecer urlpage,lan
urlpage=request("urls")
lan=solicitação("lan")
%>
<form método="post" action="translate.asp">
<input type="text" name="urls" size="150" value="<%=urlpage%>">
<input type="hidden" name="lan" value="<%=lan%>">
<input type="submit" value="submit">
</form>
<%
escurecer transURL
transURL=" http://216.239.39.104/translate_c?hl=zh-CN&ie=UTF-8&oe=UTF-8&langpair="&server.URLEncode(lan)&"&u="&urlpage&"&prev=/language_tools "
if(len(urlpage)>3) então
getcont=ReadXml(transURL,"gb2312","","")
resposta.Write(getcont)
terminar se
%>
</body>
</html>
translate.asp implementa a função de tradução, que é implementada usando as ferramentas de linguagem do Google.
Observe que, como é fornecido suporte multilíngue, a codificação usada no arquivo translate.asp é "utf-8", que suporta todos os caracteres.