acceptbid.aspx.vb

网络营销系统.net版.rar

Public Class AcceptBid
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Put user code to initialize the page here
        Dim strFrom As String = LCase(Request.ServerVariables("HTTP_REFERER"))

        'When the Seller accepts the Bid.
        If InStr(strFrom, "ViewMySaleItems.aspx") > 0 Then
            Dim intItemID As Int32 = CInt(Request.QueryString("itemid"))
            Dim intBidID As Int32 = CInt(Request.QueryString("bidid"))

            Dim obj As Bid.Item = New Bid.Item()
            Dim strStatus As String

            strStatus = obj.AddSale(intItemID, intBidID)

            If Trim(strStatus) = "1" Then
                Response.Redirect("ViewMySaleItems.aspx?msg=1")
            Else
                Response.Redirect("ViewMySaleItems.aspx?msg=Bid-Acceptance-Failed")
            End If
        End If

        ' When buyer accepts the Sale
        If InStr(strFrom, "MenuForRegisteredUsers.aspx") > 0 Then
            Dim intItemID As Int32 = CInt(Request.QueryString("itemid"))
            Dim intBidID As Int32 = CInt(Request.QueryString("bid"))

            Dim obj As Bid.Item = New Bid.Item()
            Dim strStatus As String

            strStatus = obj.CompleteSale(intItemID, intBidID)

            If Trim(strStatus) = "1" Then
                Response.Redirect("MenuForRegisteredUsers.aspx?msg=Purchase Succesfully Completed!")
            Else
                Response.Redirect("MenuForRegisteredUsers.aspx?msg=Sale-Completion-Failed.")
            End If
        End If
        Response.Write(strFrom)
    End Sub
End Class