biditem.aspx.vb

网络营销系统.net版.rar

Public Class BidItem
    Inherits System.Web.UI.Page
    Protected WithEvents lblUserName As System.Web.UI.WebControls.Label
    Protected WithEvents lblMsg As System.Web.UI.WebControls.Label
    Protected WithEvents lblStatus As System.Web.UI.WebControls.Label
    Protected WithEvents lblItemName As System.Web.UI.WebControls.Label
    Protected WithEvents lblItemDesc As System.Web.UI.WebControls.Label
    Protected WithEvents lblNoBid As System.Web.UI.WebControls.Label
    Protected WithEvents Table1 As System.Web.UI.WebControls.Table
    Protected WithEvents myItems As System.Web.UI.WebControls.DataGrid
    Protected WithEvents btnSubmit As System.Web.UI.WebControls.Button
    Protected WithEvents txtHighBid As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents txtBidAmount As System.Web.UI.WebControls.TextBox

#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
        If Not Page.IsPostBack() Then
            lblUserName.Text = "欢迎 <b>" & Request.Cookies("email").Value & "</b><br><br>"
            lblMsg.Text = "想购买 <b>" & Request.QueryString("itemname") & "</b>"
            lblStatus.Text = "出价纪录（最高出价）"
            lblItemName.Text = "<b>" & Request.QueryString("itemname") & "</b>"
            lblItemDesc.Text = "<b>" & Request.QueryString("itemdesc") & "</b>"
            Response.Cookies("itemid").Value = Request.QueryString("itemid")
            btnSubmit.Attributes.Add("onclick", "return confirmbid();")
            BindGrid()
            GetHighBid()
        End If
    End Sub

    Private Sub BindGrid()
        Dim intItemID As Int32 = CInt(Request.QueryString("itemid"))
        Dim objItemList As Bid.Item = New Bid.Item()

        myItems.DataSource = objItemList.GetBidDetails(intItemID)
        myItems.DataBind()
    End Sub

    Private Sub GetHighBid()
        Dim obj As Bid.Item = New Bid.Item()
        txtHighBid.Value = obj.GetHighestBid(CInt(Request.Cookies("itemid").Value))
    End Sub

    Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim obj As Bid.Item = New Bid.Item()
        Dim strStatus As String = obj.AddBid(CInt(Request.Cookies("itemid").Value), _
                                              CInt(Request.Cookies("personid").Value), _
                                              CDbl(txtBidAmount.Text))
        If strStatus = "1" Then
            lblMsg.Text = "您的出价被接受了。"
            BindGrid()
        Else
            lblMsg.Text = "叫价失败。" & strStatus
        End If

    End Sub

End Class