<skrip bahasa="vbs" src="spellcode.vbs"></skrip>
'获取客户简称的拼音缩写
fungsi getpy()
redup str
redupkan aku
str=document.all.txtContactName.value
redup ret
untuk i=1 hingga len(str)
ret=ret&getpychar(pertengahan(str,i,1))
Berikutnya
document.all.txtSpellCode.value=ret
fungsi akhir
getpychar=karakter
berakhir jika
fungsi akhir
spellCode.vbs
'获取汉字拼音第一字母
fungsi getpychar(karakter)
redupkan tmp
tmp=65536+asc(karakter)
jika(tmp>=45217 dan tmp<=45252) maka
getpychar= "A"
elseif(tmp>=45253 dan tmp<=45760) lalu
getpychar= "B"
elseif(tmp>=45761 dan tmp<=46317) lalu
getpychar= "C"
elseif(tmp>=46318 dan tmp<=46825) lalu
getpychar= "D"
elseif(tmp>=46826 dan tmp<=47009) lalu
getpychar= "E"
elseif(tmp>=47010 dan tmp<=47296) lalu
getpychar= "F"
elseif(tmp>=47297 dan tmp<=47613) lalu
getpychar= "G"
elseif(tmp>=47614 dan tmp<=48118) lalu
getpychar= "H"
elseif(tmp>=48119 dan tmp<=49061) lalu
getpychar= "J"
elseif(tmp>=49062 dan tmp<=49323) lalu
getpychar= "K"
elseif(tmp>=49324 dan tmp<=49895) lalu
getpychar= "L"
elseif(tmp>=49896 dan tmp<=50370) lalu
getpychar= "M"
elseif(tmp>=50371 dan tmp<=50613) lalu
getpychar= "N"
elseif(tmp>=50614 dan tmp<=50621) lalu
getpychar= "HAI"
elseif(tmp>=50622 dan tmp<=50905) lalu
getpychar= "P"
elseif(tmp>=50906 dan tmp<=51386) lalu
getpychar= "Q"
elseif(tmp>=51387 dan tmp<=51445) lalu
getpychar= "R"
elseif(tmp>=51446 dan tmp<=52217) lalu
getpychar= "S"
elseif(tmp>=52218 dan tmp<=52697) lalu
getpychar= "T"
elseif(tmp>=52698 dan tmp<=52979) lalu
getpychar= "W"
elseif(tmp>=52980 dan tmp<=53688) lalu
getpychar= "X"
elseif(tmp>=53689 dan tmp<=54480) lalu
getpychar= "Y"
elseif(tmp>=54481 dan tmp<=62289) lalu
getpychar= "Z"
else '如果不是中文,则不处理
getpychar=karakter
berakhir jika
fungsi akhir