有点问题,再现等,急!!
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 行