newarrivalsproductlistcontrol.ascx.vb

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

Imports NetShopForge.Library.Product
Imports NetShopForge.Library.Category
Partial Class Shop_Product_NewArrivalsProductListControl
    Inherits System.Web.UI.UserControl
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim objPC As New ProductController
            Dim categoryID As String = Request("CatID")
            If IsNothing(categoryID) OrElse Not IsNumeric(categoryID) Then
                categoryID = -1
            End If
            BindData(CInt(categoryID))
        End If
    End Sub

    Private Sub BindData(ByVal categoryID As Integer)

        dlProduct.DataSource = ProductController.GetNewArrivalProductList(categoryID)
        dlProduct.DataBind()

    End Sub
End Class