<腳本語言=“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) 那麼
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=“E”
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=“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) 那麼
getpychar=“O”
elseif(tmp>=50622 且 tmp<=50905) 那麼
getpychar=“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) 那麼
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”
else '如果不是中文，則不處理
getpychar=字符
結束如果
結束函數