<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 = "Y"
elseif(tmp>=54481 et tmp<=62289) alors
getpychar = "Z"
else '如果不是中文，则不处理
getpychar=char
finir si
fonction de fin