複製代碼代碼如下:
<%
'獲取字符中中文首字字符
'返回: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)或