categorymappathcontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 23 行

Imports NetShopForge.Library.Product

Partial Class Shop_Product_Controls_CategoryMapPathControl
    Inherits System.Web.UI.UserControl

    Public CategoryID As Integer
    Public ProductID As Integer


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


            If Not IsNothing(ProductID) Then CategoryID = ProductController.GetCategoryIDByProductID(ProductID)
            If IsNothing(CategoryID) Or CategoryID = -1 Then Exit Sub
            'CategoryMapPath.Text = "<a href=../Default.aspx><strong>HOME</strong></a>  :: " & pc.GetCategoryMapPathByProductID(CategoryID)
            CategoryMapPath.Text = ":: " & Category.CategoryController.GetCategoryMapPath(CategoryID, False)

        End If
    End Sub
End Class