复制代码代码如下:
<%
'获取字符中中文首字字符
'返回 : AZ; 123; ###
PublicFunctiongetSpellchar (STR)
Dimtmp
Getpellchar = "@"
TMP = 65536 + ASC (STR)
If (tmp> = 45217andtmp <= 45252) ou (tmp = 65601) ou (tmp = 65633) ou (tmp = 37083)
Getpellchar = "a1"
Elseif (tmp> = 45253andtmp <= 45760) ou (tmp = 65602) ou (tmp = 65634) ou (tmp = 39658)
Getpellchar = "b1"
ElseIf (tmp> = 45761andtmp <= 46317) ou (tmp = 65603) ou (tmp = 65635) ou (tmp = 33405)
Getpellchar = "c1"
Elseif (tmp> = 46318andtmp <= 46930) ou (tmp = 61884) ou (tmp = 63468) ou (tmp = 65604) ou (tmp> = 36820
AndTMP <= 38524) ou (tmp = 65636) puis
Getpellchar = "d1"
ElseIf (tmp> = 46931andtmp <= 47009) ou (tmp> = 46827andtmp <= 46842) ou (tmp = 65605) ou (tmp = 65637)
Ou (tmp = 61513) alors'468274683346842
Getpellchar = "e1"
ElseIF (tmp> = 47010andtmp <= 47296) ou (tmp = 65606) ou (tmp = 65638) ou (tmp = 61320) ou (tmp = 63568) ou
(tmp = 36281) alors
Getpellchar = "f1"
ElseIf (tmp> = 47297andtmp <= 47613) ou (tmp = 65607) ou (tmp = 65639) ou (tmp = 35949) ou (tmp = 36089) ou