直接看代码:
<스크립트 언어=vbs src=spellcode.vbs> </script>
'获取客户简称的拼Music缩写'
함수 getpy()
희미한 str
나 어두워
str=document.all.txtContactName.value
어두워
i=1에서 len(str)까지
ret=ret&getpychar(mid(str,i,1))
다음
document.all.txtSpellCode.value=ret
종료 기능
getpychar=문자
종료하면
종료 기능
철자코드.vbs
'获取汉字拼音第一字母'
함수 getpychar(char)
희미한 시간
tmp=65536+asc(문자)
if(tmp> =45217 및 tmp <=45252) 그러면
getpychar=A
elseif(tmp> =45253 및 tmp <=45760) 그런 다음
getpychar=B
elseif(tmp> =45761 및 tmp <=46317) 그런 다음
getpychar=C
elseif(tmp> =46318 및 tmp <=46825) 그런 다음
getpychar=D
elseif(tmp> =46826 및 tmp <=47009) 그런 다음
getpychar=E
elseif(tmp> =47010 및 tmp <=47296) 그런 다음
getpychar= F
elseif(tmp> =47297 및 tmp <=47613) 그런 다음
getpychar=G
elseif(tmp> =47614 및 tmp <=48118) 그런 다음
getpychar= H
elseif(tmp> =48119 및 tmp <=49061) 그런 다음
getpychar=J
elseif(tmp> =49062 및 tmp <=49323) 그런 다음
getpychar=K
elseif(tmp> =49324 및 tmp <=49895) 그런 다음
getpychar=L
elseif(tmp> =49896 및 tmp <=50370) 그런 다음
getpychar=엠
elseif(tmp> =50371 및 tmp <=50613) 그런 다음
getpychar=N
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= R
elseif(tmp> =51446 및 tmp <=52217) 그런 다음
getpychar= S
elseif(tmp> =52218 및 tmp <=52697) 그런 다음
getpychar=T
elseif(tmp> =52698 및 tmp <=52979) 그런 다음
getpychar=W
elseif(tmp> =52980 및 tmp <=53688) 그런 다음
getpychar=X
elseif(tmp> =53689 및 tmp <=54480) 그런 다음
getpychar=Y
elseif(tmp> =54481 및 tmp <=62289) 그런 다음
getpychar=Z
else '如果不是中文，则不处리
getpychar=문자
종료하면
종료 기능
더 많은 유용한 방법이 있나요?