หน้าเว็บของเรารองรับหลายภาษา อาจเป็นเรื่องยากเกินไปที่จะใช้หน้าเว็บเดียวสำหรับหนึ่งภาษา โชคดีที่ Google มีฟังก์ชันเครื่องมือภาษาดังนี้
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>ภาษาญี่ปุ่นเป็นภาษาอังกฤษ BETA</option>
<option value=ko|en>ภาษาเกาหลีเป็นภาษาอังกฤษ BETA</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,' _ตนเอง','')>
</เลือก>
</แบบฟอร์ม>
เนื้อหาใน lan.htm ใช้เพื่อเลือกภาษาที่จะแปล รวมถึงภาษาต้นฉบับและภาษาที่จะแปล เราเพียงแค่ต้องคัดลอกเนื้อหาใน lan.htm ไปยังหน้าที่ให้บริการการแปลหลายภาษา
แปล.asp
<html>
<หัว>
<title>การแปลออนไลน์</title>
<meta http-equiv=เนื้อหาประเภทเนื้อหา=ข้อความ/html;
</หัว>
<ร่างกาย>
-
'เมื่อเกิดข้อผิดพลาดให้ดำเนินการต่อต่อไป
' หากความเร็วอินเทอร์เน็ตช้ามาก คุณสามารถปรับเวลาต่อไปนี้ได้ หน่วยที่สอง
เซิร์ฟเวอร์ 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,รหัส )
ถ้า (start= หรือ end=) แล้ว
อื่น
start=Newstring(ReadXml เริ่มต้น)
ReadXml=mid(ReadXml เริ่มต้น)
สิ้นสุด = Newstring (ReadXml สิ้นสุด)
ReadXml=ซ้าย(ReadXml สิ้นสุด-1)
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
URL หน้ามืด, lan
urlpage=คำขอ(URL)
lan=คำขอ(lan)
-
<รูปแบบวิธีการ=โพสต์การกระทำ=translate.asp>
<ประเภทอินพุต=ชื่อข้อความ=ขนาด URL=150 ค่า=<%=urlpage%>>
<ประเภทอินพุต=ชื่อที่ซ่อนอยู่=ค่า LAN=<%=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>