Nuestra página web proporciona soporte en varios idiomas. Sería demasiado problemático utilizar una página web para un idioma. Afortunadamente, Google proporciona una función de herramienta de idioma. A continuación se explica cómo utilizarla para convertir páginas web entre varios idiomas.
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=es|pt>Inglés a portugués</option>
<option value=en|ja>Inglés traducido al japonés BETA</option>
<option value=en|ko>Inglés traducido al coreano BETA</option>
<option value=en|zh-CN >Inglés traducido al chino (simplificado) BETA</option>
<option value=de|en>Alemán a inglés</option>
<option value=de|fr>Alemán a 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|es>Chino (simplificado) traducido al inglés BETA</option>
<estilo de entrada=TAMAÑO DE FUENTE: 12px tipo=valor del botón=Ir-> nombre=Botón1 onClick=javascript:window.open('translate.asp?urls='+document.location+'&lan='+lan.value,' _yo','')>
</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íneas 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 oEnviar=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(urls)
lan=solicitud(lan)
%>
<método de formulario=publicar acción=traducir.asp>
<tipo de entrada=nombre de texto=tamaño de URL=150 valor=<%=página de URL%>>
<tipo de entrada=nombre oculto=valor de lan=<%=lan%>>
<tipo de entrada=valor de envío=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(urlpágina)>3) entonces
getcont=ReadXml(transURL,gb2312,,)
respuesta.Escribir(getcont)
terminar si
%>
</cuerpo>
</html>