acceptbid.aspx.vb

该系统是关于c2c电子商务系统 用asp.net技术 开发环境是vs2003+sqlserver2000

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
        Dim strFrom As String = LCase(Request.ServerVariables("HTTP_REFERER"))

        'When the Seller accepts the C2CSystem.
        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 C2CSystem.Item = New C2CSystem.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 C2CSystem.Item = New C2CSystem.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