masterpage.master.vb

AJAX第二版用于网络传输的一个系统 AJAX第二版用于网络传输的一个系统


Partial Class MasterPage
    Inherits System.Web.UI.MasterPage
    Public pulic As New pulic1

    Protected Sub loginexit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles loginexit.Click
        Dim strSQL As String = "delete from using where username=" + Session("using")
        pulic.noquery(strSQL)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Session("bz") = "" Then
            Response.Redirect("denglu.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 As New TreeNode()
        Dim dian1, dian2, dian3, dian4, dian5, dian6, dian7 As New TreeNode()
        AddNode(RootNode, gonggao, "公告发布", "xitong", "index.aspx")
        AddNode(RootNode, xitong, "系统管理", "gonggao", "index.aspx")
        AddNode(RootNode, chaxun, "查询   ", "chaxun", "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, "核查数据查询", "hcchaxun", "hechashuju.aspx")
                Case 4
                    ' AddNode(xitong, dian6, "操作员管理", "caoxitong", "")
                Case 5
                    AddNode(xitong, dian7, "登陆密码修改", "passxitong", "password_chang.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
    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