Terkadang kita ingin memberikan dukungan multi-bahasa untuk halaman web kita. Terlalu merepotkan untuk menggunakan satu halaman web untuk satu bahasa. Untungnya, Google menyediakan fungsi alat bahasa. .
Penulis: Taote.com
Sumber: http://www.tot.name
Catatan: Harap tunjukkan sumber untuk mencetak ulang
lan.htm
<form>
<pilih nama="lan">
<option value="en|de">Bahasa Inggris ke Bahasa Jerman</option>
<option value="en|es">Bahasa Inggris ke Bahasa Spanyol</option>
<option value="en|fr">Bahasa Inggris ke Prancis</option>
<option value="en|it">Bahasa Inggris ke Italia</option>
<option value="en|pt">Bahasa Inggris ke Bahasa Portugis</option>
<option value="en|ja">BETA Bahasa Inggris ke Bahasa Jepang</option>
<option value="en|ko">BETA Bahasa Inggris ke Bahasa Korea</option>
<option value="en|zh-CN" >Bahasa Inggris diterjemahkan ke dalam bahasa Mandarin (Sederhana) BETA</option>
<option value="de|en">Terjemahan Jerman ke Inggris</option>
<option value="de|fr">Terjemahan Jerman ke Prancis</option>
<option value="es|en">Bahasa Spanyol ke Bahasa Inggris</option>
<option value="fr|en">Bahasa Prancis ke Inggris</option>
<option value="fr|de">Bahasa Prancis ke Jerman</option>
<option value="it|en">Bahasa Italia ke Bahasa Inggris</option>
<option value="pt|en">Bahasa Portugis ke Inggris</option>
<option value="ja|en">BETA Jepang ke Inggris</option>
<option value="ko|en">BETA Korea ke Inggris</option>
<option value="zh-CN|en">Bahasa Mandarin (Sederhana) diterjemahkan ke dalam bahasa Inggris BETA</option>
<input style="FONT-SIZE: 12px" type="button" value="Buka->" name="Button1" onClick="javascript:window.open('translate.asp?urls='+document.location+ '&lan='+lan.value,'_self','')">
</pilih>
</bentuk>
Konten di lan.htm digunakan untuk memilih bahasa yang akan diterjemahkan, termasuk bahasa asli dan bahasa yang akan diterjemahkan. Kita hanya perlu menyalin konten di lan.htm ke halaman yang menyediakan terjemahan multibahasa.
terjemahkan.asp
<html>
<kepala>
<title>Terjemahan Online</title>
<meta http-equiv="Jenis Konten" content="teks/html; charset=utf-8">
</kepala>
<tubuh>
<%
'pada kesalahan lanjutkan berikutnya
' Jika kecepatan Internet sangat lambat, Anda dapat menyesuaikan waktu berikutnya. Satuan detik
Server.ScriptTimeout = 999999
' ===== ========
'Fungsi pengkodean karakter
' ===== ========
Fungsi BytesToBstr(tubuh,kode)
objek redup
setel objstream = Server.CreateObject("adodb.stream")
objstream.Jenis = 1
objstream.Mode =3
objstream.Buka
objstream.Tulis isi
objstream.Posisi = 0
objstream.Jenis = 2
objstream.Charset =kode
BytesToBstr = objstream.ReadText
objstream.Tutup
setel objstream = tidak ada
Fungsi Akhir
'Dapatkan posisi kemunculan string garis di string lain
Fungsi String Baru(wstr,strng)
String baru=Instr(lcase(wstr),lcase(strng))
jika Newstring<=0 maka Newstring=Len(wstr)
Fungsi Akhir
'Ganti fungsi string
fungsi GantiStr(ori,str1,str2)
GantiStr=ganti(ori,str1,str2)
fungsi akhir
' ===== = ====
fungsi ReadXml(url,kode,mulai,berakhir)
setel oSend=buat objek("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oKirim.kirim()
ReadXml=BytesToBstr(oSend.responseBody,kode )
jika(mulai="" atau berakhir="") maka
kalau tidak
mulai=String baru(ReadXml,mulai)
ReadXml=pertengahan(ReadXml,mulai)
berakhir=Newstring(ReadXml,berakhir)
ReadXml=kiri(ReadXml,berakhir-1)
berakhir jika
fungsi akhir
redupkan halaman url,lan
urlhalaman=permintaan("url")
lan=permintaan("lan")
%>
<formulir metode="post" action="translate.asp">
<input type="text" name="urls" size="150" value="<%=urlpage%>">
<input type="tersembunyi" nama="lan" value="<%=lan%>">
<input type="kirim" value="kirim">
</bentuk>
<%
redupkan 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=/bahasa_tools "
jika(len(halaman url)>3) maka
getcont=ReadXml(transURL,"gb2312","","")
respon.Tulis(getcont)
berakhir jika
%>
</tubuh>
</html>
Translate.asp mengimplementasikan fungsi terjemahan, yang diimplementasikan menggunakan alat bahasa Google.
Perhatikan bahwa karena dukungan multi-bahasa disediakan, pengkodean yang digunakan dalam file Translate.asp adalah "utf-8" yang mendukung semua karakter.