直接看代码：
＜脚本语言=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=字符
结束如果
结束函数
还有更好的方法吗？