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