复制代码代码如下:
<%
'获取字符中中文首字字符
'返回 : az; 123; ###
PublicFunctionGetSpellchar (STR)
DIMTMP
Gotspellchar = "@"
TMP = 65536+ASC (STR)
If (tmp> = 45217 dantmp <= 45252) atau (tmp = 65601) atau (tmp = 65633) atau (tmp = 37083) kemudian
Gotspellchar = "a1"
Elseif (tmp> = 45253 dantmp <= 45760) atau (tmp = 65602) atau (tmp = 65634) atau (tmp = 39658) kemudian
Gotspellchar = "b1"
Elseif (tmp> = 45761 dantmp <= 46317) atau (tmp = 65603) atau (tmp = 65635) atau (tmp = 33405) kemudian
Gotspellchar = "c1"
Elseif (tmp> = 46318 dantmp <= 46930) atau (tmp = 61884) atau (tmp = 63468) atau (tmp = 65604) atau (tmp> = 36820
Andtmp <= 38524) atau (tmp = 65636) kemudian
Gotspellchar = "d1"
Elseif (tmp> = 46931 dantmp <= 47009) atau (tmp> = 46827 dantmp <= 46842) atau (tmp = 65605) atau (tmp = 65637)
Atau (TMP = 61513) lalu'468274683346842
Gotspellchar = "e1"
Elseif (tmp> = 47010 dantmp <= 47296) atau (tmp = 65606) atau (tmp = 65638) atau (tmp = 61320) atau (tmp = 63568) atau
(TMP = 36281) Lalu
Gotspellchar = "f1"
Elseif (tmp> = 47297 dantmp <= 47613) atau (tmp = 65607) atau (tmp = 65639) atau (tmp = 35949) atau (tmp = 36089) atau