管理留言板.aspx.vb

来自「人事管理系统」· VB 代码 · 共 36 行

Imports chakan
Partial Class 管理留言板
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ms2 As New liuyan()
        Dim bno As Integer = CType(Me.DropDownList1.SelectedValue, Integer)
        Dim a As Boolean = ms2.delete(bno)
        If a = True Then
            Me.Label1.Visible = True
            Me.Label1.Text = "删除成功！"
            Me.GridView1.DataBind()
            Me.DropDownList1.DataBind()

        Else
            Me.Label1.Visible = True
            Me.Label1.Text = "删除失败！"
        End If


    End Sub

    
  
    'Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

    '    Dim cn As New liuyan()
    '    cn.deleteall()
    '    Me.GridView1.DataBind()
    '    Me.GridView1.Visible = True



    'End Sub
End Class