userinfo.ascx.vb

《ASP.NET C#程序设计案例教程》

Public Class userinfo
    Inherits System.Web.UI.UserControl

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents lblMessage As System.Web.UI.WebControls.Label

    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    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 _UserId As String         '定义私有变量

    '定义一个只写属性
    Public WriteOnly Property UserId() As String   '定义一个UserId属性      
        Set(ByVal Value As String)
            _UserId = Value          '利用Value关键字设置属性值
        End Set
    End Property

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not Page.IsPostBack Then
            '如果发表该留言的用户已经被删除，那么建立DataUser对象时就会出错误，所以这里要加以处理
            Dim exp As Exception
            Try
                '建立一个DataUser对象实例
                Dim du As New DataUser(_UserId)
                '下面利用属性返回记录信息,并显示出来
                lblMessage.Text &= "<p>作者：<a href='mailto:" & du.Email & "' target='_blank'>" & du.UserId & "</a>"
                lblMessage.Text &= "<br>发表：" & du.Article
                lblMessage.Text &= "<br>回复：" & du.ReArticle
                lblMessage.Text &= "<br>QQ：" & du.QQ
                If du.IsOnline = True Then
                    lblMessage.Text &= "<br>状态：<font color='red'>在线</font>"
                Else
                    lblMessage.Text &= "<br>状态：离线"
                End If
            Catch exp
                lblMessage.Text &= "<p>作者：" & _UserId
                lblMessage.Text &= "<br>状态：已经不存在"
            End Try
        End If
    End Sub

End Class