product.aspx.vb

C#语言制作asp.net网上商店的

Partial Class Admin_Product_Product
    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")
        LoadCartControl(mode)

    End Sub


    Private Sub LoadCartControl(ByVal mode As String)

        If IsNothing(mode) Then mode = "product"

        Dim uc As UserControl = Nothing
        Select Case mode.ToLower
            Case "product"
                uc = CType(LoadControl("Controls/ProductControl.ascx"), UserControl)
            Case "details", "addnew"
                uc = CType(LoadControl("Controls/ProductDetailsControl.ascx"), UserControl)
            Case "attribute"
                uc = CType(LoadControl("Controls/ProductAttributeControl.ascx"), UserControl)
            Case "images"
                uc = CType(LoadControl("Controls/ProductImageControl.ascx"), UserControl)
            Case "price"
                uc = CType(LoadControl("Controls/ProductDetailsControl.ascx"), UserControl)
            Case "upselling"
                uc = CType(LoadControl("Controls/ProductLinksControl.ascx"), UserControl)
            Case "reviews"
                uc = CType(LoadControl("Controls/ProductDetailsControl.ascx"), UserControl)
            Case "brand"
                uc = CType(LoadControl("Controls/ProductDetailsControl.ascx"), UserControl)
            Case "descriptor"
                uc = CType(LoadControl("Controls/ProductDescriptorsControl.ascx"), UserControl)
            Case "category"
                uc = CType(LoadControl("Controls/ProductCategorysControl.ascx"), UserControl)
            Case Else
                uc = CType(LoadControl("Controls/ProductControl.ascx"), UserControl)
        End Select

        phProduct.Controls.Clear()
        phProduct.Controls.Add(uc)



    End Sub

End Class