showpersondetails.aspx.vb

来自「网络营销系统.net版.rar」· VB 代码 · 共 49 行

Public Class ShowPersonDetails
    Inherits System.Web.UI.Page
    Protected WithEvents lblUserName As System.Web.UI.WebControls.Label
    Protected WithEvents lblBuyerName As System.Web.UI.WebControls.Label
    Protected WithEvents lblBuyerEmail As System.Web.UI.WebControls.Label
    Protected WithEvents lblBuyerCity As System.Web.UI.WebControls.Label
    Protected WithEvents lblBuyerState As System.Web.UI.WebControls.Label
    Protected WithEvents lblBuyerCountry As System.Web.UI.WebControls.Label
    Protected WithEvents lblMsg As System.Web.UI.WebControls.Label
    Protected WithEvents Table1 As System.Web.UI.WebControls.Table
    Protected WithEvents btnBack As System.Web.UI.WebControls.Button

#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
            'Put user code to initialize the page here
            lblUserName.Text = "Welcome <b>" & Request.Cookies("email").Value & "</b><br><br>"

            Dim myPersonDetails As Bid.PersonDetails = New Bid.PersonDetails()
            Dim obj As Bid.Person = New Bid.Person()

            myPersonDetails = obj.GetPersonByID(CInt(Request.QueryString("bidid")))
            lblBuyerName.Text = myPersonDetails.GivenName
            lblBuyerEmail.Text = myPersonDetails.EmailAddress
            lblBuyerCity.Text = myPersonDetails.City
            lblBuyerState.Text = myPersonDetails.State
            lblBuyerCountry.Text = myPersonDetails.Country
        End If
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        Response.Redirect("ViewMySaleItems.aspx")
    End Sub
End Class