editnewscontrol.ascx.vb

来自「C#语言制作asp.net网上商店的」· VB 代码 · 共 35 行

Imports NetShopForge.Library.News

Partial Class Admin_Management_Controls_EditNewsControl
    Inherits System.Web.UI.UserControl


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim newsCategoryID As Integer = Request("newsCategoryID")
            lbBackNewsList.NavigateUrl = "~/Admin/Management/News.aspx?mode=news&NewsCategoryID=" & newsCategoryID
            Dim NewsID As Integer = Request("NewsID")
         
            BindData(NewsID)
        End If
    End Sub

#Region "---Private Method---"
    Private Sub BindData(ByVal NewsID As Integer)

        Dim objNC As New NewsController
        Dim objNews As NewsInfo
        objNews = objNC.GetNews(NewsID)

        txtBody.Text = objNews.Body
        txtSubject.Text = objNews.Subject
        ddlIsSiteNews.SelectedValue = CInt(objNews.IsSiteNews)

    End Sub

#End Region


End Class