我向数据库里添加数据
这个代码不可以啊
哪位帮我看看差到哪了/？？？？
<%
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
if not objrs.eof then
addnew
objrs(0)=uid
objrs(1)=upwd
objrs(2)=email
update
Response.Write ("<script language=javascript>alert('有相同用户名');</script>")
Response.Redirect"reg.asp"
else Response.Write("<script language=javascript>alert('有相同用户名');</script>")
Response.Redirect"reg.asp"
end if
%>

可我怎么感觉交换位置是错的呢
还有别的地方是错的 吗

把strconn跟conn交换位置
就提示错误

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'provider=microsoft.j'
/lb/yz.asp, 第 17 行

不交换不提示错误，但数据库里没被添加信息

错误类型：
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
%>

谢谢大家，终于好了
我会爱你们的。。。。。。。。。