บางครั้งเราต้องการให้การสนับสนุนหลายภาษาสำหรับหน้าเว็บของเรา การใช้หน้าเว็บเดียวสำหรับหนึ่งภาษา โชคดีที่ Google มีฟังก์ชันเครื่องมือภาษาดังต่อไปนี้ .
ผู้แต่ง: Taote.com
ที่มา: http://www.tot.name
หมายเหตุ: โปรดระบุแหล่งที่จะพิมพ์ซ้ำ
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|en">ภาษาญี่ปุ่นเป็นภาษาอังกฤษ BETA</option>
<option value="ko|en">เกาหลีเป็นอังกฤษเบต้า</option>
<option value="zh-CN|en">ภาษาจีน (ตัวย่อ) แปลเป็นภาษาอังกฤษ 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,'_self','')">
</เลือก>
</แบบฟอร์ม>
เนื้อหาใน lan.htm ใช้เพื่อเลือกภาษาที่จะแปล รวมถึงภาษาต้นฉบับและภาษาที่จะแปล เราจำเป็นต้องคัดลอกเนื้อหาใน lan.htm ไปยังหน้าที่ให้บริการการแปลหลายภาษาเท่านั้น
Translate.asp
<html>
<หัว>
<title>การแปลออนไลน์</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</หัว>
<ร่างกาย>
-
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
' หากความเร็วอินเทอร์เน็ตช้ามาก คุณสามารถปรับเวลาต่อไปนี้ได้ หน่วยที่สอง
เซิร์ฟเวอร์ ScriptTimeout = 999999
'=================================================' = =======
'ฟังก์ชันการเข้ารหัสอักขระ'
'=================================================' = =======
ฟังก์ชั่น BytesToBstr (เนื้อหา, รหัส)
objstream สลัว
ตั้ง objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.เปิด
objstream เขียนเนื้อหา
objstream ตำแหน่ง = 0
objstream.Type = 2
objstream.Charset =รหัส
BytesToBstr = objstream.ReadText
objstream.ปิด
ตั้งค่า objstream = ไม่มีเลย
ฟังก์ชันสิ้นสุด
'รับตำแหน่งที่ปรากฏของสตริงบรรทัดในสตริงอื่น
ฟังก์ชันนิวสตริง(wstr,strng)
Newstring=Instr(lcase(wstr),lcase(strng))
ถ้า Newstring<=0 แล้ว Newstring=Len(wstr)
ฟังก์ชันสิ้นสุด
'แทนที่ฟังก์ชันสตริง
ฟังก์ชั่นแทนที่Str(ori,str1,str2)
แทนที่Str=แทนที่(ori,str1,str2)
ฟังก์ชั่นสิ้นสุด
'=================================================' = ====
ฟังก์ชั่น ReadXml (url, รหัส, เริ่มต้น, สิ้นสุด)
ตั้งค่า oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.ส่ง()
ReadXml=BytesToBstr(oSend.responseBody,รหัส )
if(start="" หรือends="") แล้ว
อื่น
start=Newstring(ReadXml เริ่มต้น)
ReadXml=mid(ReadXml เริ่มต้น)
สิ้นสุด = Newstring (ReadXml สิ้นสุด)
ReadXml=ซ้าย(ReadXml สิ้นสุด-1)
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
URL หน้ามืด, lan
urlpage=request("urls")
lan=request("แลน")
-
<รูปแบบวิธีการ = "โพสต์" การกระทำ = "translate.asp">
<input type="text" name="urls" size="150" value="<%=urlpage%>">
<input type="hidden" name="lan" value="<%=lan%>">
<ประเภทอินพุต = "ส่ง" ค่า = "ส่ง">
</แบบฟอร์ม>
-
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=/ language_tools "
ถ้า(len(urlpage)>3) แล้ว
getcont=ReadXml(transURL,"gb2312",""")
ตอบกลับเขียน(getcont)
สิ้นสุดถ้า
%>
</ร่างกาย>
</html>
Translate.asp ใช้ฟังก์ชันการแปล ซึ่งใช้งานโดยใช้เครื่องมือภาษาของ Google
โปรดทราบว่าเนื่องจากมีการรองรับหลายภาษา การเข้ารหัสที่ใช้ในไฟล์ Translate.asp จึงเป็น "utf-8" ที่รองรับอักขระทั้งหมด