?? biditem.aspx.vb
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -