复制代码代码如下:
<%
'获取字符中中文首字字符
'返回:A-Z;123;###
PublicFunctionGetSpellChar(str)
Dimtmp
GetSpellChar="@"
tmp=65536+Asc(str)
If(tmp>=45217Andtmp<=45252)Or(tmp=65601)Or(tmp=65633)Or(tmp=37083)Then
GetSpellChar="A1"
ElseIf(tmp>=45253Andtmp<=45760)Or(tmp=65602)Or(tmp=65634)Or(tmp=39658)Then
GetSpellChar="B1"
ElseIf(tmp>=45761Andtmp<=46317)Or(tmp=65603)Or(tmp=65635)Or(tmp=33405)Then
GetSpellChar="C1"
ElseIf(tmp>=46318Andtmp<=46930)Or(tmp=61884)Or(tmp=63468)Or(tmp=65604)Or(tmp>=36820
Andtmp<=38524)Or(tmp=65636)Then
GetSpellChar="D1"
ElseIf(tmp>=46931Andtmp<=47009)Or(tmp>=46827Andtmp<=46842)Or(tmp=65605)Or(tmp=65637)
Or(tmp=61513)Then'468274683346842
GetSpellChar="E1"
ElseIf(tmp>=47010Andtmp<=47296)Or(tmp=65606)Or(tmp=65638)Or(tmp=61320)Or(tmp=63568)Or
(tmp=36281)Then
GetSpellChar="F1"
ElseIf(tmp>=47297Andtmp<=47613)Or(tmp=65607)Or(tmp=65639)Or(tmp=35949)Or(tmp=36089)Or