错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 不能更新。数据库或对象为只读。
/treemenu/xzhl/asp/action.asp, 第 160 行

那位能帮忙解决？先谢谢了

代码？？？？？

以后再有这样的帖子，删无赦！！

Sub get_Msg()
'取出表单栏
maction= Request.form("kind")

mquarter = Request.form("quarter")
mpeople= Request.form("people")
mtime = Request.form("time")
mpollutant=Request.form("pollutant")

mpo_water_l = Request.form("po_water_l")
mpo_water_l_ph= Request.form("po_water_l_ph")
mpo_water_l_cod = Request.form("po_water_l_cod")
mpo_water_l_ss=Request.form("po_water_l_ss")
mpo_water_l_n = Request.form("po_water_l_n")
mpo_water_l_o= Request.form("po_water_l_o")

mpo_water_i = Request.form("po_water_i")
mpo_water_i_ph= Request.form("po_water_i_ph")
mpo_water_i_cod=Request.form("po_water_i_cod")
mpo_water_i_ss=Request.form("po_water_i_ss")

mmi_water_o=Request.form("mi_water_o")
mmi_water_o_ph=Request.form("mi_water_o_ph")
mmi_water_o_cod=Request.form("mi_water_o_cod")
mmi_water_o_ss=Request.form("mi_water_o_ss")
mmi_water_o_o=Request.form("mi_water_o_o")
mmi_water_o_s=Request.form("mi_water_o_s")
mmi_water_o_c=Request.form("mi_water_o_c")
myear=Request.form("year")


mnoise=Request.form("noise")
mro_noise=Request.form("ro_noise")
mwater_reuse=Request.form("water_reuse")
mat_po_name=Request.form("at_po_name")
menergy=Request.form("energy")
mfume=Request.form("fume")
mnox_depth=Request.form("nox_depth")
mnox=Request.form("nox")
mso2_depth=Request.form("so2_depth")
mso2=Request.form("so2")
mfume_depth=Request.form("fume_depth")
mfume_l=Request.form("fume_l")
mstone_out=Request.form("stone_out")
mstone_use=Request.form("stone_use")
mstone_lay=Request.form("stone_lay")
msoil_po_o=Request.form("soil_po_o")
mash_out=Request.form("ash_out")
mash_use=Request.form("ash_use")

set conn=server.CreateObject("ADODB.connection")
conn.Open "fileDSN="&Server.MapPath("/treemenu/xzhl/jmjtdsn.dsn")
set rsadd=server.CreateObject ("ADODB.Recordset")
Application.Lock
rsadd.Open "input",conn,3,3
if rsadd.EOF =true then
rsadd.MoveLast
end if


rsadd.AddNew

rsadd("num1")=session("nnum")
rsadd("qyID")=session("mqyID")
rsadd("name")=session("mname")
rsadd("quarter")=mquarter
rsadd("people")=mpeople
rsadd("time")=date()
rsadd("pollutant")=mpollutant
rsadd("po_water_l")=mpo_water_l
rsadd("po_water_l_ph")=mpo_water_l_ph
rsadd("po_water_l_cod")=mpo_water_l_cod
rsadd("po_water_l_ss")=mpo_water_l_ss
rsadd("po_water_l_n")=mpo_water_l_n
rsadd("po_water_l_o")=mpo_water_l_o

rsadd("po_water_i")=mpo_water_i
rsadd("po_water_i_ph")=mpo_water_i_ph
rsadd("po_water_i_cod")=mpo_water_i_cod
rsadd("po_water_i_ss")=mpo_water_i_ss

rsadd("mi_water_o")=mmi_water_o
rsadd("mi_water_o_ph")=mmi_water_o_ph
rsadd("mi_water_o_cod")=mmi_water_o_cod
rsadd("mi_water_o_ss")=mmi_water_o_ss
rsadd("mi_water_o_o")=mmi_water_o_o
rsadd("mi_water_o_s")=mmi_water_o_s
rsadd("mi_water_o_c")=mmi_water_o_c
rsadd("year")=myear
rsadd("noise")=mnoise
rsadd("ro_noise")=mro_noise
rsadd("water_reuse")=mwater_reuse
rsadd("at_po_name")=mat_po_name
rsadd("energy")=menergy
rsadd("fume")=mfume
rsadd("nox_depth")=mnox_depth
rsadd("nox")=mnox
rsadd("so2_depth")=mso2_depth
rsadd("so2")=mso2
rsadd("fume_depth")=mfume_depth
rsadd("fume_l")=mfume_l
rsadd("stone_out")=mstone_out
rsadd("stone_use")=mstone_use
rsadd("stone_lay")=mstone_lay
rsadd("soil_po_o")=msoil_po_o
rsadd("ash_out")=mash_out
rsadd("ash_use")=mash_use

rsadd.Update
Application.Unlock

'关闭ADO连线
rsadd.close
set rsadd=nothing
conn.Close
set conn=nothing
end sub

又是权限问题？

非常感谢你能具体点

因为我有一个先前做的能运行，这个仿制却不行

打开你的数据库，在安全选项卡里看你的数据库是所有用户都有写权限！

有，但用户是管理员

...
把修改权限给所有用户

怎么设置呀，我好像找不到地方，还请说具体点，谢谢