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
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。