留言板制作（二）

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

二，代码设计
     1，提交流言
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
            Dim aa As String = ConfigurationSettings.AppSettings("Mycon")
            Dim con As New SqlConnection(aa)
            con.Open()
            Dim com As New SqlCommand("insert into savely (name,tilte,content,time1) values ( \'" & TextBox1.Text & "\', \'" & TextBox2.Text & "\' ,\' " & TextBox3.Text & "\',\'" & Now & "\')", con)
            com.ExecuteNonQuery()
            com = Nothing
            con.Close()
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.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 = ""
        TextBox3.Text = ""
      End Sub

3，返回
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
               Response.Redirect("WebForm1.aspx")
    End Sub

          下一节进入留言扳查看留言信息