pinyin.asp

佛山的公交车查询系统

<%
	' ============================================
    '   function（公有）
    '   作用 ：取得字符的拼音
    ' ============================================
    Public Function GetPyChar(Char)
		Char = Left(Char,1)
        tmp = 65536 + Asc(Char)
        If (tmp >= 45217 And tmp <= 45252) Or (tmp = 65601) Or (tmp = 65633) Or (tmp = 37083) Then
            GetPyChar = "A"
        ElseIf (tmp >= 45253 And tmp <= 45760) Or (tmp = 65602) Or (tmp = 65634) Or (tmp = 39658) Then
            GetPyChar = "B"
        ElseIf (tmp >= 45761 And tmp <= 46317) Or (tmp = 65603) Or (tmp = 65635) Or (tmp = 33405) Then
            GetPyChar = "C"
        ElseIf (tmp >= 46318 And tmp <= 46930) Or (tmp >= 61884 And tmp <= 61884) Or (tmp = 65604) Or (tmp >= 36820 And tmp <= 38524) Or (tmp = 65636) Then
            GetPyChar = "D"
        ElseIf (tmp >= 46931 And tmp <= 47009) Or (tmp = 65605) Or (tmp = 65637) Or (tmp = 61513) Then
            GetPyChar = "E"
        ElseIf (tmp >= 47010 And tmp <= 47296) Or (tmp = 65606) Or (tmp = 65638) Or (tmp = 61320) Or (tmp = 63568) Or (tmp = 36281) Then
            GetPyChar = "F"
        ElseIf (tmp >= 47297 And tmp <= 47613) Or (tmp = 65607) Or (tmp = 65639) Or (tmp = 35949) Or (tmp = 36089) Or (tmp = 36694) Or (tmp = 34808) Then
            GetPyChar = "G"
        ElseIf (tmp >= 47614 And tmp <= 48118) Or (tmp >= 59112 And tmp <= 59112) Or (tmp = 65608) Or (tmp = 65640) Then
            GetPyChar = "H"
        ElseIf (tmp = 65641) Or (tmp = 65609) Or (tmp = 65641) Then
            GetPyChar = "I"
        ElseIf (tmp >= 48119 And tmp <= 49061 And tmp <> 48739) Or (tmp >= 62430 And tmp <= 62430) Or (tmp = 65610) Or (tmp = 65642) Or (tmp = 39048) Then
            GetPyChar = "J"
        ElseIf (tmp >= 49062 And tmp <= 49323) Or (tmp = 65611) Or (tmp = 65643) Then
            GetPyChar = "K"
        ElseIf (tmp >= 49324 And tmp <= 49895) Or (tmp >= 58838 And tmp <= 58838) Or (tmp = 65612) Or (tmp = 65644) Or (tmp = 62418) Or (tmp = 48739) Then
            GetPyChar = "L"
        ElseIf (tmp >= 49896 And tmp <= 50370) Or (tmp = 65613) Or (tmp = 65645) Then
            GetPyChar = "M"
        ElseIf (tmp >= 50371 And tmp <= 50613) Or (tmp = 65614) Or (tmp = 65646) Then
            GetPyChar = "N"
        ElseIf (tmp >= 50614 And tmp <= 50621) Or (tmp = 65615) Or (tmp = 65647) Then
            GetPyChar = "O"
        ElseIf (tmp >= 50622 And tmp <= 50905) Or (tmp = 65616) Or (tmp = 65648) Then
            GetPyChar = "P"
        ElseIf (tmp >= 50906 And tmp <= 51386) Or (tmp >= 62659 And tmp <= 63172) Or (tmp = 65617) Or (tmp = 65649) Then
            GetPyChar = "Q"
        ElseIf (tmp >= 51387 And tmp <= 51445) Or (tmp = 65618) Or (tmp = 65650) Then
            GetPyChar = "R"
        ElseIf (tmp >= 51446 And tmp <= 52217) Or (tmp = 65619) Or (tmp = 65651) Or (tmp = 34009) Then
            GetPyChar = "S"
        ElseIf (tmp >= 52218 And tmp <= 52697) Or (tmp = 65620) Or (tmp = 65652) Then
            GetPyChar = "T"
        ElseIf (tmp = 65621) Or (tmp = 65653) Then
            GetPyChar = "U"
        ElseIf (tmp = 65622) Or (tmp = 65654) Then
            GetPyChar = "V"
        ElseIf (tmp >= 52698 And tmp <= 52979) Or (tmp = 65623) Or (tmp = 65655) Then
            GetPyChar = "W"
        ElseIf (tmp >= 52980 And tmp <= 53688) Or (tmp = 65624) Or (tmp = 65656) Then
            GetPyChar = "X"
        ElseIf (tmp >= 53689 And tmp <= 54480) Or (tmp = 65625) Or (tmp = 65657) Then
            GetPyChar = "Y"
        ElseIf (tmp >= 54481 And tmp <= 62383 And tmp <> 59112 And tmp <> 58838) Or (tmp = 65626) Or (tmp = 65658) Or (tmp = 38395) Or (tmp = 39783) Then
            GetPyChar = "Z"
        ElseIf (tmp = 65584) Then
            GetPyChar = "0"
        ElseIf (tmp = 65585) Then
            GetPyChar = "0"
        ElseIf (tmp = 65586) Then
            GetPyChar = "0"
        ElseIf (tmp = 65587) Then
            GetPyChar = "0"
        ElseIf (tmp = 65588) Then
            GetPyChar = "0"
        ElseIf (tmp = 65589) Then
            GetPyChar = "0"
        ElseIf (tmp = 65590) Then
            GetPyChar = "0"
        ElseIf (tmp = 65591) Then
            GetPyChar = "0"
        ElseIf (tmp = 65592) Then
            GetPyChar = "0"
        ElseIf (tmp = 65593) Then
            GetPyChar = "0"
        Else
            GetPyChar = "0"
        End If
    End Function
	
	Response.Write GetPyChar("国家")
%>