各位大虾：
我在向ACCESS数据库添加信息的时候，系统报错，麻烦指点一下！先行谢过！

以下为我的代码：

dim cn,dbpath,rs,sqlstr

set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

dbpath=Server.MapPath("images/info.mdb")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & dbpath

sqlstr="SELECT * FROM tb_message"
rs.open sqlstr,cn,3,3
rs.addnew
rs("title")=request.form("title")
rs("author")=request.form("author")
rs("datetime")=now()
rs.update
rs.close
set cn="nothing"
response.write "记录添加成功！"

以下为报错信息：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e09'

不能更新。数据库或对象为只读。

注意：ASP的报错有好多问题的。这个少END不一定是有一个IF你少了END
还有可能是：for 少了 next,do 少了loop等等。
从头到尾看一下吧，一定是你多开了一扇门忘了关了！

rs.open sqlstr,cn,3,3
改成
rs.open sqlstr,cn,1,3
如果不行，证明数据库文件被设置为禁止访问，证明楼主用的Windows2000以上操作系统的安全设置不允许访问数据库。

[QUOTE]注意：ASP的报错有好多问题的。这个少END不一定是有一个IF你少了END
还有可能是：for 少了 next,do 少了loop等等。
从头到尾看一下吧，一定是你多开了一扇门忘了关了！[/QUOTE]

看到2楼的仁兄的见解真是让我耳目一新呀,我想问下你学ASP有多久了?

人家楼主的问题很明显是数据库的问题,而不是代码的问题.
他的系统应该是NT的,所以是权限的问题!!!

哈哈，不好意思，不过学的时间到是比较长了。
多半比楼上的你长,只是开始老糊涂了

[此贴子已经被作者于2006-6-9 10:47:55编辑过]

改成
rs.open sqlstr,cn,1,3
后，报错依旧！
请问大虾们，如果是系统权限问题，我应该怎么解决！谢了！

问题解决了！
多谢各位大虾的帮助！

你是怎么解决的，说出来，让我也学学

反击数据库文件,在安全中加入everyone用户,并把权限设成完全控制就可以了.

右击数据库文件，在安全中，选择users用户，增加“写入”权限就可以了。