Unsere Webseite bietet Unterstützung für mehrere Sprachen. Es wäre zu aufwändig, eine Webseite für eine Sprache zu verwenden. Glücklicherweise bietet Google eine Sprachtool-Funktion an, mit der Sie Webseiten zwischen mehreren Sprachen konvertieren können.
lan.htm
<Formular>
<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 ins Japanische BETA übersetzt</option>
<option value=en|ko>Englisch ins Koreanische BETA übersetzt</option>
<option value=en|zh-CN >Englisch ins Chinesische übersetzt (vereinfacht) BETA</option>
<option value=de|en>Deutsch nach Englisch</option>
<option value=de|fr>Deutsch nach Französisch</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 nach 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;
</head>
<Körper>
<%
'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
Funktion beenden
'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= or end=) then
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%>>
<Eingabetyp=verborgener Name=LAN-Wert=<%=LAN%>>
<Eingabetyp=Submit-Wert=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=/lingual_tools
if(len(urlpage)>3) dann
getcont=ReadXml(transURL,gb2312,,)
Antwort.Write(getcont)
Ende wenn
%>
</body>
</html>