Question

asp无法写入到access数据库中，也无法更新数据，但能读取

<!--#include file="utf-8.asp"-->
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select title,etitle,body,ebody,ssfl,zz,ly,data from news"
rs.open sql,conn,1,3
title=request.form("title")
etitle=request.form("etitle")
body=request.form("body")
ebody=request.form("ebody")
ssfl=request.form("ssfl")
zz=request.form("zz")
ly=request.form("ly")
if title="" then
response.Write("<script language=javascript>alert('中文标题不能为空!');history.go(-1)</script>")
response.end
end if
if etitle="" then
response.Write("<script language=javascript>alert('英文标题不能为空!');history.go(-1)</script>")
response.end
end if
if body="" then
response.Write("<script language=javascript>alert('中文内容不能为空!');history.go(-1)</script>")
response.end
end if
if ebody="" then
response.Write("<script language=javascript>alert('中文内容不能为空!');history.go(-1)</script>")
response.end
end if

rs.addnew
rs("title")=title
rs("etitle")=etitle
rs("body")=body
rs("ebody")=ebody
rs("ssfl")=ssfl
rs("zz")=zz
rs("ly")=ly

rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
%>

<%
Response.Write "<script>alert('新闻增加成功！点击继续添加！');window.location.href='add_news.asp';</script>"
%>

这里是一段代码，哪位高手帮我看看，在线等着！！急急!!!

Answer 1

代码没错，文件权限的原因

解决办法： 打开我的电脑 文件夹选项 查看 使用简单共享 前面的勾去掉 之后 找到你的那个数据库文件 右键 属性 安全 添加 高级 查找 添加IUSR_用户名 赋予该帐户完全控制权限 就OK了

Answer 2

你是用什么数据库？

access吗？是的话可能是数据库设置问题

Answer 3

<%
title=request.form("title")
etitle=request.form("etitle")
body=request.form("body")
ebody=request.form("ebody")
ssfl=request.form("ssfl")
zz=request.form("zz")
ly=request.form("ly")
if title="" then
response.Write("<script language=javascript>alert('中文标题不能为空!');history.go(-1)</script>")
response.end
end if
if etitle="" then
response.Write("<script language=javascript>alert('英文标题不能为空!');history.go(-1)</script>")
response.end
end if
if body="" then
response.Write("<script language=javascript>alert('中文内容不能为空!');history.go(-1)</script>")
response.end
end if
if ebody="" then
response.Write("<script language=javascript>alert('中文内容不能为空!');history.go(-1)</script>")
response.end
end if
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
set rs=server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,3
rs.addnew
rs("title")=title
rs("etitle")=etitle
rs("body")=body
rs("ebody")=ebody
rs("ssfl")=ssfl
rs("zz")=zz
rs("ly")=ly

rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
%>

<%
Response.Write "<script>alert('新闻增加成功！点击继续添加！');window.location.href='add_news.asp';</script>"
%>

Answer 4

sql="select title,etitle,body,ebody,ssfl,zz,ly,data from news"
rs.open sql,conn,1,3

改成
sql="select title,etitle,body,ebody,ssfl,zz,ly,data from news"
rs.open sql,conn,3,3

还有，打开数据集最好在写入前一行打开。这样更加安全。