usernavcontrol.ascx.vb

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


Partial Class Admin_Management_Controls_UserNavControl
    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
            UserName.Text = Request("username")
            BindBulletedList(UserName.Text)
        End If

    End Sub

    Private Sub BindBulletedList(ByVal userName As String)
        Dim URL As String = "~/Admin/Management/Users.aspx?mode={0}&userName=" & userName

        tabMenu.Items.Add(New MenuItem("用户基本信息", "", "", String.Format(URL, "editUser")))
        tabMenu.Items.Add(New MenuItem("修改用户密码", "", "", String.Format(URL, "password")))
        tabMenu.Items.Add(New MenuItem("设置用户权限", "", "", String.Format(URL, "role")))

        hlUserList.NavigateUrl = "~/Admin/Management/Users.aspx"
        hlAddNewUser.NavigateUrl = String.Format(URL, "adduser")


    End Sub
End Class