直接看代码:
＜lenguaje de escritura=vbs src=spellcode.vbs> ＜/script>
'获取客户简称的拼音缩写
función getpy()
cadena tenue
oscuro yo
str=document.all.txtNombreContacto.valor
retiro oscuro
para i=1 a len(cadena)
ret=ret&getpychar(mid(str,i,1))
próximo
document.all.txtSpellCode.value=ret
función final
getpychar=char
terminar si
función final
códigodeletreo.vbs
'获取汉字拼音第一字母
función getpychar(char)
tmp tenue
tmp=65536+asc(carácter)
si (tmp> = 45217 y tmp <= 45252) entonces
getpychar=A
elseif(tmp> =45253 y tmp <=45760) entonces
obtenerpychar= B
elseif(tmp> =45761 y tmp <=46317) entonces
getpychar= C
elseif(tmp> =46318 y tmp <=46825) entonces
getpychar=D
elseif(tmp> =46826 y tmp <=47009) entonces
getpychar=E
elseif(tmp> =47010 y tmp <=47296) entonces
getpychar=F
elseif(tmp> =47297 y tmp <=47613) entonces
getpychar=G
elseif(tmp> =47614 y tmp <=48118) entonces
getpychar=H
elseif(tmp> =48119 y tmp <=49061) entonces
getpychar=J
elseif(tmp> =49062 y tmp <=49323) entonces
getpychar=K
elseif(tmp> =49324 y tmp <=49895) entonces
getpychar=L
elseif(tmp> =49896 y tmp <=50370) entonces
getpychar= M
elseif(tmp> =50371 y tmp <=50613) entonces
getpychar= norte
elseif(tmp> =50614 y tmp <=50621) entonces
getpychar=O
elseif(tmp> =50622 y tmp <=50905) entonces
getpychar=P
elseif(tmp> =50906 y tmp <=51386) entonces
getpychar=Q
elseif(tmp> =51387 y tmp <=51445) entonces
getpychar= R
elseif(tmp> =51446 y tmp <=52217) entonces
getpychar= S
elseif(tmp> =52218 y tmp <=52697) entonces
getpychar=T
elseif(tmp> =52698 y tmp <=52979) entonces
getpychar=W
elseif(tmp> =52980 y tmp <=53688) entonces
getpychar=X
elseif(tmp> =53689 y tmp <=54480) entonces
getpychar= Y
elseif(tmp> =54481 y tmp <=62289) entonces
getpychar=Z
else '如果不是中文，则不处理
getpychar=char
terminar si
función final
还有更多好的方法吗？