menu_left.aspx.vb

如果不使用IIS,请先运行 XSP.exe,待提示已侦听 8080端口后

Imports DNNLite.Entites.Tab
Imports System.Collections.Generic
Partial Class WEB_admin_vsleo_menu_left
    Inherits System.Web.UI.Page

    Protected admintabs As IList(Of TabInfo) = New List(Of TabInfo)

    Protected shoptabs As IList(Of TabInfo) = New List(Of TabInfo)

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim tabs As IList(Of TabInfo) = TabInfoController.GetUserTabs()

        For Each t As TabInfo In tabs
            If t.ParentId = 2 Then
                admintabs.Add(t)
            End If

            If t.ParentId = 9 Then
                shoptabs.Add(t)
            End If

        Next



    End Sub

  

End Class