直接看代码 :
＜script langage=vbs src=spellcode.vbs> ＜/script>
'获取客户简称的拼音缩写
fonction getpy()
dim str
je suis faible
str=document.all.txtContactName.value
faible ret
pour i=1 à len(str)
ret=ret&getpychar(mid(str,i,1))
suivant
document.all.txtSpellCode.value=ret
fonction de fin
getpychar=char
finir si
fonction de fin
sortCode.vbs
'获取汉字拼音第一字母
fonction getpychar(char)
faible tmp
tmp=65536+asc(char)
si(tmp> =45217 et tmp <=45252) alors
getpychar = A
elseif(tmp> =45253 et tmp <=45760) alors
getpychar=B
elseif(tmp> =45761 et tmp <=46317) alors
getpychar=C
elseif(tmp> =46318 et tmp <=46825) alors
getpychar=D
elseif(tmp> =46826 et tmp <=47009) alors
getpychar=E
elseif(tmp> =47010 et tmp <=47296) alors
getpychar = F
elseif(tmp> =47297 et tmp <=47613) alors
getpychar = G
elseif(tmp> =47614 et tmp <=48118) alors
getpychar=H
elseif(tmp> =48119 et tmp <=49061) alors
getpychar=J
elseif(tmp> =49062 et tmp <=49323) alors
getpychar=K
elseif(tmp> =49324 et tmp <=49895) alors
getpychar=L
elseif(tmp> =49896 et tmp <=50370) alors
getpychar = M
elseif(tmp> =50371 et tmp <=50613) alors
getpychar=N
elseif(tmp> =50614 et tmp <=50621) alors
getpychar = O
elseif(tmp> =50622 et tmp <=50905) alors
getpychar = P
elseif(tmp> =50906 et tmp <=51386) alors
getpychar=Q
elseif(tmp> =51387 et tmp <=51445) alors
getpychar=R
elseif(tmp> =51446 et tmp <=52217) alors
getpychar=S
elseif(tmp> =52218 et tmp <=52697) alors
getpychar=T
elseif(tmp> =52698 et tmp <=52979) alors
getpychar=W
elseif(tmp> =52980 et tmp <=53688) alors
getpychar= X
elseif(tmp> =53689 et tmp <=54480) alors
getpychar = Oui
elseif(tmp> =54481 et tmp <=62289) alors
getpychar=Z
else '如果不是中文，则不处理
getpychar=char
finir si
fonction de fin
还有更多好的方法吗？