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