รับอักษรพินอินภาษาจีนตัวแรก

<script language="vbs" src="spellcode.vbs"></script>

获取客户简称的拼音缩写
ฟังก์ชั่น 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= "B"
elseif(tmp>=45761 และ tmp<=46317) แล้ว
getpychar= "C"
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= "K"
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= "O"
elseif(tmp>=50622 และ tmp<=50905) แล้ว
getpychar= "P"
elseif(tmp>=50906 และ tmp<=51386) แล้ว
getpychar= "คิว"
elseif(tmp>=51387 และ tmp<=51445) แล้ว
getpychar= "ร"
elseif(tmp>=51446 และ tmp<=52217) แล้ว
getpychar= "S"
elseif(tmp>=52218 และ tmp<=52697) แล้ว
getpychar= "T"
elseif(tmp>=52698 และ tmp<=52979) แล้ว
getpychar= "W"
elseif(tmp>=52980 และ tmp<=53688) แล้ว
getpychar= "X"
elseif(tmp>=53689 และ tmp<=54480) แล้ว
getpychar= "Y"
elseif(tmp>=54481 และ tmp<=62289) แล้ว
getpychar= "Z"
อย่างอื่น '如果不是中文，则不处理
getpychar=ถ่าน
สิ้นสุดถ้า
ฟังก์ชั่นสิ้นสุด