复制代码代码如下:
<%
'获取字符中中文首字字符
返回 : AZ; 123; ###
Publicfunctiongetspellchar (str)
Dimtmp
Getspellchar = "@"
TMP = 65536+ASC (Str)
If (tmp> = 45217Andtmp <= 45252) или (tmp = 65601) или (tmp = 65633) или (tmp = 37083), тогда
Getspellchar = "a1"
Elseif (TMP> = 452533Andtmp <= 45760) или (TMP = 65602) или (TMP = 65634) или (TMP = 39658)
Getspellchar = "b1"
Elseif (tmp> = 457611ндтмп <= 46317) или (tmp = 65603) или (tmp = 65635) или (tmp = 33405)
Getspellchar = "c1"
Elseif (tmp> = 46318Andtmp <= 46930) или (TMP = 61884) или (TMP = 63468) или (TMP = 65604) или (TMP> = 36820
И THMP <= 38524) или (TMP = 65636)
Getspellchar = "d1"
Elseif (tmp> = 46931Andtmp <= 47009) или (tmp> = 46827Andtmp <= 46842) или (TMP = 65605) или (TMP = 65637)
Или (TMP = 61513) Then'468274683346842
Getspellchar = "e1"
Elseif (tmp> = 4701010andtmp <= 47296) или (TMP = 65606) или (TMP = 65638) или (TMP = 61320) или (TMP = 63568) или
(TMP = 36281) тогда
Getspellchar = "f1"
Elseif (tmp> = 47297Andtmp <= 47613) или (TMP = 65607) или (TMP = 65639) или (TMP = 35949) или (TMP = 36089) или