newasp中main类(72)

        Grades = CInt(membergrade)
        On Error Resume Next
        If Grades > 0 And memberid > 0 Then
            If binUserLong = False Then
                Set Rs = Execute("SELECT userid FROM [NC_User] WHERE password='" & CheckRequest(memberpass, 45) & "' And UserGrade=" & Grades & " And UserLock=0 And  userid =" & memberid)
                If Rs.BOF And Rs.EOF Then
                    Grades = 0
                    Response.Cookies(Cookies_Name) = ""
                    binUserLong = False
                Else
                    binUserLong = True
                End If
                Set Rs = Nothing
            End If
        End If

        Name = "GroupSetting" & Grades
        If ObjIsEmpty() Then
            SQL = "Select Groupname,GroupSet from [NC_UserGroup] where Grades =" & Grades
            Set Rs = Execute(SQL)
            If Rs.BOF And Rs.EOF Then
                Response.Cookies(Cookies_Name) = ""
                Set Rs = Nothing
                Exit Sub