AsyncMethods - An Improvement on Microsoft's ScriptMethods

Imports Microsoft.VisualBasic

Public Class ForumAsyncMethodAttribute
    Inherits AsyncMethodAttribute

    Private MyValidUser As UserType = UserType.Everyone
    Public ReadOnly Property ValidUser() As UserType
        Get
            Return MyValidUser
        End Get
    End Property

    Public Sub New(ByVal validUser As UserType)
        MyValidUser = validUser
    End Sub

    Public Overrides Function IsValid(ByVal p As Page) As Boolean
        Dim fp As ForumsPage = CType(p, ForumsPage)

        If (fp.CurrentUser.UserType And ValidUser) = fp.CurrentUser.UserType Then Return True

        Return False
    End Function
End Class