Requirements
This article assumes that you have already implemented forms-based authentication on an ASP.NET application. For additional information, click the article number below to view the article in the Microsoft Knowledge Base:308157 How To Implement Forms-Based Authentication in Your ASP.NET Application by Using Visual Basic .NET
Assign the Roles to the Authenticating User
Because forms users usually are not Microsoft Windows users, they do not have any roles associated with them by default. Thus, you must attach the roles of the authenticating user to that user's identity so that you can implement the role-based security inside your code.Use the sample code in this section to implement role-based security in your application. This sample code assigns pre-specified roles to the authenticating user. Depending how you store your user data, you can implement your own method to retrieve the roles for that authenticated user and attach those roles to the authenticating user's identity, which is illustrated in the sample code to follow.
Copy the following code in your Global.asax file in your existing application to assign the roles to the authenticating user in the Application_AuthenticateRequest event handler:
Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
if (not(HttpContext.Current.User is Nothing)) then
if HttpContext.Current.User.Identity.AuthenticationType = "Forms" then
Dim id as System.Web.Security.FormsIdentity
id = HttpContext.Current.User.Identity
Dim MyRoles(2) As String
MyRoles(0) = "Manager"
MyRoles(1) = "Admin"
HttpContext.Current.User = new System.Security.Principal.GenericPrincipal(id,MyRoles)
End if
End if
End sub
Check the User Roles and Implement the Program Logic in Your ASPX Pages
The following steps demonstrate how to implement and control the program logic based on the roles to which the authenticating user belongs.- Create a new .aspx page named Sample.aspx, and paste the following code:
<%@ Page Language="VB" %> <%@ Import Namespace="System.Web" %> <script runat=server> Sub Page_Load(Src As Object, E As EventArgs) if User.IsInRole("Admin") then Response.Write ("You are an Administrator") Else Response.Write ("You do not have any role assigned") End if End Sub </script> - Save Sample.aspx in your existing application. Browse to the page to test it.