newasp中main类(58)

        Else
            CodeIsTrue = False
            Session("GetCode") = Empty
        End If
    End Function
    Public Function CheckAdmin(ByVal Flag)
        Dim Rs, SQL
        Dim i, TempAdmin, AdminFlag, AdminGrade

        CheckAdmin = False
        On Error Resume Next
        SQL = "SELECT AdminGrade,Adminflag FROM NC_Admin WHERE username='" & Replace(Session("AdminName"), "'", "''") & "' And password='" & Replace(Session("AdminPass"), "'", "''") & "' And isLock=0 And id=" & CLng(Session("AdminID"))
        Set Rs = Execute(SQL)
        If Rs.BOF And Rs.EOF Then
            CheckAdmin = False
            Set Rs = Nothing
            Exit Function
        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