userrolecontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 25 行


Imports AspNetSecurity = System.Web.Security

Partial Class Admin_Management_Controls_UserRoleControl
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            hfUserName.Value = Request("username")
            ChangeView(hfUserName.Value)
        End If
    End Sub

    Private Sub ChangeView(ByVal UserName As String)
        Dim b As Boolean = AspNetSecurity.Roles.IsUserInRole(UserName, "Administrator")
        If b Then
            mvUserRole.ActiveViewIndex = 1
        Else
            mvUserRole.ActiveViewIndex = 0
        End If
    End Sub


End Class