newasp中main类(59)

                TempAdmin = Split(AdminFlag, ",")
                For i = 0 To UBound(TempAdmin)
                    If Trim(LCase(TempAdmin(i))) = Trim(LCase(Flag)) Then
                        CheckAdmin = True
                        Exit For
                    End If
                Next
            End If
        End If
    End Function
    '================================================
    '函数名：ReadAlpha
    '作  用：读取字符串的第一个字母
    '参  数：str   ----字符
    '返回值：返回第一个字母
    '================================================
    Public Function ReadAlpha(ByVal str)
        Dim strTemp
        If IsNull(str) Or Trim(str) = "" Then
            ReadAlpha = "A-9"
            Exit Function
        End If
        str = Trim(str)
        strTemp = 65536 + Asc(str)
        If (strTemp >= 45217 And strTemp <= 45252) Or (strTemp = 65601) Or (strTemp = 65633) Or (strTemp = 37083) Then
            ReadAlpha = "A-Z"
        ElseIf (strTemp >= 45253 And strTemp <= 45760) Or (strTemp = 65602) Or (strTemp = 65634) Or (strTemp = 39658) Then
            ReadAlpha = "B-Z"