<script Language="vbs" src="spellcode.vbs"></script>
'获取客户简称的拼音缩写
функция getpy()
Тусклая улица
тусклый я
str=document.all.txtContactName.value
тусклый свет
от i=1 до len(str)
ret=ret&getpychar(mid(str,i,1))
следующий
document.all.txtSpellCode.value=ret
конечная функция
getpychar=символ
конец, если
конечная функция
SpellCode.vbs
'获取汉字拼音第一字母
функция getpychar(символ)
тусклый темп
tmp=65536+возрастание(символ)
если(tmp>=45217 и tmp<=45252), то
getpychar="А"
elseif(tmp>=45253 и tmp<=45760), тогда
getpychar="Б"
elseif(tmp>=45761 и tmp<=46317), затем
getpychar="С"
elseif(tmp>=46318 и tmp<=46825), затем
getpychar="Д"
elseif(tmp>=46826 и tmp<=47009), затем
getpychar="Е"
elseif(tmp>=47010 и tmp<=47296), затем
getpychar="F"
elseif(tmp>=47297 и tmp<=47613), затем
getpychar="Г"
elseif(tmp>=47614 и tmp<=48118), тогда
getpychar="Ч"
elseif(tmp>=48119 и tmp<=49061), затем
getpychar="J"
elseif(tmp>=49062 и tmp<=49323), затем
getpychar="К"
elseif(tmp>=49324 и tmp<=49895), затем
getpychar="L"
elseif(tmp>=49896 и tmp<=50370), затем
getpychar="М"
elseif(tmp>=50371 и tmp<=50613), затем
getpychar="Н"
elseif(tmp>=50614 и tmp<=50621), затем
getpychar="О"
elseif(tmp>=50622 и tmp<=50905), затем
getpychar="П"
elseif(tmp>=50906 и tmp<=51386), затем
getpychar="Q"
elseif(tmp>=51387 и tmp<=51445), тогда
getpychar="Р"
elseif(tmp>=51446 и tmp<=52217), тогда
getpychar="S"
elseif(tmp>=52218 и tmp<=52697), тогда
getpychar="Т"
elseif(tmp>=52698 и tmp<=52979), затем
getpychar="W"
elseif(tmp>=52980 и tmp<=53688), затем
получитьpychar="X"
elseif(tmp>=53689 и tmp<=54480), затем
getpychar="Y"
elseif(tmp>=54481 и tmp<=62289), затем
getpychar="Z"
else '如果不是中文，则不处理
getpychar=символ
конец, если
конечная функция