私たちの Web ページは多言語をサポートしています。1 つの Web ページを 1 つの言語に使用するのは非常に面倒です。幸いなことに、Google には言語ツール機能があり、これを使用して Web ページを複数の言語に変換することができます。
lan.htm
<フォーム>
<名前=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|en>日本語から英語へのベータ版</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,' _自分','')>
</選択>
</form>
lan.htm の内容は、元の言語と翻訳対象の言語を含む、翻訳対象の言語を選択するために使用されます。 lan.htm の内容を多言語翻訳を提供するページにコピーするだけです。
翻訳.asp
<html>
<頭>
<title>オンライン翻訳</title>
<meta http-equiv=コンテンツタイプ content=text/html;
</head>
<本文>
<%
'エラー時は次から再開
' インターネット速度が非常に遅い場合は、次の時間を調整できます。単位秒
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 = 何も設定しない
終了機能
'別の文字列における行文字列の出現位置を取得
関数 Newstring(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
if Newstring<=0 then 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(開始= または終了=) then
それ以外
start=Newstring(ReadXml,start)
ReadXml=mid(ReadXml,start)
ends=Newstring(ReadXml,ends)
ReadXml=left(ReadXml,ends-1)
終了する場合
終了関数
薄暗い URL ページ、LAN
urlpage=リクエスト(url)
lan=リクエスト(lan)
%>
<フォームメソッド=ポストアクション=translate.asp>
<input type=text name=urls size=150 value=<%=urlpage%>>
<入力タイプ=隠し名=LAN値=<%=LAN%>>
<入力タイプ=送信値=送信>
</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>