复制代码代码如下:
<%
'获取字符中中文首字字符
'返回: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)または