addnewoffercontrol.ascx.vb

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

Imports NetShopForge.Library.SpecialOffer
Partial Class Admin_Merchandising_Controls_AddNewOfferControl
    Inherits System.Web.UI.UserControl

    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim objSPC As New SpecialOfferController
        Dim OfferID As Integer
        OfferID = objSPC.CreateSpecialOffer(txtTitle.Text)
        Dim navString As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode=condition&offerID=" & OfferID.ToString
        My.Response.Redirect(navString)
    End Sub
End Class