addnew问题
cshp 2004-11-26 01:27:27 <%
startime=timer()
dim conn
dim connstr
dim db
'更改数据库名字
db="liuyan.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;"
path="Data Source=" & Server.MapPath(""&db&"")
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr & path
set cc=server.CreateObject("adodb.recordset")
'cc.open"留言",conn,2,2
' mz=request.form("mz")
' mail=request.form("mail")
' xb=request.form("xb")
' neirong=request.form("neirong")
aa="select * from 留言 "
cc.open aa,conn,1,1
cc.addnew
cc("mz")="11111"
cc("mail")="123"
cc("xb")=xb
cc("neirong")="123123"
cc.update
'cc.close
'set cc=nothing
' conn.close
'set conn=nothing
%>
这段代码运行显示下面错误,那位大侠帮帮忙啊,在线等
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。还有一种是:不能更新。数据库或对象为只读。