Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
        ' 尝试对使用进行身份验证时激发
        If Request.IsAuthenticated Then
            If User.Identity.Name.ToLower = "a" Then
                Dim roles() As String = {"administrator", "normal"}
                Context.User = New GenericPrincipal(User.Identity, roles)
            End If
        End If
    End Sub