ASP.Net/Login Security/Roles

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Display roles

   <source lang="csharp">

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Roles_aspx" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server"> 

   <title>Untitled Page</title>

</head> <body> 

   <form id="form1" runat="server">
       <asp:ListBox ID="lstRoles" runat="server" AutoPostBack="True"></asp:ListBox>
       <asp:ListBox ID="lstUsers" runat="server"></asp:ListBox>

       New Role

       <asp:TextBox ID="txtRole" runat="server"></asp:TextBox>
       <asp:Button ID="btnCreateRole" runat="server" Text="Create Role" />

   </form>

</body> </html> File: Default.aspx.vb Partial Class Roles_aspx 

   Inherits System.Web.UI.Page
   Protected Sub Page_Load(ByVal sender As Object, _
                           ByVal e As System.EventArgs) _
                           Handles Me.Load
       If Not IsPostBack Then
           Dim allRoles() As String
           allRoles = Roles.GetAllRoles()
           lstRoles.Items.Clear()
           For i As Integer = 0 To allRoles.Length - 1
               lstRoles.Items.Add(allRoles(i).ToString)
           Next
       End If
       lstUsers.Items.Clear()
       If lstRoles.SelectedItem IsNot Nothing Then
           Dim allUsersInRole() As String = _
              Roles.GetUsersInRole(lstRoles.SelectedItem.ToString)
           For i As Integer = 0 To allUsersInRole.Length - 1
               lstUsers.Items.Add(allUsersInRole(i).ToString)
           Next
       End If
   End Sub
   Protected Sub btnCreateRole_Click(ByVal sender As Object, _
                                     ByVal e As System.EventArgs) _
                                     Handles btnCreateRole.Click
       Roles.CreateRole(txtRole.Text)
       lstRoles.Items.Add(txtRole.Text)
   End Sub

End Class 

</source>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Login_Security/Roles&oldid=1771»