newasp中main类(62)

            ReadAlpha = "S-Z"
        ElseIf (strTemp >= 52218 And strTemp <= 52697) Or (strTemp = 65620) Or (strTemp = 65652) Then
            ReadAlpha = "T-Z"
        ElseIf (strTemp = 65621) Or (strTemp = 65653) Then
            ReadAlpha = "U-Z"
        ElseIf (strTemp = 65622) Or (strTemp = 65654) Then
            ReadAlpha = "V-Z"
        ElseIf (strTemp >= 52698 And strTemp <= 52979) Or (strTemp = 65623) Or (strTemp = 65655) Then
            ReadAlpha = "W-Z"
        ElseIf (strTemp >= 52980 And strTemp <= 53688) Or (strTemp = 65624) Or (strTemp = 65656) Then
            ReadAlpha = "X-Z"
        ElseIf (strTemp >= 53689 And strTemp <= 54480) Or (strTemp = 65625) Or (strTemp = 65657) Then
            ReadAlpha = "Y-Z"
        ElseIf (strTemp >= 54481 And strTemp <= 62383 And strTemp <> 59112 And strTemp <> 58838) Or (strTemp = 65626) Or (strTemp = 65658) Or (strTemp = 38395) Or (strTemp = 39783) Then
            ReadAlpha = "Z-Z"
        Else
            ReadAlpha = "A-9"
        End If
        If (strTemp >= 65633 And strTemp <= 65658) Or (strTemp >= 65601 And strTemp <= 65626) Then ReadAlpha = UCase(Left(str, 1))
        If (strTemp >= 65584 And strTemp <= 65593) Then ReadAlpha = "0-9"