الحصول على الحرف الأول من بينيين الصينية

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

'الحصول على أفضل النتائج
وظيفة getpy ()
شارع خافت
خافت أنا
str=document.all.txtContactName.value
متقاعد خافت
لأني = 1 إلى لين (شارع)
ret=ret&getpychar(mid(str,i,1))
التالي
document.all.txtSpellCode.value=ret
وظيفة النهاية
getpychar=char
نهاية إذا
وظيفة النهاية
SpellCode.vbs

'获取汉字拼音第一字母
وظيفة getpychar (شار)
خافت tmp
تمب = 65536 + تصاعدي (شار)
إذا (tmp>=45217 وtmp<=45252) إذن
getpychar = "أ"
elseif(tmp>=45253 وtmp<=45760) بعد ذلك
getpychar = "ب"
elseif(tmp>=45761 وtmp<=46317) بعد ذلك
getpychar = "C"
elseif(tmp>=46318 وtmp<=46825) بعد ذلك
getpychar = "د"
elseif(tmp>=46826 وtmp<=47009) بعد ذلك
getpychar = "E"
elseif(tmp>=47010 وtmp<=47296) بعد ذلك
getpychar = "F"
elseif(tmp>=47297 وtmp<=47613) بعد ذلك
getpychar = "ز"
elseif(tmp>=47614 وtmp<=48118) بعد ذلك
جيتبيشار = "ح"
elseif(tmp>=48119 وtmp<=49061) بعد ذلك
getpychar = "J"
elseif(tmp>=49062 وtmp<=49323) بعد ذلك
getpychar = "ك"
elseif(tmp>=49324 وtmp<=49895) بعد ذلك
getpychar = "L"
elseif(tmp>=49896 وtmp<=50370) بعد ذلك
getpychar = "م"
elseif(tmp>=50371 وtmp<=50613) بعد ذلك
getpychar = "N"
elseif(tmp>=50614 وtmp<=50621) بعد ذلك
getpychar = "س"
elseif(tmp>=50622 وtmp<=50905) بعد ذلك
getpychar = "P"
elseif(tmp>=50906 وtmp<=51386) بعد ذلك
getpychar = "س"
elseif(tmp>=51387 وtmp<=51445) بعد ذلك
getpychar = "R"
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 = "ص"
elseif(tmp>=54481 وtmp<=62289) بعد ذلك
getpychar = "Z"
آخر 'مرحبا بكم في المستقبل
getpychar=char
نهاية إذا
وظيفة النهاية