📄 管理留言板.aspx.vb
字号:
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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -