留言板.aspx.vb

人事管理系统

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

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Me.ShowT.InnerHtml = "<img src=touxiang\" & Me.DropDownList1.SelectedValue & ">"
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nm As String = Trim(Me.TextBox1.Text)
        Dim nr As String = Trim(Me.TextBox2.Text)
        Dim tx As String = Me.DropDownList1.SelectedValue
        Dim charu As liuyan = New liuyan()
        If charu.add(nm, nr, tx) Then
            Me.Label1.Text = "恭喜你，留言成功！"
            Me.Label1.Visible = True
            Me.GridView1.DataBind()
        End If


    End Sub

  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.ShowT.InnerHtml = "<img src=touxiang/1.jpg>"
        Me.Label1.Visible = False
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.Label1.Visible = False
    End Sub
End Class