offers.aspx.vb

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

Partial Class Admin_Merchandising_Offers
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim mode As String = Request("mode")
        Dim subMode As String = Request("submode")
        LoadCartControl(mode, subMode)

    End Sub


    Private Sub LoadCartControl(ByVal mode As String, ByVal subMode As String)

        If IsNothing(mode) Then mode = "offerlist"

        Dim uc As UserControl = Nothing
        Select Case mode.ToLower
            Case "offerlist"
                uc = CType(LoadControl("Controls/OfferListControl.ascx"), UserControl)
            Case "editoffer"
                If IsNothing(subMode) Then subMode = "condition"
                Select Case subMode.ToUpper
                    Case "CONDITION"
                        uc = CType(LoadControl("Controls/ConditionsControl.ascx"), UserControl)
                    Case "BONUS"
                        uc = CType(LoadControl("Controls/BonusesControl.ascx"), UserControl)
                    Case "PROMOTEXT"
                        uc = CType(LoadControl("Controls/PromoTextsControl.ascx"), UserControl)
                    Case "OFFER"
                        uc = CType(LoadControl("Controls/offerControl.ascx"), UserControl)
                    Case "STATUS"
                        uc = CType(LoadControl("Controls/StatusControl.ascx"), UserControl)
                    Case Else
                        uc = CType(LoadControl("Controls/ConditionsControl.ascx"), UserControl)
                End Select
            Case "addoffer"
                uc = CType(LoadControl("Controls/AddNewOfferControl.ascx"), UserControl)
            Case Else
                uc = CType(LoadControl("Controls/OfferListControl.ascx"), UserControl)
        End Select

        phOffers.Controls.Clear()
        phOffers.Controls.Add(uc)

    End Sub
End Class