promotextscontrol.ascx.vb

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

Imports NetShopForge.Library.SpecialOffer
Imports NetShopForge.Common.nsfImage
Partial Class Admin_Merchandising_Controls_PromoTextsControl
    Inherits System.Web.UI.UserControl
    Private Const SpecialOfferImagePath As String = "Image_Shop\SpecialOffer"

    Protected Sub SpecialOfferNavControl1_StepMenuItemClick(ByVal navigateUrl As String) Handles SpecialOfferNavControl1.StepMenuItemClick
        My.Response.Redirect(navigateUrl)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim offerID As String = Request("offerid")
            hfOfferID.Value = offerID
            If IsNothing(offerID) Then My.Response.Redirect("~/Admin/Merchandising/Offers.aspx")
            Dim so As SpecialOfferInfo
            so = SpecialOfferController.GetSpecialOffer(hfOfferID.Value)
            SpecialOfferNavControl1.Enabled = (so.Status <> SpecialOfferStatus.Incomplete)
        End If
    End Sub

    Protected Sub btnGoBonues_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGoBonues.Click

        Dim navigateUrl As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode=bonus&offerID=" & hfOfferID.Value.ToString
        My.Response.Redirect(navigateUrl)

    End Sub

    Protected Sub btnGoOffer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGoOffer.Click

        Dim navigateUrl As String = "~/Admin/Merchandising/Offers.aspx?mode=editoffer&submode=offer&offerID=" & hfOfferID.Value.ToString
        My.Response.Redirect(navigateUrl)

    End Sub
    Private Sub BindImage()
        'Dim objSC As New SpecialOfferController
        'Dim offer As SpecialOfferInfo = objSC.GetSpecialOffer(CInt(hfOfferID.Value))

        'If offer.ShortPromoImage.Length > 0 Then
        '    Dim s As New StringBuilder
        '    s.Append(String.Format("<img src=""{0}""  border=0 title=""{1}"" /> ", Page.ResolveUrl("~/" & offer.ShortPromoImage & "&temp=" + DateTime.Now.Ticks.ToString()), offer.ShortPromoText))
        '    NormalImageText.Text = s.ToString
        'End If

        'txtDetailedPromo.Text = offer.Detailedpromo
        'txtShortPromoText.Text = offer.ShortPromoText


    End Sub


    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim objIC As New ImageController
        Dim imagePath As String = ""
        'If FileUploadImage.PostedFile.FileName.Trim().Length = 0 Then
        '    Dim sOk As String
        '    sOk = objIC.UploadImage(FileUploadImage.PostedFile, SpecialOfferImagePath, "so_" & hfOfferID.Value, 120, 120)
        '    If sOk.Length > 0 Then
        '        ResultMessageControl1.ShowFail("添加缩略图片失败!(" & sOk & ")")
        '        Exit Sub
        '    End If
        '    imagePath = SpecialOfferImagePath & "\" & "so_" & hfOfferID.Value & System.IO.Path.GetExtension(FileUploadImage.PostedFile.FileName).ToLower
        'End If

        Dim objSC As New SpecialOfferController
        Try
            objSC.UpdateSpecialOfferPromo(CInt(hfOfferID.Value), imagePath.Replace("'", "''"), txtShortPromoText.Text.Replace("'", "''"), txtDetailedPromo.Text.Replace("'", "''"))
            BindImage()
            ResultMessageControl1.ShowSuccess("更新成功!")

        Catch ex As Exception
            ResultMessageControl1.ShowFail("更新失败!")
        End Try

    End Sub
End Class