?
Partial Class MasterPage
    Inherits System.Web.UI.MasterPage
    Public pulic As New pulic1
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Session("bz") = "" Then
            Response.Redirect("login.aspx")
        End If

        If (Not IsPostBack) And (Session("bz") IsNot Nothing) Then
            TreeView1.Nodes.Clear()
            GenTreeNode()
        End If

        

    End Sub

    Protected Sub GenTreeNode()
        ' <LINK   href="good.css"   type="text/css"   rel="stylesheet">
        'TreeView1.ShowLines = True '設置顯示節點之間連接線
        'TreeView1.ShowCheckBoxes = TreeNodeTypes.Leaf '設置節點上顯示CheckBox
        Dim RootNode As New TreeNode() '創建節點實體
        RootNode.Text = "網絡稅控管理" '設置節點的顯示文字
        RootNode.Value = "網絡稅控"   '設置節點的數值
        'RootNode.NavigateUrl = "Default.aspx" '設置節點的Url
        TreeView1.Nodes.Add(RootNode) '加入節點
        Dim chaxun As New TreeNode()
        Dim xitong As New TreeNode()
        Dim gonggao As New TreeNode()
        Dim shezhi, tuichu As New TreeNode()
        Dim dian1, dian2, dian3, dian4, dian5, dian6, dian7 As New TreeNode()
        AddNode(RootNode, chaxun, "查詢   ", "chaxun", "index.aspx")
        AddNode(RootNode, xitong, "系統管理", "gonggao", "index.aspx")
        AddNode(RootNode, gonggao, "公告發布", "xitong", "index.aspx")
        Dim s As Integer
        Dim str1 = Session("quanxian")
        Dim i As Integer
        i = str1.length
        While i > 0
            s = Mid(str1, i, 1)
            Select Case s
                Case 2
                    AddNode(RootNode, shezhi, "設置", "shezhi", "shezhi.aspx")
                Case 3
                    AddNode(chaxun, dian4, "已報到查詢", "bdchaxun", "baodao.aspx")
                    AddNode(chaxun, dian5, "未報到查詢", "wbdchaxun", "wbaodao.aspx")
                    AddNode(chaxun, dian6, "核查數據查詢", "hcchaxun", "hecha.aspx")
                Case 4
                    ' AddNode(xitong, dian6, "操作員管理", "caoxitong", "")
                Case 5
                    AddNode(xitong, dian7, "登陸密碼修改", "passxitong", "password.aspx")
                Case 6
                    AddNode(gonggao, dian1, "用戶公告", "usergonggao", "p2pgonggao.aspx")
                Case 7
                    AddNode(gonggao, dian2, "區域公告", "quyugonggao", "quyugonggao.aspx")
                Case 8
                    AddNode(gonggao, dian3, "公共公告", "gggonggao", "gggonggao.aspx")
            End Select
            i = i - 1
        End While
        AddNode(RootNode, tuichu, "退出系統", "tuichu", "exit.aspx")
    End Sub
    Protected Sub AddNode(ByVal ParentNode As TreeNode, ByVal ChildNode As TreeNode, ByVal NodeText As String, ByVal NodeValue As String, ByVal NodeNavigateUrl As String)
        ChildNode.Text = NodeText '設置節點的顯示文字
        ChildNode.Value = NodeValue '設置節點的數值
        ChildNode.NavigateUrl = NodeNavigateUrl '設置節點的Url
        ParentNode.ChildNodes.Add(ChildNode) '將子節點加入到父節點
    End Sub


End Class