复制代码代码如下 :
<%
'获取字符中中文首字字符
'; ： az; 123; ###
PublicFunctionGetSpellchar (str)
Dimtmp
getSpellchar = "@"
TMP = 65536+ASC (str)
if (tmp> = 45217andtmp <= 45252) 또는 (tmp = 65601) 또는 (tmp = 65633) 또는 (tmp = 37083)
getSpellchar = "A1"
elseif (tmp> = 45253andtmp <= 45760) 또는 (tmp = 65602) 또는 (tmp = 65634) 또는 (tmp = 39658)
getSpellchar = "B1"
elseif (tmp> = 45761andtmp <= 46317) 또는 (tmp = 65603) 또는 (tmp = 65635) 또는 (tmp = 33405)
getSpellchar = "C1"
elseif (tmp> = 46318andtmp <= 46930) 또는 (tmp = 61884) 또는 (tmp = 63468) 또는 (tmp = 65604) 또는 (tmp> = 36820
andtmp <= 38524) 또는 (tmp = 65636)
getSpellchar = "D1"
elseif (tmp> = 46931andtmp <= 47009) 또는 (tmp> = 46827andtmp <= 46842) 또는 (tmp = 65605) 또는 (tmp = 65637)
또는 (TMP = 61513) 그런 다음 '468274683346842
getSpellchar = "e1"
elseif (tmp> = 47010andtmp <= 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) 또는