基本问题!各位高手帮小弟看看!多多提出批评!谢谢
错误提示rsTest.addnew这一行出现错误:
帮看看怎么改正
错误类型:
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。
<%
'on error resume Next
'取得用户输入的数据
xsh_zh=Request.Form("xsh_zh")
xsh_xm=Request.Form("xsh_xm")
xsh_yj=request.Form("xsh_yj")
xsh_xb=request.form("xsh_xb")
xsh_shr=request.form("xsh_shr")
xsh_dh=request.Form("xsh_dh")
xsh_zhz=request.form("xsh_zhz")
'创建数据库的联接
Dim Cnn, StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\test\class.mdb"
Cnn.Open StrCnn
StrSQL = "select * from 学生通讯录"
set rsTest=server.createobject("ADODB.Recordset")
rsTest.open StrSQL,Cnn,2,3
'rs.open sqlstr,conn,1,3
rsTest.addnew
rsTest("座号").value=xsh_zh
rsTest("姓名")=xsh_xm
rsTest("电子邮件")=xsh_yj
rsTest("性别")=xsh_xb
rsTest("生日")=xsh_shr
rsTest("电话")=xsh_dh
rsTest("住址")=xsh_zhz
rsTest.update
%>