FreeTextBox中有关修改的问题

spr1ng 2007-05-15 09:17:43
我用它来添加新闻的内容,
可是我用它添加新闻内容成功了,修改却不成功,改变后还是原内容,怎么回事呢,而用其实控件绑定的信息就可以修改 ,请求高手给予指点,我是新来的,没有什么分,但如果真的帮我了,我是不会白麻烦大家的,滴水之恩,定涌泉相报!我毕业设计急用的,谢谢了,5555555555555555555555555555555555555555555555
...全文
220 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
spr1ng 2007-05-16
  • 打赏
  • 举报
回复
又不对了,当时是修改页面显示是成功了,可是,打开别的页面发现还是原内容,而且这会别的控件里的内容也不能改了,也是原值,为什么会是这样?
spr1ng 2007-05-16
  • 打赏
  • 举报
回复
我太幸运了,都是贵人啊!可是怎么给你们加分呢?公平为出发点应该加给第一个人,可是我还是不知道应该怎么给他加
spr1ng 2007-05-16
  • 打赏
  • 举报
回复
改出来了
谢谢
killau 2007-05-16
  • 打赏
  • 举报
回复
以上都是正解
heyjude1983 2007-05-16
  • 打赏
  • 举报
回复
Page_Load里面所有的代码都放在if(!IsPostBack){ }里面
因为你一点按钮,页面就刷新了,而如果没有IsPostBack的话, 页面是需要重新绑定的,那么你修改的东西又被数据库里面的东西替换了,当然改不了啊
heyjude1983 2007-05-16
  • 打赏
  • 举报
回复
Page_Load里面
spr1ng 2007-05-16
  • 打赏
  • 举报
回复
太好了,终于有高手出现了,可是在哪加呢?
mfkdxu 2007-05-16
  • 打赏
  • 举报
回复
加上 if(!IsPostBack)

正解
sunxw18 2007-05-16
  • 打赏
  • 举报
回复
加上 if(!IsPostBack)
spr1ng 2007-05-16
  • 打赏
  • 举报
回复
为什么没有人回答我?
spr1ng 2007-05-15
  • 打赏
  • 举报
回复
添加的部分为好用的,修改的部分是不好用的,为什么呢,我哪里做错了呢
spr1ng 2007-05-15
  • 打赏
  • 举报
回复

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

62,067

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧