<script language="vbs" src="spellcode.vbs"></script>
'获取客户简称的拼音缩写
função getpy()
escurecimento
escurecer eu
str=document.all.txtNomeContato.value
escuro
para i=1 para len(str)
ret=ret&getpychar(mid(str,i,1))
próximo
document.all.txtSpellCode.value=ret
função final
getpychar=char
terminar se
função final
SpellCode.vbs
'获取汉字拼音第一字母
função getpychar(char)
escurecer tmp
tmp=65536+asc(char)
if(tmp>=45217 e tmp<=45252) então
getpychar = "A"
elseif(tmp>=45253 e tmp<=45760) então
getpychar = "B"
elseif(tmp>=45761 e tmp<=46317) então
getpychar = "C"
elseif(tmp>=46318 e tmp<=46825) então
getpychar = "D"
elseif(tmp>=46826 e tmp<=47009) então
getpychar = "E"
elseif(tmp>=47010 e tmp<=47296) então
getpychar = "F"
elseif(tmp>=47297 e tmp<=47613) então
getpychar = "G"
elseif(tmp>=47614 e tmp<=48118) então
getpychar = "H"
elseif(tmp>=48119 e tmp<=49061) então
getpychar = "J"
elseif(tmp>=49062 e tmp<=49323) então
getpychar = "K"
elseif(tmp>=49324 e tmp<=49895) então
getpychar = "L"
elseif(tmp>=49896 e tmp<=50370) então
getpychar = "M"
elseif(tmp>=50371 e tmp<=50613) então
getpychar = "N"
elseif(tmp>=50614 e tmp<=50621) então
getpychar = "O"
elseif(tmp>=50622 e tmp<=50905) então
getpychar = "P"
elseif(tmp>=50906 e tmp<=51386) então
getpychar = "Q"
elseif(tmp>=51387 e tmp<=51445) então
getpychar = "R"
elseif(tmp>=51446 e tmp<=52217) então
getpychar = "S"
elseif(tmp>=52218 e tmp<=52697) então
getpychar = "T"
elseif(tmp>=52698 e tmp<=52979) então
getpychar = "W"
elseif(tmp>=52980 e tmp<=53688) então
getpychar = "X"
elseif(tmp>=53689 e tmp<=54480) então
getpychar = "S"
elseif(tmp>=54481 e tmp<=62289) então
getpychar = "Z"
else '如果不是中文，则不处理
getpychar=char
terminar se
função final