直接看代碼：
＜腳本語言=vbs src=spellcode.vbs> ＜/腳本>
'獲取客戶的拼音縮寫
函數 getpy()
昏暗的海峽
昏暗的我
str=document.all.txt聯絡人姓名.value
昏暗的雷特
對於 i=1 到 len(str)
ret=ret&getpychar(中(str,i,1))
下一個
document.all.txtSpellCode.value=ret
結束函數
getpychar=字符
結束如果
結束函數
拼字代碼.vbs
'取得漢字拼音第一個字母
函數 getpychar(char)
暗淡的溫度
tmp=65536+asc(字元)
if(tmp> =45217 且 tmp <=45252) 那麼
取得pychar = A
elseif(tmp> =45253 且 tmp <=45760) 那麼
getpychar = B
elseif(tmp> =45761 且 tmp <=46317) 那麼
取得pychar = C
elseif(tmp> =46318 且 tmp <=46825) 那麼
getpychar=D
elseif(tmp> =46826 且 tmp <=47009) 那麼
取得pychar = E
elseif(tmp> =47010 且 tmp <=47296) 那麼
取得pychar = F
elseif(tmp> =47297 且 tmp <=47613) 那麼
getpychar=G
elseif(tmp> =47614 且 tmp <=48118) 那麼
getpychar=H
elseif(tmp> =48119 且 tmp <=49061) 那麼
getpychar = J
elseif(tmp> =49062 且 tmp <=49323) 那麼
getpychar=K
elseif(tmp> =49324 且 tmp <=49895) 那麼
getpychar=L
elseif(tmp> =49896 且 tmp <=50370) 那麼
getpychar=M
elseif(tmp> =50371 且 tmp <=50613) 那麼
getpychar=N
elseif(tmp> =50614 且 tmp <=50621) 那麼
取得pychar = O
elseif(tmp> =50622 且 tmp <=50905) 那麼
取得pychar = P
elseif(tmp> =50906 且 tmp <=51386) 那麼
getpychar=Q
elseif(tmp> =51387 且 tmp <=51445) 那麼
getpychar=R
elseif(tmp> =51446 且 tmp <=52217) 那麼
getpychar = S
elseif(tmp> =52218 且 tmp <=52697) 那麼
取得pychar = T
elseif(tmp> =52698 且 tmp <=52979) 那麼
getpychar=W
elseif(tmp> =52980 且 tmp <=53688) 那麼
取得pychar = X
elseif(tmp> =53689 且 tmp <=54480) 那麼
getpychar = Y
elseif(tmp> =54481 且 tmp <=62289) 那麼
取得pychar = Z
else '如果不是中文，則不處理
getpychar=字符
結束如果
結束函數
還有更好的方法嗎？