Nossa página da web oferece suporte a vários idiomas. Seria muito problemático usar uma página da web para um idioma. Felizmente, o Google oferece uma função de ferramenta de idioma.
lan.htm
<formulário>
<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>Inglês traduzido para japonês BETA</option>
<option value=en|ko>Inglês traduzido para coreano BETA</option>
<option value=en|zh-CN >Inglês traduzido para chinês (simplificado) BETA</option>
<option value=de|en>Alemão para Inglês</option>
<option value=de|fr>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,' _eu','')>
</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;
</head>
<corpo>
<%
'em caso de erro retome o próximo
'Se a velocidade da Internet for muito lenta, você pode 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
Função final
'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=solicitação(urls)
lan=solicitação(lan)
%>
<método de formulário=post action=translate.asp>
<tipo de entrada=nome do texto=tamanho do URL=150 valor=<%=urlpage%>>
<tipo de entrada=nome oculto=valor lan=<%=lan%>>
<tipo de entrada=enviar valor=enviar>
</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=/linguagem_tools
if(len(urlpage)>3) então
getcont=ReadXml(transURL,gb2312,,)
resposta.Write(getcont)
terminar se
%>
</body>
</html>