Question

ADODB.Field (0x80020009)BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除

<%
if session("student")=null or trim(session("student"))="" then
response.Redirect "default.asp"
end if
student=session("student")
ipadd=session("ipadd")
SQL="select * from bgn where ipadd='" & ipadd & "'"
set Rs1=conn.execute(SQL)
if Rs1.eof then
SQL="select id from sz"
set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open SQL,conn,1,1
tt=Rs.recordcount
randomize
tt=int(rnd()*tt)
Rs.close
set Rs=nothing
SQL="select * from sz where sz=true"
set Rs=conn.execute(SQL)
if Rs.eof then
Rs.close
set Rs=nothing
SQL="select * from sz"
set Rs=conn.execute(SQL)
Rs.move tt
end if
SQL="insert into bgn(ipadd,tst_id) values('" & ipadd & "','" & Rs("id") & "')"
conn.execute(SQL)
else
SQL="select * from sz where id=" & Rs1("tst_id")
set Rs=conn.execute(SQL)
end if
Rs1.close
set Rs1=nothing
title=Rs("title")
tst_id=Rs("id")
dx_num=Rs("dx_num")
dx=Rs("dx")
fx_num=Rs("fx_num")
fx=Rs("fx")
pd_num=Rs("pd_num")
pd=Rs("pd")
tk_num=Rs("tk_num")
tk=Rs("tk")
wd_num=Rs("wd_num")
wd=Rs("wd")
Rs.close
set Rs=nothing
%>

帮我看看啊`越改越晕了@@

Answer 1

shenll "D:＼QQ堂．exe
这样写进程序,就可以了