直接看代码:
＜script language=vbs src=spellcode.vbs> ＜/script>
'获取客户简称的拼音缩写
Funktion getpy()
dim str
dim ich
str=document.all.txtContactName.value
schwach ret
für i=1 bis len(str)
ret=ret&getpychar(mid(str,i,1))
nächste
document.all.txtSpellCode.value=ret
Endfunktion
getpychar=char
Ende wenn
Endfunktion
SpellCode.vbs
'获取汉字拼音第一字母
Funktion getpychar(char)
dimmte Temperatur
tmp=65536+asc(char)
if(tmp> =45217 und tmp <=45252) dann
getpychar= A
elseif(tmp> =45253 und tmp <=45760) dann
getpychar= B
elseif(tmp> =45761 und tmp <=46317) dann
getpychar= C
elseif(tmp> =46318 und tmp <=46825) dann
getpychar= D
elseif(tmp> =46826 und tmp <=47009) dann
getpychar= E
elseif(tmp> =47010 und tmp <=47296) dann
getpychar= F
elseif(tmp> =47297 und tmp <=47613) dann
getpychar= G
elseif(tmp> =47614 und tmp <=48118) dann
getpychar= H
elseif(tmp> =48119 und tmp <=49061) dann
getpychar= J
elseif(tmp> =49062 und tmp <=49323) dann
getpychar= K
elseif(tmp> =49324 und tmp <=49895) dann
getpychar= L
elseif(tmp> =49896 und tmp <=50370) dann
getpychar= M
elseif(tmp> =50371 und tmp <=50613) dann
getpychar= N
elseif(tmp> =50614 und tmp <=50621) dann
getpychar= O
elseif(tmp> =50622 und tmp <=50905) dann
getpychar= P
elseif(tmp> =50906 und tmp <=51386) dann
getpychar= Q
elseif(tmp> =51387 und tmp <=51445) dann
getpychar= R
elseif(tmp> =51446 und tmp <=52217) dann
getpychar= S
elseif(tmp> =52218 und tmp <=52697) dann
getpychar= T
elseif(tmp> =52698 und tmp <=52979) dann
getpychar= W
elseif(tmp> =52980 und tmp <=53688) dann
getpychar= X
elseif(tmp> =53689 und tmp <=54480) dann
getpychar= Y
elseif(tmp> =54481 und tmp <=62289) dann
getpychar= Z
sonst '如果不是中文，则不处理
getpychar=char
Ende wenn
Endfunktion
还有更多好的方法吗？