添加新闻

[dannyboy1024]

我的添加新闻的页面总是不能正确运行，每次添加后，用rsponse查看rs的参数是已存在的最后一条新闻,谁能帮我看看问题在哪吗？------在线等
注：我总是碰到莫名奇妙的问题。
代码：
<%
dim newsname
dim addname
dim newscontent
newsname=request.Form("newsname")
addname=request.Form("addname")
newscontent=request.Form("newscontent")
if request.QueryString("action")="save" then
Dim Rs
Set Rs = Server.CreateObject("ADODB.RecordSet")
Sql="Select * From news"
Rs.Open Sql,conn,3,3
Rs.AddNew
Rs("newsname") =newsname
Rs("addname") = addname
Rs("newscontent") =newscontent

Rs("time") = now()
rs("viewcount")=0
Rs.UpDate

response.write rs("newsname")
response.write rs("addname")
response.write rs("newscontent")
rs.close
set rs=nothing
response.write "<script language=javascript>alert('添加成功！');window.location.href='editnews.asp';</script>"
response.End
end if

[lzp4881]

直接打开数据库看添加进去没有。

[dannyboy1024]

没有啊，所以不知道问题在哪

[lzp4881]

newscontent是不是备注类型？如果是把它放到最后试试
....
Rs.AddNew
Rs("newsname") =newsname
Rs("addname") = addname
Rs("time") = now()
rs("viewcount")=0
Rs("newscontent") =newscontent
Rs.UpDate
....

[dannyboy1024]

还是不行啊，也没提示有错误。。。

[lzp4881]

先确定数据库有没有写权限

[dannyboy1024]

本机上的数据库，文件属性不是只读。
为了安全，数据库是以.asp为后缀的。不妨碍吧

[toury]

1、去掉该页面所有包含文件中的所有on error resume next
2、增加容错。凭什么在最后直接就alert('添加成功！')。掩耳盗铃嘛，呵呵

<%
  dim newsname,addname,newscontent

  newsname=request.Form("newsname")
  addname=request.Form("addname")
  newscontent=request.Form("newscontent")

  if request.QueryString("action")="save" then
    Dim Rs
    Set Rs = Server.CreateObject("ADODB.RecordSet")
    ''''''''''''''Sql="Select * From news"
    Rs.Open "news",conn,1,3
    Rs.AddNew
    Rs("newsname") =newsname
    Rs("addname") = addname
    Rs("newscontent") =newscontent

    Rs("time") = now()
    rs("viewcount")=0
    Rs.UpDate

    response.write rs("newsname")
    response.write rs("addname")
    response.write rs("newscontent")
    rs.close
    set rs=nothing

    if err=0 then
      response.write " <script language=javascript>alert('添加成功！');window.location.href='editnews.asp'; </script>"
      response.End
    else
      response.write("<h1>写库错误！原因："&err.description&"</h1>")
    end if

end if

[dannyboy1024]

找到问题了：数据库或对象为只读。
我是管理员啊，也不行吗？
数据库文件不是只读，我确定的啊
先谢过！

[toury]

右键数据库文件所在的文件夹---属性--安全，找到IUSR_计算机名 的匿名用户，勾上修改和写入

[dannyboy1024]

终于成功了！！谢谢大侠！
马上去结贴。