直接看代码：
＜ภาษาสคริปต์=vbs src=spellcode.vbs> ＜/สคริปต์>
获取客户简称的拼音缩写
ฟังก์ชั่น getpy()
ถนนสลัว
สลัวฉัน
str=document.all.txtContactName.value
รีตสลัว
สำหรับ i=1 ถึง len(str)
ret=ret&getpychar(กลาง(str,i,1))
ต่อไป
document.all.txtSpellCode.value=ret
ฟังก์ชั่นสิ้นสุด
getpychar=ถ่าน
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
SpellCode.vbs
获取汉字拼音第一字母
ฟังก์ชั่น getpychar (ถ่าน)
เวลาสลัว
tmp=65536+asc(ถ่าน)
if(tmp> =45217 และ tmp <=45252) แล้ว
getpychar= A
elseif(tmp> =45253 และ tmp <=45760) จากนั้น
getpychar= บี
elseif(tmp> =45761 และ tmp <=46317) จากนั้น
getpychar= ซี
elseif(tmp> =46318 และ tmp <=46825) จากนั้น
getpychar=D
elseif(tmp> =46826 และ tmp <=47009) จากนั้น
getpychar= อี
elseif(tmp> =47010 และ tmp <=47296) จากนั้น
getpychar= F
elseif(tmp> =47297 และ tmp <=47613) จากนั้น
getpychar= G
elseif(tmp> =47614 และ tmp <=48118) จากนั้น
getpychar=H
elseif(tmp> =48119 และ tmp <=49061) จากนั้น
getpychar= เจ
elseif(tmp> =49062 และ tmp <=49323) จากนั้น
getpychar= เค
elseif(tmp> =49324 และ tmp <=49895) จากนั้น
getpychar= ล
elseif(tmp> =49896 และ tmp <=50370) จากนั้น
getpychar= M
elseif(tmp> =50371 และ tmp <=50613) จากนั้น
getpychar= N
elseif(tmp> =50614 และ tmp <=50621) จากนั้น
getpychar= โอ
elseif(tmp> =50622 และ tmp <=50905) จากนั้น
getpychar= ป
elseif(tmp> =50906 และ tmp <=51386) จากนั้น
getpychar= ถาม
elseif(tmp> =51387 และ tmp <=51445) จากนั้น
getpychar= อาร์
elseif(tmp> =51446 และ tmp <=52217) จากนั้น
getpychar= ส
elseif(tmp> =52218 และ tmp <=52697) จากนั้น
getpychar= ต
elseif(tmp> =52698 และ tmp <=52979) จากนั้น
getpychar= ว
elseif(tmp> =52980 และ tmp <=53688) จากนั้น
getpychar= X
elseif(tmp> =53689 และ tmp <=54480) จากนั้น
getpychar= ย
elseif(tmp> =54481 และ tmp <=62289) จากนั้น
getpychar= Z
อย่างอื่น '如果不是中文，则不处理
getpychar=ถ่าน
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด
还有更多好的方法吗？