复制代码 代码如下:

<%

'获取字符中中文首字字符

'返回：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

(tmp=36694)Or(tmp=34808)Then

GetSpellChar="G1"

ElseIf(tmp>=47614Andtmp<=48118)Or(tmp=59112)Or(tmp=40296)Or(tmp=65608)Or(tmp=65640)

Then

GetSpellChar="H1"

ElseIf(tmp=65641)Or(tmp=65609)Or(tmp=65641)Then

GetSpellChar="I1"

ElseIf(tmp>=48119Andtmp<=49061Andtmp<>48739)Or(tmp>=62430Andtmp<=62430)Or(tmp=65610)

Or(tmp=65642)Or(tmp=39048)Then

GetSpellChar="J1"

ElseIf(tmp>=49062Andtmp<=49323)Or(tmp=65611)Or(tmp=65643)Then

GetSpellChar="K1"

ElseIf(tmp>=49324Andtmp<=49895)Or(tmp>=58838Andtmp<=58838)Or(tmp=65612)Or(tmp=65644)

Or(tmp=62418)Or(tmp=48739)Then

GetSpellChar="L1"

ElseIf(tmp>=49896Andtmp<=50370)Or(tmp=63432)Or(tmp=65613)Or(tmp=65645)Then

GetSpellChar="M1"

ElseIf(tmp>=50371Andtmp<=50613)Or(tmp=65614)Or(tmp=65646)Then

GetSpellChar="N1"

ElseIf(tmp>=50614Andtmp<=50621)Or(tmp=65615)Or(tmp=65615)Or(tmp=65647)Then

GetSpellChar="O1"

ElseIf(tmp>=50622Andtmp<=50905)Or(tmp=65616)Or(tmp=65648)Then

GetSpellChar="P1"

ElseIf(tmp>=50906Andtmp<=51386)Or(tmp>=62659Andtmp<=63172)Or(tmp=63464)Or(tmp=63226)

Or(tmp=65617)Or(tmp=65649)Then

GetSpellChar="Q1"

ElseIf(tmp>=51387Andtmp<=51445)Or(tmp=65618)Or(tmp=65650)Then

GetSpellChar="R1"

ElseIf(tmp>=51446Andtmp<=52217)Or(tmp=65619)Or(tmp=65651)Or(tmp=34009)Then

GetSpellChar="S1"

ElseIf(tmp>=52218Andtmp<=52697)Or(tmp=65620)Or(tmp=65652)Then

GetSpellChar="T1"

ElseIf(tmp=65621)Or(tmp=65653)Then

GetSpellChar="U1"

ElseIf(tmp=65622)Or(tmp=65654)Then

GetSpellChar="V1"

ElseIf(tmp>=52698Andtmp<=52979)Or(tmp=65623)Or(tmp=65655)Then

GetSpellChar="W1"

ElseIf(tmp>=52980Andtmp<=53688)Or(tmp=63182)Or(tmp=65624)Or(tmp=65656)Then

GetSpellChar="X1"

ElseIf(tmp>=53689Andtmp<=54480)Or(tmp=65625)Or(tmp=65657)Then

GetSpellChar="Y1"

ElseIf(tmp>=54481Andtmp<=62383Andtmp<>59112Andtmp<>58838Andtmp<>57566)Or(tmp=65626)Or

(tmp=65658)Or(tmp=38395)Or(tmp=39783)Then

GetSpellChar="Z1"

EndIf

If(tmp>=65601Andtmp<=65658)ThenGetSpellChar=UCase(Left(Trim(str),1))'字母

If(tmp>=65584Andtmp<=65593)ThenGetSpellChar="123"'数字

'Response.Write(tmp)

EndFunction

response.writeGetSpellChar("脚")

response.writeGetSpellChar("本")

response.writeGetSpellChar("之")

%>