Halaman web kami menyediakan dukungan multi-bahasa. Akan sangat merepotkan jika menggunakan satu halaman web untuk satu bahasa. Untungnya, Google menyediakan fungsi alat bahasa.
lan.htm
<bentuk>
<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 Bahasa 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>Bahasa Inggris diterjemahkan ke dalam bahasa Jepang BETA</option>
<option value=en|ko>Bahasa Inggris diterjemahkan ke dalam BETA Korea</option>
<option value=en|zh-CN >Bahasa Inggris diterjemahkan ke dalam bahasa Mandarin (Sederhana) BETA</option>
<option value=de|en>Bahasa Jerman ke Bahasa Inggris</option>
<option value=de|fr>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 Bahasa Korea ke Bahasa 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=Go-> name=Button1 onClick=javascript:window.open('translate.asp?urls='+document.location+'&lan='+lan.value,' _diri','')>
</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 konten=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(isi,kode)
objekstream 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)
atur 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)
%>
<metode formulir=tindakan posting=translate.asp>
<tipe masukan=nama teks=ukuran url=150 nilai=<%=urlhalaman%>>
<tipe masukan=nama tersembunyi=nilai lan=<%=lan%>>
<tipe masukan=kirim nilai=kirim>
</bentuk>
<%
transURL redup
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>