newasp中main类

Else
AdminFlag = Rs("Adminflag")
AdminGrade = Rs("AdminGrade")
End If
Rs.Close: Set Rs = Nothing
If CInt(AdminGrade) = 999 Then
CheckAdmin = True
Exit Function
Else
If Trim(Flag) = "" Then Exit Function
If AdminFlag = "" Then
CheckAdmin = False
Exit Function
Else
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"
ElseIf (strTemp >= 45761 And strTemp <= 46317) Or (strTemp = 65603) Or (strTemp = 65635) Or (strTemp = 33405) Then
ReadAlpha = "C-Z"
ElseIf (strTemp >= 46318 And strTemp <= 46930) Or (strTemp >= 61884 And strTemp <= 61884) Or (strTemp = 65604) Or (strTemp >= 36820 And strTemp <= 38524) Or (strTemp = 65636) Then
ReadAlpha = "D-Z"
ElseIf (strTemp >= 46931 And strTemp <= 47009) Or (strTemp = 65605) Or (strTemp = 65637) Or (strTemp = 61513) Then
ReadAlpha = "E-Z"
ElseIf (strTemp >= 47010 And strTemp <= 47296) Or (strTemp = 65606) Or (strTemp = 65638) Or (strTemp = 61320) Or (strTemp = 63568) Or (strTemp = 36281) Then
ReadAlpha = "F-Z"
ElseIf (strTemp >= 47297 And strTemp <= 47613) Or (strTemp = 65607) Or (strTemp = 65639) Or (strTemp = 35949) Or (strTemp = 36089) Or (strTemp = 36694) Or (strTemp = 34808) Then
ReadAlpha = "G-Z"
ElseIf (strTemp >= 47614 And strTemp <= 48118) Or (strTemp >= 59112 And strTemp <= 59112) Or (strTemp = 65608) Or (strTemp = 65640) Then
ReadAlpha = "H-Z"
ElseIf (strTemp = 65641) Or (strTemp = 65609) Or (strTemp = 65641) Then
ReadAlpha = "I-Z"
ElseIf (strTemp >= 48119 And strTemp <= 49061 And strTemp <> 48739) Or (strTemp >= 62430 And strTemp <= 62430) Or (strTemp = 65610) Or (strTemp = 65642) Or