specialoffercontrol.ascx.vb

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

Imports NetShopForge.Library.SpecialOffer
Imports NetShopForge.Library.Cart
Imports System.Collections.Generic
Partial Class Shop_Controls_SpecialOfferControl
    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 cartCollection As ICollection(Of CartInfo) = Profile.ShoppingCart.CartCollection

            Dim i As Integer = 0
            Dim sb As New StringBuilder
            For Each car As CartInfo In cartCollection
                sb.Append(SpecialOfferController.GetAvailableSpecialOfferString(car.ProductID, "P"))
                sb.Append("|")
            Next
            sb.Append(SpecialOfferController.GetAvailableSpecialOfferString(Profile.ShoppingCart.Total))
            Dim offerList As List(Of SpecialOfferInfo) = SpecialOfferController.GetSpecialOfferList(sb.ToString.Split("|"))

        End If
    End Sub



End Class