Notre page Web offre une prise en charge multilingue. Il serait trop compliqué d'utiliser une seule page Web pour une seule langue. Heureusement, Google propose une fonction d'outil linguistique. Voici comment l'utiliser pour convertir des pages Web entre plusieurs langues.
lan.htm
<formulaire>
<select name=lan>
<option value=en|de>Anglais vers allemand</option>
<option value=en|es>Anglais vers espagnol</option>
<option value=en|fr>Anglais vers français</option>
<option value=en|it>Anglais vers italien</option>
<option value=en|pt>Anglais vers portugais</option>
<option value=en|ja>Anglais traduit en japonais BETA</option>
<option value=en|ko>Anglais traduit en coréen BETA</option>
<option value=en|zh-CN >Anglais traduit en chinois (simplifié) BETA</option>
<option value=de|en>Allemand vers anglais</option>
<option value=de|fr>Allemand vers français</option>
<option value=es|en>Espagnol vers anglais</option>
<option value=fr|en>Français vers anglais</option>
<option value=fr|de>Français vers Allemand</option>
<option value=it|en>Italien vers anglais</option>
<option value=pt|en>Portugais vers anglais</option>
<option value=ja|en>Japonais vers anglais BETA</option>
<option value=ko|en>Coréen vers anglais BETA</option>
<option value=zh-CN|en>Chinois (simplifié) traduit en anglais 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,' _soi','')>
</sélectionner>
</form>
Le contenu de lan.htm est utilisé pour sélectionner la langue à traduire, y compris la langue originale et la langue à traduire. Il nous suffit de copier le contenu de lan.htm sur la page qui fournit une traduction multilingue.
traduire.asp
<html>
<tête>
<title>Traduction en ligne</title>
<méta http-equiv=Content-Type content=text/html; charset=utf-8>
</tête>
<corps>
<%
'en cas d'erreur, reprendre ensuite
' Si la vitesse Internet est très lente, vous pouvez régler l'heure suivante. Unité seconde
Serveur.ScriptTimeout = 999999
'================================================== = =======
'Fonction d'encodage des caractères
'================================================== = =======
Fonction BytesToBstr (corps, code)
objstream obscur
définir objstream = Server.CreateObject (adodb.stream)
objstream.Type = 1
objstream.Mode =3
objstream.Ouvrir
objstream.Écrire le corps
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Fermer
définir objstream = rien
Fonction de fin
'Obtenir la position d'occurrence d'une chaîne de ligne dans une autre chaîne
Fonction Nouvellechaîne(wstr,strng)
Nouvellechaîne=Instr(lcase(wstr),lcase(strng))
si Nouvellechaîne<=0 alors Nouvellechaîne=Len(wstr)
Fonction de fin
'Remplacer la fonction de chaîne
fonction RemplacerStr(ori,str1,str2)
RemplacerStr=remplacer(ori,str1,str2)
fonction de fin
'================================================== = ====
fonction ReadXml (url, code, début, fin)
définir oSend=createobject(Microsoft.XMLHTTP)
SourceCode = oSend.open (GET,url,false)
oEnvoyer.envoyer()
ReadXml=BytesToBstr(oSend.responseBody,code )
si (début = ou fin =) alors
autre
start=Nouvellechaîne(ReadXml,start)
ReadXml=milieu(ReadXml,début)
se termine = Nouvelle chaîne (ReadXml, se termine)
ReadXml=gauche(ReadXml,fins-1)
finir si
fonction de fin
URL sombre, réseau local
urlpage=requête(urls)
lan=demande(lan)
%>
<form method=post action=translate.asp>
<input type=text name=urls size=150 value=<%=urlpage%>>
<input type=hidden name=lan value=<%=lan%>>
<type d'entrée=valeur de soumission=soumettre>
</form>
<%
faible 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=/lingual_tools
si (len (urlpage)> 3) alors
getcont=ReadXml(transURL,gb2312,,)
réponse.Write(getcont)
finir si
%>
</corps>
</html>