这是个向数据库添加记录的小程序，调试时出现错误

Dim conn,sql,rs,connstr set conn=server.createobject("adodb.connection") connstr="DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db1.mdb") & "" conn.open connstr set rs=server.createobject("adodb.recordset") sql="SELECT * From yuanchuang" 　 rs.open sql,conn,1,3 rs.addnew rs("biaoti")=bt If wb <> "" Then rs("wenben")=wb Else rs("wenben")=wj End If rs.updata rs.close set rs=nothing conn.close set conn=nothing

出现以下错误“ rs.open sql,conn,1,3”中有无效字符，高手帮忙给看一下，哪出错了

connstr="DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" &amp; server.mappath("db1.mdb") &amp; ""  '这句改为:
connstr="DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" &amp; server.mappath("db1.mdb")

谢谢大哥，可改了后还是老样子啊，要不大哥你帮俺调试一下吧，谢谢拉

<% Dim bt,wb,wj bt=Request.Form("biaoti") wb=Request.Form("wenben") wj=Request.Form("wenjian") If bt <> "" then Dim conn,sql,rs,connstr set conn=server.createobject("adodb.connection") connstr="DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db1.mdb") conn.open connstr set rs=server.createobject("adodb.recordset") sql="SELECT * From yuanchuang" 　 rs.open sql,conn,1,3 rs.addnew rs("biaoti")=bt If wb <> "" Then rs("wenben")=wb Else rs("wenben")=wj End If rs.updata rs.close set rs=nothing conn.close set conn=nothing Else Response.write"标题不能为空" End If Response.write"上传成功" %>

<% Dim bt,wb,wj bt=Request.Form("biaoti") wb=Request.Form("wenben") wj=Request.Form("wenjian") If bt <> "" then Dim conn,sql,rs,connstr set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb") '这里太多空格!!! set rs=server.createobject("adodb.recordset") sql="SELECT * From yuanchuang where (id is null)" '这里没有用条件 rs.open sql,conn,1,3 rs.addnew rs("biaoti")=bt If wb <> "" Then rs("wenben")=wb Else rs("wenben")=wj End If rs.update '这里写错了,不是updata rs.close set rs=nothing conn.close set conn=nothing Else Response.write"标题不能为空" End If Response.write"上传成功" %>

斑竹，帮帮忙啊，还是不行啊，是不是俺的软件问题啊，俺用的是frontpage20003,access是2000，是不是不兼容啊，无法连接数据库啊，要不你帮俺调试一下啊，谢谢拉，俺在这等你回话啊

上面的代码是我修改后的，并试过没有问题！ <% Dim bt,wb,wj bt=Request.Form("biaoti") wb=Request.Form("wenben") wj=Request.Form("wenjian") If bt <> "" then Dim conn,sql,rs,connstr set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db1.mdb") '这里太多空格!!! set rs=server.createobject("adodb.recordset") sql="SELECT * From yuanchuang where (id is null)" '这里没有用条件 rs.open sql,conn,1,3 rs.addnew rs("biaoti")=bt If wb <> "" Then rs("wenben")=wb Else rs("wenben")=wj End If rs.update '这里写错了,不是updata rs.close set rs=nothing conn.close set conn=nothing Else Response.write"标题不能为空" response.end '停止输出 End If Response.write"上传成功" %>

错误类型： Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。 /upp.asp, 第 20 行 大哥看看 啊，这是什么意思啊

汗，权限问题！

打个everyone权限！

谢谢大哥，俺是个菜鸟，问题解决了。但你说的everyone权限是在程序里面加的吗，俺从没见过，大哥给说说吧，谢谢大哥了，以后还要多麻烦你啊