复制代码代码如下：
<％
'获取字符中中文首字字符
'返回：az; 123; ###
publicFunctionGetSpellChar（str）
dimtmp
getSpellChar = "@"
TMP = 65536+ASC（STR）
（tmp> = 45217andtmp <= 45252）または（tmp = 65601）または（tmp = 65633）または（tmp = 37083）thenの場合
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）Then'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）または