Manchmal möchten wir mehrsprachige Unterstützung für unsere Webseiten bereitstellen. Glücklicherweise bietet Google eine Sprachtoolfunktion, um Webseiten zwischen mehreren Sprachen zu konvertieren. .
Autor: Taote.com
Quelle: http://www.tot.name
Hinweis: Bitte geben Sie die Quelle für den Nachdruck von
lan.htm
<form>
an
<select name="lan">
<option value="en|de">Englisch nach Deutsch</option>
<option value="en|es">Englisch nach Spanisch</option>
<option value="en|fr">Englisch nach Französisch</option>
<option value="en|it">Englisch nach Italienisch</option>
<option value="en|pt">Englisch nach Portugiesisch</option>
<option value="en|ja">Englisch-Japanisch BETA</option>
<option value="en|ko">Englisch-Koreanisch BETA</option>
<option value="en|zh-CN" >Englisch ins Chinesische übersetzt (vereinfacht) BETA</option>
<option value="de|en">Deutsch-Englisch-Übersetzung</option>
<option value="de|fr">Deutsch-Französisch-Übersetzung</option>
<option value="es|en">Spanisch nach Englisch</option>
<option value="fr|en">Französisch nach Englisch</option>
<option value="fr|de">Französisch nach Deutsch</option>
<option value="it|en">Italienisch nach Englisch</option>
<option value="pt|en">Portugiesisch nach Englisch</option>
<option value="ja|en">Japanisch-Englisch BETA</option>
<option value="ko|en">Koreanisch zu Englisch BETA</option>
<option value="zh-CN|en">Chinesisch (vereinfacht) ins Englische BETA übersetzt</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','')">
</select>
</form>
Der Inhalt in lan.htm wird verwendet, um die zu übersetzende Sprache auszuwählen, einschließlich der Originalsprache und der zu übersetzenden Sprache. Wir müssen lediglich den Inhalt in lan.htm auf die Seite kopieren, die eine mehrsprachige Übersetzung bereitstellt.
Translate.asp
<html>
<Kopf>
<title>Online-Übersetzung</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'Bei Fehler als nächstes fortfahren
' Wenn die Internetgeschwindigkeit sehr langsam ist, können Sie die folgende Zeit anpassen. Einheitssekunde
Server.ScriptTimeout = 999999
'============================================== = =======
'Zeichenkodierungsfunktion
'============================================== = =======
Funktion BytesToBstr(body,code)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Öffnen
objstream.Text schreiben
objstream.Position = 0
objstream.Type = 2
objstream.Charset =code
BytesToBstr = objstream.ReadText
objstream.Schließen
set objstream = nichts
Endfunktion
'Ermitteln Sie die Vorkommensposition einer Zeilenzeichenfolge in einer anderen Zeichenfolge
Funktion Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
wenn Newstring<=0 dann Newstring=Len(wstr)
Funktion beenden
'String-Funktion ersetzen
Funktion ErsetzenStr(ori,str1,str2)
ErsetzenStr=ersetzen(ori,str1,str2)
Endfunktion
'============================================== = ====
Funktion ReadXml(URL,Code,Start,Enden)
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
if(start="" oder endet="") dann
anders
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,start)
endet=Newstring(ReadXml,ends)
ReadXml=left(ReadXml,ends-1)
Ende wenn
Endfunktion
dim urlpage,lan
urlpage=request("urls")
lan=request("lan")
%>
<form method="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>
<%
dimmen Sie 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) dann
getcont=ReadXml(transURL,"gb2312","","")
Antwort.Write(getcont)
Ende, wenn
%>
</body>
</html>
Translate.asp implementiert die Übersetzungsfunktion, die mithilfe der Sprachtools von Google implementiert wird.
Beachten Sie, dass aufgrund der Unterstützung mehrerer Sprachen die in der Datei Translate.asp verwendete Codierung „utf-8“ ist, die alle Zeichen unterstützt.