复制代码代码如下：
<％
'获取字符中中文首字字符
'返回：az; 123; ###
PublicFunctionSpellchar（Str）
DIMTMP
getspellchar =“@”
TMP = 65536+ASC（str）
如果（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）或