Private Sub InitTree(ByVal Nds As Microsoft.Web.UI.WebControls.TreeNodeCollection, ByVal parentId As String)
        Dim tmpNd As New Microsoft.Web.UI.WebControls.TreeNode
        Dim intId As String
        Dim g As String = "select * from 网站功能 "
        objds.Clear()
        objds = clscommon.GetdData(g)
        Dim dv As New DataView(objds.Tables(0))
        dv.RowFilter = "上级功能编号='" & parentId & "'"
        Dim drv As DataRowView
        For Each drv In dv
            tmpNd.ID = drv("功能编号").ToString
            tmpNd.Text = drv("功能名称").ToString            Nds.Add(tmpNd)            InitTree(tmpNd.Nodes, tmpNd.ID)
        Next    End Sub