有点问题，再现等，急！！

[powerzl]

set conn=server.createobject("ADODB.CONNECTION")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\task\taskmanagersys.mdb;Persist Security Info=False"
conn.open connstr

sql="select * from task_table where task_id=" & session("taskid_unfin") & ""
dim Rs
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,3
'tname=session("un")
'if Response.Form("submit")="'发送'"
if Request("B1")="修改" then
id=session("id")
Rs("id_commander")=id
Rs("reciever")=trim(request("reciever"))
Rs("dep_recieve")=request("dep_recieve")
Rs("start_time")=request("start_time")
Rs("time_ideal")=request("time_ideal")
Rs("Topic")=request("topic")
Rs("expaciation")=request("expaciation")
Rs("state_back")="-1"
Rs.Update
end if

Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
/amendanddelete.asp, 第 14 行

[powerzl]

用access要权限吗？

[online]

放置access数据库的目录权限

[powerzl]

怎么改呀？

[powerzl]

sql="select * from task_table where task_id=" & session("taskid_unfin") & ""
dim Rs
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,3
执行后，可以执行修改操做吗，要不要Rs.close后才行呀

[pimple]

Rs.open sql,conn,2,3

试试

[fenglik]

sql="select * from task_table where task_id='" & session("taskid_unfin") & "'"

[BingGroup]

可能
C:\Inetpub\wwwroot\task\taskmanagersys.mdb
没有写权限

[lxqlogo0]

taskmanagersys.mdb是不是只读属性？

[vivisogood]

taskmanagersys.mdb 文件看看是不是只读的

[aryou]

if Request("B1")="修改" then
do while not rs.eof
id=session("id")
Rs("id_commander")=id
Rs("reciever")=trim(request("reciever"))
Rs("dep_recieve")=request("dep_recieve")
Rs("start_time")=request("start_time")
Rs("time_ideal")=request("time_ideal")
Rs("Topic")=request("topic")
Rs("expaciation")=request("expaciation")
Rs("state_back")="-1"
Rs.Update
loop
end if

这样试试，，

[水母在发光]

1,3没有问题的
直接用
set rs=server.createobject("adodb.recordset")
rs.Open "SELECT * FROM product where pro_id="&session("id")&" ",cn,1,3
或
strsql="inster 语句
set rs3=server.CreateObject("ADODB.recordset")
set RS3=cn.Execute(strsql)
或
text=request("text")
set rs=server.createobject("adodb.recordset")
rs.open "answer",cn,3,3
rs.addnew
rs("text")=text
rs.update

看看你的数据库中的表是否是编辑格式,是的话,把表关了试一下,或者数据库是从光盘上考下来的,去处只读属性

[hwkknd]

就是没权限写数据库，跟程序无关……
别想得太复杂了……

[1蓝天1]

我用的是这样很好用的，你试一下吧
Rs.open sql,conn,3,2

[1蓝天1]

如果不行就是你的字段有问题，仔细看一下有没有写错的
要不就是你的数据库是COPY的别人的

[powerzl]

Rs("reciever")=trim(request("reciever"))
Rs("dep_recieve")=request("dep_recieve")
Rs("start_time")=request("start_time")
Rs("time_ideal")=request("time_ideal")
Rs("topic")=request("topic")
Rs("expaciation")=request("expaciation")
Rs("state_back")="-1"
这些有问题，都不能付值进去

[yangsm]

这个一般是权限的问题了。