FreeTextBox中有关修改的问题

我用它来添加新闻的内容，
可是我用它添加新闻内容成功了，修改却不成功，改变后还是原内容，怎么回事呢，而用其实控件绑定的信息就可以修改，请求高手给予指点，我是新来的，没有什么分，但如果真的帮我了，我是不会白麻烦大家的，滴水之恩，定涌泉相报！我毕业设计急用的，谢谢了，5555555555555555555555555555555555555555555555
--------------------编程问答--------------------
    Dim objconn As New SqlConnection(ConfigurationSettings.AppSettings("connectionString"))
    Dim comdstr As String
    Dim comd, objcomd As SqlCommand
    Dim newsdr As SqlDataReader
    Dim adp As SqlDataAdapter
    Dim ds As DataSet
    Public rqid As String
    Public newis As String
//当修改时页面默认的绑定信息

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Session("username") = "" Or Session("password") = "" Then
            Response.Redirect("login.aspx")
        End If
        rqid = Request.QueryString("newidd")
        If rqid <> "" Then
            Button1.Visible = False
            comdstr = "select newsid,bigclaname,title,newsfrom,newstime,writer,hit,newskey,content,newsis from news_article inner join news_bigclass on news_article.bigclassid=news_bigclass.bigclassid where newsid='" & rqid & "' order by newstime desc"
            objcomd = New SqlCommand(comdstr, objconn)
            objconn.Open()
            newsdr = objcomd.ExecuteReader
            If newsdr.Read() Then

                title1.Value = newsdr("title").ToString
                newskey1.Value = newsdr("newskey").ToString
                newsfrom1.Value = newsdr("newsfrom").ToString
                writer1.Value = newsdr("writer").ToString
                ftb.Text = newsdr("content").ToString
                Dim newis As Boolean
                newis = newsdr("newsis")
                If newis = True Then
                    newsis.Checked = True
                Else
                    newsis1.Checked = True
                End If
            End If
            objconn.Close()
        Else
            Button2.Visible = False
        End If
        comdstr = "select * from news_bigclass"
        comd = New SqlCommand(comdstr, objconn)
        objconn.Open()
        adp = New SqlDataAdapter
        adp.SelectCommand = comd
        ds = New DataSet
        adp.Fill(ds, "leibie") '填充DataSet数据集
        bigclass.DataSource = ds.Tables("leibie")
        bigclass.DataBind()
        comd.Connection.Close()
    End Sub
//添加按键的事件
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newsinsert, txt, txt1 As String
        If Request.Form("newsis") = "1" Then
            newis = 1
            'Else
            '    newis = 0
        End If
        If Request.Form("newsis1") = "0" Then
            '    newis = 1
            'Else
            newis = 0
            'If newsis.Value <> "" Then
            '    newis = 1
            'Else
            '    newis = 0
        End If
        txt = ftb.Text
        txt1 = Year(Request.Form("newstime")) & "-" & Month(Request.Form("newstime")) & "-" & Day(Request.Form("newstime"))
        newsinsert = "insert into news_article(bigclassid,title,writer,newskey,newstime,content,newsis,newsfrom) values('" & Request.Form("bigclass") & "','" & Request.Form("title1").Trim() & "','" & Request.Form("writer1").Trim() & "','" & Request.Form("newskey1").Trim() & "','" & txt1 & "','" & txt & "','" & newis & "','" & Request.Form("newsfrom1").Trim() & "')"
        comd = New SqlCommand(newsinsert, objconn)
        comd.Connection.Open()
        comd.ExecuteNonQuery()
        comd.Connection.Close()
        Response.Write("<script language='javascript'>{window.alert('成功添加新闻信息！');window.history.go(-1);}</script>")

    End Sub
//修改按键的事件
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim newsup, txta, txt1 As String

        txt1 = Year(Request.Form("newstime")) & "-" & Month(Request.Form("newstime")) & "-" & Day(Request.Form("newstime"))
        If Request.Form("newsis") = "1" Then
            newis = 1

        End If
        If Request.Form("newsis1") = "0" Then

            newis = 0
        End If

        txta = ftb.Text
        newsup = "update news_article set title='" & Request.Form("title1").Trim() & "',bigclassid='" & Request.Form("bigclass") & "',writer='" & Request.Form("writer1").Trim() & "',newskey='" & Request.Form("newskey1").Trim() & "',newsfrom='" & Request.Form("newsfrom1").Trim() & "',newstime='" & txt1 & "',content='" & txta & "',newsis='" & newis & "' where newsid='" & rqid & "'"

        comd = New SqlCommand(newsup, objconn)
        comd.Connection.Open()
        comd.ExecuteNonQuery()
        comd.Connection.Close()
        Response.Write("<script language='javascript'>alert('成功修改新闻信息！')</script>")
        'Response.Redirect("article.aspx")

    End Sub
End Class
--------------------编程问答-------------------- 添加的部分为好用的，修改的部分是不好用的，为什么呢，我哪里做错了呢 --------------------编程问答-------------------- 为什么没有人回答我？ --------------------编程问答-------------------- 加上 if(!IsPostBack) --------------------编程问答-------------------- 加上 if(!IsPostBack)

正解
！ --------------------编程问答-------------------- 太好了，终于有高手出现了，可是在哪加呢? --------------------编程问答-------------------- Page_Load里面 --------------------编程问答-------------------- Page_Load里面所有的代码都放在if(!IsPostBack){  }里面
因为你一点按钮，页面就刷新了，而如果没有IsPostBack的话，页面是需要重新绑定的，那么你修改的东西又被数据库里面的东西替换了，当然改不了啊 --------------------编程问答-------------------- 以上都是正解 --------------------编程问答-------------------- 改出来了
谢谢
--------------------编程问答-------------------- 我太幸运了，都是贵人啊！可是怎么给你们加分呢？公平为出发点应该加给第一个人，可是我还是不知道应该怎么给他加 --------------------编程问答-------------------- 又不对了，当时是修改页面显示是成功了，可是，打开别的页面发现还是原内容，而且这会别的控件里的内容也不能改了，也是原值，为什么会是这样？

补充：.NET技术 ,  ASP.NET