Question

ADODB.Field 错误 '800a0bcd' BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除

<%
dim rscorp,strmdb,connStr,Key
set rscorp=server.createobject("adodb.recordset")
connStr="Provider=Microsoft.jet.OLEDB.4.0;Data Source="&server.mappath("./Foosun_Data/#internet_w_test.mdb")
strmdb="select Key from zhuce where User_account='"&User_account&"'"

rscorp.open strmdb,connStr,1,1
Key=rscorp("Key")

dim User_account,Activation_code
User_account=request.form("User_account")
dim connnect,strsql,rscon

Activation_code=request.form("Activation_code")
set rscon=server.createobject("adodb.recordset")
connnect="Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("./Foosun_Data/#internet_w_test.mdb")
strsql="select * from zhuce where User_account='"&User_account&"'"

rscon.open strsql,connnect,1,1
if rscon.eof then
response.write ("<script>alert('用户帐号不存在或激活码错误！');history.back();</script>")
response.end
else
if rscon("Activation_code")<>Activation_code then
response.write ("<script>alert('激活码错误');history.back();</script>")
response.end

end if
session("User_account")=User_account
session("Activation_code")=Activation_code

end if

dim rs,sql,connString
connString="Provider=Microsoft.jet.OLEDB.4.0;Data Source="&server.mappath("./Foosun_Data/#internet_w_test.mdb")
set rs=server.createObject("adodb.recordset")
'这张页面是为了处理表单提交数据使用的

dim Realname,Moblie,Mobli,Addess,Email,Nowtime,Buy_time,Seller,Buy_phones

realname = trim(request.form("Realname"))
mobli = trim(request.form("Mobli"))
moblie = trim(request.form("Moblie"))
addess = trim(request.form("Addess"))
email = trim(request.form("Email"))
nowtime = trim(request.form("Nowtime"))
buy_time = trim(request.form("Buy_time"))
seller = trim(request.form("Seller"))
buy_phones = trim(request.form("Buy_phones"))

rs.open "zhuce",connString,1,3
rs.update '新增一条记录

rs("Realname")= realname
rs("Mobli")= mobli
rs("Addess")= addess
rs("Nowtime")= nowtime
rs("Buy_time")= buy_time
rs("Seller")= seller
rs("Buy_phone")= buy_phones

'手机号码
if len(moblie) <> 11 then
response.write ("<script language=javascript>alert('手机号码为11位数');history.back();</script>")
response.end
else
rs("Moblie")=moblie
end if

rs.update '把数据写入数据库
rs.close
set rs=nothing

response.write "<script language='javascript'>" & chr(13)
response.write "alert(' 注册成功！ \n\n注册账号： "+User_account+" \n激 活 码： "+Activation_code+" \n短信密码： "+Key+"')" & Chr(13)
response.write "window.document.location.href='index.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End

%>

Answer 1

数据库有问题，给分