masterpage.master.vb

一个报税管理系统AJAX第二版B-S.rar


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