Sub Application_AuthenticateRequest(ByVal sender As Object, ByVal e As EventArgs)
    If HttpContext.Current.User IsNot Nothing Then
        If HttpContext.Current.User.Identity.IsAuthenticated Then
            If TypeOf HttpContext.Current.User.Identity Is FormsIdentity Then
                Dim id As FormsIdentity = DirectCast(HttpContext.Current.User.Identity, FormsIdentity)
                Dim ticket As FormsAuthenticationTicket = id.Ticket
                Dim userData As String = ticket.UserData
                Dim roles As String() = userData.Split(","c)
                HttpContext.Current.User = New GenericPrincipal(id, roles)
            End If
        End If
    End If
End Sub

تکمیل کنترل GridView همراه با نقش کاربران :

تگ های HTML شامل کنترل GridView مخصوص به Asp.Net با یک ستون BoundField برای نمایش نام کاربری و دو TemplateField که در یکیDropDownList و دیگری شامل دکمه میباشد.کنترل GridView که به یک رویداد OnRowDataBound  متصل شده است.

<asp:Panel ID="pnlAssignRoles" runat="server" Visible="false">
    <asp:GridView ID="gvUsers" runat="server" AutoGenerateColumns="false" OnRowDataBound="OnRowDataBound">
        <Columns>
            <asp:BoundField DataField="Username" HeaderText="Username" />
            <asp:TemplateField HeaderText="Role">
                <ItemTemplate>
                    <asp:DropDownList ID="ddlRoles" runat="server">
                    </asp:DropDownList>
                </ItemTemplate>
            </asp:TemplateField>
            <asp:TemplateField HeaderText="Role">
                <ItemTemplate>
                    <asp:Button ID="btnUpdate" Text="Update" runat="server" CommandArgument='<%# Eval("UserId") %>'
                        OnClick="UpdateRole" />
                </ItemTemplate>
            </asp:TemplateField>
        </Columns>
    </asp:GridView>
</asp:Panel>

یکبار کاربر وارد سایت می شود , چک میشود که کاربر وارد شده چه نقشی دارد , اگر کاربر وارد شده نقش مدیر را دارد سپس کنترل GridView قابل نمایش میباشد , داخل رویداد OnRowDataBound کنترل DropDownList  که هر سطر نقش کاربران را از جدول Rols  فراخوانی می کند و نمایش میدهد.یکبار DropDownList  نمایش داده میشود و نقش مربوط به هر سطر را به کاربر مربوط به آن سطر نمایش می دهد.

کد C# :

protected void Page_Load(object sender, EventArgs e)
{
    if (!this.IsPostBack)
    {
        if (!this.Page.User.Identity.IsAuthenticated)
        {
            Response.Redirect("~/Login.aspx");
        }
        if (this.Page.User.IsInRole("Administrator"))
        {
            pnlAssignRoles.Visible = true;
            gvUsers.DataSource = GetData("SELECT UserId, Username, RoleId FROM Users");
            gvUsers.DataBind();
        }
    }
}
 
private DataTable GetData(string query)
{
    string constr = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
    using (SqlConnection con = new SqlConnection(constr))
    {
        using (SqlCommand cmd = new SqlCommand(query))
        {
            cmd.CommandType = CommandType.Text;
            cmd.Connection = con;
            using (SqlDataAdapter sda = new SqlDataAdapter(cmd))
            {
                DataTable dt = new DataTable();
                sda.Fill(dt);
                return dt;
            }
        }
    }
}
 
protected void OnRowDataBound(object sender, GridViewRowEventArgs e)
{
    if (e.Row.RowType == DataControlRowType.DataRow)
    {
        DropDownList ddlRoles = (e.Row.FindControl("ddlRoles") as DropDownList);
        ddlRoles.DataSource = GetData("SELECT RoleId, RoleName FROM Roles");
        ddlRoles.DataTextField = "RoleName";
        ddlRoles.DataValueField = "RoleId";
        ddlRoles.DataBind();
 
        string assignedRole = (e.Row.DataItem as DataRowView)["RoleId"].ToString();
        ddlRoles.Items.FindByValue(assignedRole).Selected = true;
    }
}

کد VB.NET :

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    If Not Me.IsPostBack Then
        If Not Me.Page.User.Identity.IsAuthenticated Then
            Response.Redirect("~/Login.aspx")
        End If
        If Me.Page.User.IsInRole("Administrator") Then
            pnlAssignRoles.Visible = True
            gvUsers.DataSource = GetData("SELECT UserId, Username, RoleId FROM Users")
            gvUsers.DataBind()
        End If
    End If
End Sub
 
Private Function GetData(query As String) As DataTable
    Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand(query)
            cmd.CommandType = CommandType.Text
            cmd.Connection = con
            Using sda As New SqlDataAdapter(cmd)
                Dim dt As New DataTable()
                sda.Fill(dt)
                Return dt
            End Using
        End Using
    End Using
End Function
 
Protected Sub OnRowDataBound(sender As Object, e As GridViewRowEventArgs)
    If e.Row.RowType = DataControlRowType.DataRow Then
        Dim ddlRoles As DropDownList = TryCast(e.Row.FindControl("ddlRoles"), DropDownList)
        ddlRoles.DataSource = GetData("SELECT RoleId, RoleName FROM Roles")
        ddlRoles.DataTextField = "RoleName"
        ddlRoles.DataValueField = "RoleId"
        ddlRoles.DataBind()
 
        Dim assignedRole As String = TryCast(e.Row.DataItem, DataRowView)("RoleId").ToString()
        ddlRoles.Items.FindByValue(assignedRole).Selected = True
    End If
End Sub

نحوه ارتباط نقش ها به کاربران :

هنگامی دکمه Update کلیک میشود , UserId از سطر مورد نظر با استفاده از خاصیت CommandArgument فرا خوانی می شود و RoleId  نیز از DropDownList خوانده میشود . و در آخر نقش هر کاربر از جدول Rols خوانده و ویرایش میشود
 .

کد #C :

protected void UpdateRole(object sender, EventArgs e)
{
    GridViewRow row = ((sender as Button).NamingContainer as GridViewRow);
    int userId = int.Parse((sender as Button).CommandArgument);
    int roleId = int.Parse((row.FindControl("ddlRoles") as DropDownList).SelectedItem.Value);
    string constr = ConfigurationManager.ConnectionStrings["constr"].ConnectionString;
    using (SqlConnection con = new SqlConnection(constr))
    {
        using (SqlCommand cmd = new SqlCommand("UPDATE Users SET RoleId = @RoleId WHERE UserId = @UserId"))
        {
            cmd.Parameters.AddWithValue("@UserId", userId);
            cmd.Parameters.AddWithValue("@RoleId", roleId);
            cmd.CommandType = CommandType.Text;
            cmd.Connection = con;
            con.Open();
            cmd.ExecuteNonQuery();
            con.Close();
        }
    }
}

کد VB.NET :

Protected Sub UpdateRole(sender As Object, e As EventArgs)
    Dim row As GridViewRow = TryCast(TryCast(sender, Button).NamingContainer, GridViewRow)
    Dim userId As Integer = Integer.Parse(TryCast(sender, Button).CommandArgument)
    Dim roleId As Integer = Integer.Parse(TryCast(row.FindControl("ddlRoles"), DropDownList).SelectedItem.Value)
    Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
    Using con As New SqlConnection(constr)
        Using cmd As New SqlCommand("UPDATE Users SET RoleId = @RoleId WHERE UserId = @UserId")
            cmd.Parameters.AddWithValue("@UserId", userId)
            cmd.Parameters.AddWithValue("@RoleId", roleId)
            cmd.CommandType = CommandType.Text
            cmd.Connection = con
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        End Using
    End Using
End Sub

ویرایش نقش ها و نمایش آنها در جدول