留言板制作（四）

    一，页面设计
     此页面的控件有3个Label，3个Button，2个TextBox 。其风格可以自己设计 （如下图：）

   
    二，代码编写
    1，提交
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" And TextBox2.Text <> "" Then
            Dim aa As String = ConfigurationSettings.AppSettings("Mycon")
            Dim con As New SqlConnection(aa)
            con.Open()
            Dim com As New SqlCommand("insert into huifuly (id ,name,content,time1) values ( '" & WebForm1.aaa & "','" & TextBox1.Text & "', '" & TextBox2.Text & "' , '" & Now & "')", con)
            com.ExecuteNonQuery()
            com = Nothing
            con.Close()
            TextBox1.Text = ""
            TextBox2.Text = ""
        Else
            Response.Write("<script language=javascript>alert('请填写完整再提交')</script>")
        End If
    End Sub

    2，重写
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
           TextBox1.Text = ""
           TextBox2.Text = ""
       End Sub

    3，返回
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           Response.Redirect("HF.aspx")   ’返回到查看留言页面
       End Sub