<脚本语言=“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=字符
结束如果
结束函数