admin_bbs_list.aspx.vb

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

Imports System.ComponentModel
'因为用到了自定义业务对象，所以导入
Public Class admin_bbs_list
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents myDataGrid As System.Web.UI.WebControls.DataGrid

    '注意: 以下占位符声明是 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 Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        '判断一下，如果不是管理员，就返回到首页
        If DataUserLog.IsAdmin() = False Then
            Response.Write("<script language='javascript'>top.location.href='../index.aspx';</script>")
        End If

        If Not Page.IsPostBack Then
            Call myDataBind()          '绑定数据
        End If
    End Sub
    '该过程用于绑定数据
    Sub myDataBind()
        '下面建立DataBusiness对象，返回所有文章
        Dim dbs As New DataBusiness
        Dim dv As DataView = dbs.GetBBS()
        '下面绑定数据
        myDataGrid.DataSource = dv
        myDataGrid.DataBind()
    End Sub
    '该过程用于分页
    Private Sub myDataGrid_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles myDataGrid.PageIndexChanged
        myDataGrid.CurrentPageIndex = e.NewPageIndex
        Call myDataBind()            '绑定数据
    End Sub
    '该过程用于删除行，不过要注意其中会判断是最后一页，且只有一行的情况
    Private Sub myDataGrid_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles myDataGrid.DeleteCommand
        Dim dbs As New DataBusiness
        dbs.DeleteBBS(myDataGrid.DataKeys(e.Item.ItemIndex))

        '下面先判断是否是最后一页，且只有一行的情况
        If myDataGrid.PageCount > 1 And myDataGrid.CurrentPageIndex = (myDataGrid.PageCount - 1) And myDataGrid.Items.Count = 1 Then
            myDataGrid.CurrentPageIndex = myDataGrid.CurrentPageIndex - 1
        End If

        '重新绑定数据
        Call myDataBind()            '绑定数据
    End Sub
End Class