PublicWriteOnlyProperty PrevArticleId AsString Set(value AsString) _PrevArticleId = value EndSet End Property
PublicWriteOnlyProperty NextArticleId AsString Set(value AsString) _NextArticleId = value EndSet End Property
ProtectedSub Page_Load(sender AsObject, e As EventArgs) HandlesMe.Load Data_Binding() End Sub
PrivateSub Data_Binding() IfString.IsNullOrEmpty(_PrevArticleId) Then Me.HyperLinkPrev.Text = "无" Else Dim objPrevDataRow As DataRow = objArticle.GetArticleByPrimaryKey(_PrevArticleId).Rows(0) Me.HyperLinkPrev.Text = objPrevDataRow("Subject") Me.HyperLinkPrev.NavigateUrl = "~/ArticleView.aspx?ID=" & _PrevArticleId EndIf
IfString.IsNullOrEmpty(_NextArticleId) Then Me.HyperLinkNext.Text = "无" Else Dim objNextDataRow As DataRow = objArticle.GetArticleByPrimaryKey(_NextArticleId).Rows(0) Me.HyperLinkNext.Text = objNextDataRow("Subject") Me.HyperLinkNext.NavigateUrl = "~/ArticleView.aspx?ID=" & _NextArticleId EndIf End Sub