userinfo.ascx.vb

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

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Microsoft.VisualBasic					'因为用到了Trim函数，所以导入本空间
Imports nsBBS

Public Class userinfo: Inherits UserControl						'userinfo类继承自UserControl
	Public lblMessage As Label

	Private _UserId As String									'定义私有变量

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

	'显示有关数据
	Sub Page_Load(sender As Object, e As EventArgs) 
		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