A veces queremos brindar soporte en varios idiomas para nuestras páginas web. Es demasiado problemático usar una página web para un idioma. Afortunadamente, Google proporciona una función de herramienta de idioma. A continuación se explica cómo usarla para convertir páginas web entre varios idiomas. .
Autor: Taote.com
Fuente: http://www.tot.name
Nota: indique la fuente para la reimpresión
lan.htm
<formulario>
<seleccione nombre="lan">
<option value="en|de">Inglés a alemán</option>
<option value="en|es">Inglés a español</option>
<option value="en|fr">Inglés a francés</option>
<option value="en|it">Inglés a italiano</option>
<option value="en|pt">Inglés a portugués</option>
<option value="en|ja">Inglés a japonés BETA</option>
<option value="en|ko">Inglés a coreano BETA</option>
<option value="en|zh-CN" >Inglés traducido al chino (simplificado) BETA</option>
<option value="de|en">Traducción del alemán al inglés</option>
<option value="de|fr">Traducción del alemán al francés</option>
<option value="es|en">Español a Inglés</option>
<option value="fr|en">Francés a inglés</option>
<option value="fr|de">Francés a alemán</option>
<option value="it|es">Italiano a inglés</option>
<option value="pt|en">portugués a inglés</option>
<option value="ja|en">BETA del japonés al inglés</option>
<option value="ko|en">BETA del coreano al inglés</option>
<option value="zh-CN|en">Chino (simplificado) traducido al inglés BETA</option>
<input style="FONT-SIZE: 12px" type="button" value="Ir->" name="Button1" onClick="javascript:window.open('translate.asp?urls='+document.ubicación+ '&lan='+lan.value,'_self','')">
</seleccionar>
</formulario>
El contenido de lan.htm se utiliza para seleccionar el idioma a traducir, incluido el idioma original y el idioma a traducir. Solo necesitamos copiar el contenido de lan.htm a la página que proporciona traducción a varios idiomas.
traducir.asp
<html>
<cabeza>
<title>Traducción en línea</title>
<meta http-equiv="Tipo de contenido" content="text/html; charset=utf-8">
</cabeza>
<cuerpo>
<%
'en caso de error, reanudar siguiente
' Si la velocidad de Internet es muy lenta, puede ajustar el siguiente tiempo. unidad segunda
Servidor.ScriptTimeout = 999999
'=================================================== = =======
'Función de codificación de caracteres
'=================================================== = =======
Función BytesToBstr(cuerpo,código)
corriente de objetos tenue
establecer objstream = Server.CreateObject("adodb.stream")
objstream.Tipo = 1
objstream.Modo =3
objstream.Abrir
objstream.Escribir cuerpo
objstream.Posición = 0
objstream.Tipo = 2
objstream.Charset = código
BytesToBstr = objstream.ReadText
objstream.Cerrar
establecer objstream = nada
Función final
'Obtener la posición de aparición de una cadena de línea en otra cadena
Función Nuevacadena(wstr,cadena)
Nuevacadena=Instr(lcase(wstr),lcase(cadena))
si Nuevacadena<=0 entonces Nuevacadena=Len(wstr)
Función final
'Reemplazar función de cadena
función ReemplazarStr(ori,str1,str2)
ReemplazarStr=reemplazar(ori,str1,str2)
función final
'=================================================== = ====
función ReadXml(url,código,inicio,finaliza)
establecer oSend=createobject("Microsoft.XMLHTTP")
Código fuente = oSend.open ("GET",url,falso)
oEnviar.enviar()
ReadXml=BytesToBstr(oSend.responseBody,código)
si(inicio="" o termina="") entonces
demás
inicio=Nuevacadena(ReadXml,inicio)
ReadXml=mid(ReadXml,inicio)
termina = Nueva cadena (ReadXml, termina)
ReadXml=izquierda(ReadXml,finaliza-1)
terminar si
función final
página URL tenue, LAN
páginaurl=solicitud("URL")
lan=solicitud("lan")
%>
<formulario método="publicar" acción="translate.asp">
<tipo de entrada="texto" nombre="urls" tamaño="150" valor="<%=urlpage%>">
<tipo de entrada="oculto" nombre="lan" valor="<%=lan%>">
<tipo de entrada="enviar" valor="enviar">
</formulario>
<%
transURL tenue
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 "
si(len(urlpage)>3) entonces
getcont=ReadXml(transURL,"gb2312","","")
respuesta.Escribir(getcont)
terminar si
%>
</cuerpo>
</html>
Translate.asp implementa la función de traducción, que se implementa utilizando las herramientas de idioma de Google.
Tenga en cuenta que, dado que se proporciona compatibilidad con varios idiomas, la codificación utilizada en el archivo Translate.asp es "utf-8", que admite todos los caracteres.