错误类型:
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。
/lb/yz.asp, 第 24 行
是我OPEN后面的参数设错了吗,如果是的话应该用哪个参数
<%
uid=Request.Form("uid")
upwd=Request.Form("upwd")
email=Request.Form("email")
conn="provider=microsoft.jet.oledb.4.0;data source=C:\Inetpub\wwwroot\lb\db1.mdb;persist security info=false"
set strconn=Server.CreateObject("adodb.connection")
strconn.open conn
set objrs=Server.CreateObject("adodb.recordset")
objrs.Open "select *from lxr where uid='"&uid&"'",conn,adLockOptimistic
if not objrs.eof then
Response.Write ("<script language=javascript>alert('有相同用户名');</script>")
Response.Redirect"reg.asp"
else
objrs.addnew
objrs(0)=uid
objrs(1)=upwd
objrs(2)=email
objrs.update
end if
%>
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。
/lb/yz.asp, 第 24 行
是我OPEN后面的参数设错了吗,如果是的话应该用哪个参数
<%
uid=Request.Form("uid")
upwd=Request.Form("upwd")
email=Request.Form("email")
conn="provider=microsoft.jet.oledb.4.0;data source=C:\Inetpub\wwwroot\lb\db1.mdb;persist security info=false"
set strconn=Server.CreateObject("adodb.connection")
strconn.open conn
set objrs=Server.CreateObject("adodb.recordset")
objrs.Open "select *from lxr where uid='"&uid&"'",conn,adLockOptimistic
if not objrs.eof then
Response.Write ("<script language=javascript>alert('有相同用户名');</script>")
Response.Redirect"reg.asp"
else
objrs.addnew
objrs(0)=uid
objrs(1)=upwd
objrs(2)=email
objrs.update
end if
%>