复制代码代码如下:
<%
'获取字符中中文首字字符
'返回 ： AZ; 123; ###
PublicFunctionGetSpellChar (STR)
DimTMP
GetSpellchar = "@"
TMP = 65536+ASC (STR)
If (tmp> = 45217andtmp <= 45252) o (tmp = 65601) o (tmp = 65633) o (tmp = 37083) entonces
GetSpellchar = "A1"
Elseif (tmp> = 45253andtmp <= 45760) o (tmp = 65602) o (tmp = 65634) o (tmp = 39658) entonces
GetSpellchar = "b1"
Elseif (tmp> = 45761andtmp <= 46317) o (tmp = 65603) o (tmp = 65635) o (tmp = 33405) entonces
GetSpellchar = "C1"
Elseif (tmp> = 46318andtmp <= 46930) o (tmp = 61884) o (tmp = 63468) o (tmp = 65604) o (tmp> = 36820
Andtmp <= 38524) o (tmp = 65636) entonces
GetSpellchar = "d1"
Elseif (tmp> = 46931andtmp <= 47009) o (tmp> = 46827andtmp <= 46842) o (tmp = 65605) o (tmp = 65637)
O (tmp = 61513) luego'468274683346842
GetSpellchar = "e1"
Elseif (tmp> = 47010andtmp <= 47296) o (tmp = 65606) o (tmp = 65638) o (tmp = 61320) o (tmp = 63568) o
(tmp = 36281) entonces
GetSpellchar = "F1"
Elseif (tmp> = 47297andtmp <= 47613) o (tmp = 65607) o (tmp = 65639) o (tmp = 35949) o (tmp = 36089) o