Web ページに複数の言語をサポートしたい場合がありますが、1 つの Web ページを 1 つの言語に使用するのは非常に面倒です。幸いなことに、Google には、それを使用して Web ページを複数の言語に変換する方法があります。 。
著者: Taote.com
注:lan.htm
<form>
を転載する場合は出典を示してください
。
<select name="lan">
<option value="en|de">英語からドイツ語</option>
<option value="en|es">英語からスペイン語</option>
<option value="en|fr">英語からフランス語</option>
<option value="en|it">英語からイタリア語</option>
<option value="en|pt">英語からポルトガル語</option>
<option value="en|ja">英語から日本語へのベータ版</option>
<option value="en|ko">英語から韓国語へのベータ版</option>
<option value="en|zh-CN" >英語から中国語（簡体字）に翻訳されたベータ版</option>
<option value="de|en">ドイツ語から英語への翻訳</option>
<option value="de|fr">ドイツ語からフランス語への翻訳</option>
<option value="es|en">スペイン語から英語</option>
<option value="fr|en">フランス語から英語</option>
<option value="fr|de">フランス語からドイツ語</option>
<option value="it|en">イタリア語から英語</option>
<option value="pt|en">ポルトガル語から英語</option>
<option value="ja|ja">日本語から英語へのベータ版</option>
<option value="ko|en">韓国語から英語へのベータ版</option>
<option value="zh-CN|en">中国語 (簡体字) から英語に翻訳されたベータ版</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','')">
</選択>
</form>
lan.htm の内容は、元の言語と翻訳対象の言語を含む、翻訳対象の言語を選択するために使用されます。 lan.htm の内容を多言語翻訳を提供するページにコピーするだけです。
翻訳
.asp <html>
<頭>
<title>オンライン翻訳</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'エラー時は次から再開
' インターネット速度が非常に遅い場合は、次の時間を調整できます。単位秒
Server.ScriptTimeout = 999999
'================================================ = =======
'文字エンコーディング関数
'================================================ = =======
関数 BytesToBstr(本体,コード)
薄暗いオブジェクトストリーム
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.本体の書き込み
objstream.Position = 0
objstream.Type = 2
objstream.Charset =コード
BytesToBstr = objstream.ReadText
objstream.Close
objstream = 何も設定しない
End Function
'別の文字列における行文字列の出現位置を取得
関数 Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
Newstring<=0 の場合、Newstring=Len(wstr)
終了機能
'文字列置換関数
関数 ReplaceStr(ori,str1,str2)
ReplaceStr=replace(ori,str1,str2)
終了関数
'================================================ = ====
関数 ReadXml(url,code,start,ends)
set oSend=createobject("Microsoft.XMLHTTP")
ソースコード = oSend.open ("GET",url,false)
oSend.send()
ReadXml=BytesToBstr(oSend.responseBody,code )
if(start="" または end="") then
それ以外
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,start)
ends=Newstring(ReadXml,ends)
ReadXml=left(ReadXml,ends-1)
終了する場合
終了関数
薄暗い URL ページ、LAN
urlpage=リクエスト("url")
lan=リクエスト("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>
<%
薄暗いトランスURL
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) then
getcont=ReadXml(transURL,"gb2312","","")
応答.書き込み(getcont)
%>
の場合は終了
</body>
</html>
translation.asp は、Google の言語ツールを使用して実装される翻訳機能を実装します。
多言語サポートが提供されているため、translate.asp ファイルで使用されるエンコードはすべての文字をサポートする「utf-8」であることに注意してください。