selfinfo.aspx.vb

网上售书系统v-1 SQL数据库 ASP.NET开发环境

Public Class SelfInfo
    Inherits System.Web.UI.Page
    Protected WithEvents lbNiceName As System.Web.UI.WebControls.Label
    Protected WithEvents lbTel As System.Web.UI.WebControls.Label
    Protected WithEvents lbEMail As System.Web.UI.WebControls.Label
    Protected WithEvents lbAddr As System.Web.UI.WebControls.Label
    Protected WithEvents lbZip As System.Web.UI.WebControls.Label
    Protected WithEvents lbUserName As System.Web.UI.WebControls.Label

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <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: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '如果用户未登录，则跳专页面到购书信息页面
        If Session("UserInfo") Is Nothing Then
            Response.Redirect("../CommonUser/BuyBook.aspx")
            Response.End()
        Else
            '读取Session中的用户信息，然后依次显示
            Dim obj As UserInfo = CType(Session("UserInfo"), UserInfo)
            lbUserName.Text = obj.UserName
            lbNiceName.Text = obj.NiceName
            lbAddr.Text = obj.Addr
            lbTel.Text = obj.Tel
            lbZip.Text = obj.Zip
            lbEMail.Text = obj.EMail
        End If
    End Sub

End Class