<script language="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(cadena,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
getpychar = "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= "N"
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