รหัสที่แปลงตัวอักษรจีนเป็นพินอิน

<%
ตั้ง d = CreateObject("Scripting.Dictionary");
ง. เพิ่ม "a", -20319
ง. เพิ่ม "ai", -20317
d.เติม "อัน",-2
d.เพิ่ม "the",-20295
d.เพิ่ม "ไม่", -20292
d.เพิ่ม "พวกเขา",-20283
d.เติม "ไป๋",-20265
d. เพิ่ม "ห้าม",-20257
d.เพิ่ม "ปัง", -20242
ง. เพิ่ม "เปา", -20230
d.เพิ่ม "โจมตี",-20051
d.เพิ่ม "ขา",-20036
d.เพิ่ม "หู",-20032
d.เพิ่ม "วันนี้",-20026
d.เพิ่ม "หลัง",-20002
d.เพิ่ม "อื่นๆ",-19990
ง. เพิ่ม "บางส่วน",-19986
d.เพิ่ม "bin",-19982
ง. เพิ่ม "bing", -19976
d.เพิ่ม "มูลค่า",-19805
ง.เติม "bu",-19784
d.เพิ่ม "โดยประมาณ",-1
ง.เติม "cai", -19774
ง. เพิ่ม "สามารถ", -19763
d. เพิ่ม "cang", -1
d.เติม "เจ้า",-1
ง.เติม "ce", -19746
d. เพิ่ม "ceng", -1
d.เติม "นั่น",-1
ง.เติม "ชัย",-19728
ง. เพิ่ม "ชาน" -1
d.เพิ่ม "ช้าง", -1
ง. เพิ่ม "เจ้า", -1
ง.เติม "ฉัน",-19531
d. เพิ่ม "ลูกโซ่" -1
d.เติม "เฉิง", -1
d.เติม "ไค",-1
d.เติม "ช่อง", -1
d.เพิ่ม "กะหล่ำปลี",-1
d.เติม "นั่น",-1
ง.เติม "ช่วย",-1
ง. เพิ่ม "แล้ว",-19288
ง. เพิ่ม "เปิด",-19281
d.เติม "นั่น",-1
d.เพิ่ม "สำหรับ",-1
d.เติม "ชูโอ",-1
ง. เพิ่ม "ci", -19261
d.เติม "คอง",-19249
ง.เติม "cou",-19243
ง. เพิ่ม "cu", -1
d.เพิ่ม "เมื่อ",-1
ง. เพิ่ม "cui", -1
d. เพิ่ม "เมื่อ", -1
d.เพิ่ม "คิว", -19224
d.เพิ่ม "แล้ว",-19218
ง.เติม "ได",-19212
ง. เพิ่ม "และ",-19038
d.เพิ่ม "อื่นๆ",-19023
d.เติม "ดาว",-19018
d.เพิ่ม "ของ",-1
d.เติม "นั่น",-19003
ง. เพิ่ม "the",-18996
d.เติม "dian",-1
d. เพิ่ม "diao",-1
d. เพิ่ม "ตาย" -1
d.เพิ่ม "สิ่ง",-1
d. เพิ่ม "คุณ" -1
d. เพิ่ม "ดง", -1
ง. เพิ่ม "dou", -18763
ง. เพิ่ม "คุณ",-1
ง. เพิ่ม "สอง",-18741
ง. เพิ่ม "dui", -1
d.เพิ่ม "สีดำ",-1
ง. เพิ่ม "ดูโอ",-18722
ง. เพิ่ม "และ",-18710
ง. เพิ่ม "ใน",-18697
d.เพิ่ม "คือ",-1
d. เพิ่ม "take",-18526
d.เพิ่ม "แฟน",-18518
ง. เพิ่ม "ฝาง", -1
d.เพิ่ม "ลูกศร",-18490
d.เพิ่ม "เฟิน",-18478
d.เติม "เฟิง",-1
ง. เพิ่ม "สี่",-18448
d.เติม "บ้า",-18447
ง. เพิ่ม "ว่าง",-18446
d.เติม "not",-1
d.เติม "gai",-1
d.เพิ่ม "มาก", -1
d.เพิ่ม "แก๊งค์",-18220
d.เติม "ไม่",-1
d.เติม "ถ้า",-1
ง. เพิ่ม "gei",-1
d.เพิ่ม "ยีน", -1
d.เพิ่ม "แก๊งค์",-1
d. เพิ่ม "ฆ้อง", -1
d.เพิ่ม "หมากฝรั่ง",-1
d.เติม "gu",-17988
ง. เพิ่ม "ของ",-17970
ง.เติม "ลิง",-17964
ง.เติม "กวน",-1
ง. เพิ่ม "กวง", -1
d.เพิ่ม "จาก",-17947
d.เพิ่ม "ปืน",-17931
ง. เพิ่ม "guo",-17928
ง. เพิ่ม "และ",-17922
d.เพิ่ม "เขียน",-17759
d.เติม "เขา", -1
ง. เพิ่ม "hang",-17733
d.เติม "คุณ",-17730
d.เติม "เขา", -1
d.เพิ่ม "นี่",-17703
d. เพิ่ม "ไก่", -1
d.เพิ่ม "hang",-1
d.เติม "hong", -1
d.เติม "hou",-1
d.เพิ่ม "ดู",-1
d.เพิ่ม "กลิ่น",-1
ง.เติม "ห้วย",-1
d.เพิ่ม "สวน",-17482
d.เติม "หวง",-1
ง.เติม "ฮุ่ย",-17454
d.เพิ่ม "เวลา",-17433
d.เพิ่ม "กลิ่น",-1
d.เติม "น้ำ",-17417
d.เติม "เจีย",-1
ง. เพิ่ม "เจียน", -1
d.เติม "เจียง" -1
ง.เติม "เจียว",-1
d.เติม "jie",-1
d.เพิ่ม "ปีศาจ", -1
ง. เพิ่ม "จิง", -1
d.เติม "จิออง", -1
d.เติม "จิ่ว",-1
d.เติม "ju",-16689
d.เพิ่ม "จอห์น",-1
ง. เพิ่ม "วันพฤหัสบดี",-16657
d.เติม "มิถุนายน",-1
ง. เพิ่ม "ถึง",-16474
ง. เพิ่ม "cai", -16470
ง. เพิ่ม "เปิด",-16465
d.เติม "คัง",-1
d.เพิ่ม "คุณ",-16452
d.เติม "ฉัน",-1
ง. เพิ่ม "และ",-16433
d.เพิ่ม "อะไร",-1
ง.เติม "ก้อง",-16427
d.เพิ่ม "ชายฝั่ง",-16423
d.เพิ่ม "ถึง",-16419
d.เพิ่ม "รู",-16412
d.เพิ่ม "งู",-1
d.เพิ่ม "เมื่อ",-1
ง.เติม "วัว",-16401
d.เติม "วัว",-16393
d.เพิ่ม "เท่านั้น",-16220
d.เพิ่ม "กลุ่ม",-16216
d.เติม "the",-1
d. เพิ่ม "ในขณะที่",-16205
ง. เพิ่ม "lan",-16202
d.เพิ่ม "เท่านั้น",-16187
d.add "lao",-16180

ฟังก์ชั่น g(หมายเลข)
ถ้า num>0 และ num<160 แล้ว
ก.=chr(เลข)
อื่น
ถ้า num<-20319 หรือ num>-10247 แล้ว
ก. ="
อื่น
a=d.รายการ
b=d.คีย์
สำหรับ i=d.count-1 ถึง 0 ขั้นตอน -1
ถ้า a(i)<=num ให้ออกเพื่อ
ต่อไป
ก.=ข(ฉัน)
สิ้นสุดถ้า
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
ฟังก์ชั่นค(str)
ค ="
สำหรับ i=1 ถึง len(str)
c=c&g(asc(กลาง(str,i,1)))
ต่อไป
ฟังก์ชั่นสิ้นสุด
ตอบกลับ เขียน c ( คำขอ ( " hz " ) )
-
<แบบฟอร์มวิธีการ=โพสต์>
ค่าเริ่มต้น: <input name=hz>
</แบบฟอร์ม>