留言板制作（二）

  一，页面设计
        此页面的控件有：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

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

转载于:https://www.cnblogs.com/LXCNET/archive/2006/09/15/504974.html