newscontrol.ascx.vb

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

Imports NetShopForge.Library.News

Partial Class Admin_Management_Controls_NewsControl
    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")
            Dim ncc As New NewsController
            hfNewsCategoryID.Value = newsCategoryID
            NewsCategory.Text = ncc.GetNewsCategory(newsCategoryID).Name
            BindData(newsCategoryID)
        End If

    End Sub

    Private Sub BindData(ByVal newsCategoryID As Integer)
        Dim objNC As New NewsController
        gvNews.DataSource = objNC.GetNewsList(newsCategoryID)
        gvNews.DataBind()
    End Sub

    Protected Sub btnAddNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddNew.Click
        Dim url As String = String.Format("~/Admin/Management/News.aspx?mode=editNews&action=addnew&newscategoryid={0}", hfNewsCategoryID.Value)
        Page.Response.Redirect(url)
    End Sub

    Protected Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Try

            For i As Integer = 0 To gvNews.Rows.Count - 1
                If gvNews.Rows(i).RowType = DataControlRowType.DataRow Then
                    Dim cbSelect As CheckBox = CType(gvNews.Rows(i).FindControl("cbSelect"), CheckBox)
                    Dim newsID As String = gvNews.DataKeys(i).Value
                    If cbSelect.Checked Then NewsController.Instance.DeleteNews(newsID)
                End If
            Next i

            BindData(hfNewsCategoryID.Value)
            ResultMessageControl1.ShowSuccess("帮助类别删除成功！")
        Catch ex As Exception
            ResultMessageControl1.ShowFail("帮助类别删除失败！" & ex.Message)
        End Try
    End Sub
End Class