BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。(错误显示在粗体字所在行）
<%set rs=server.createobject("ADODB.RecordSet")
sql="select * from huiyuan where id="&request("id")
rs.open sql,conn,1,3
rs("id_email")=62
rs.update
rs.close
sql="select * from huiyuan where card='"&nowcard&"' and id<>"&request("id")
rs.open sql,conn,1,3
do while rs.eof=false
rs("id_email")=62
rs.movenext
loop
set rs=server.createobject("ADODB.RecordSet")
sql="select * from buy where huohao='"&nowcard&"'"
rs.open sql,conn,1,3
rs("isok")=true
rs("id_huiyuan")=62
rs.update
rs.close
sql="select * from buy where huohao='"&nowcard&"'"
rs.open sql,conn,1,3
do while rs.eof=false
rs("isok")=true
rs("id_huiyuan")=62
rs.movenext
loop
set rs=server.createobject("ADODB.RecordSet")
sql="select * from produit where huohao='"&nowcard&"'"
rs.open sql,conn,1,3
if nowxinbie="项目稽核" then
rs("id_danwei")=110
end if
if nowxinbie="项目验收" then
rs("id_danwei")=112
end if
rs.update
rs.close
sql="select * from buy where huohao='"&nowcard&"'"
rs.open sql,conn,1,3
do while rs.eof=false
if nowxinbie="项目稽核" then
rs("id_danwei")=110
end if
if nowxinbie="项目验收" then
rs("id_danwei")=112
end if
rs.movenext
loop
response.write "<script>alert('项目复核成功，请继续下一个流程！');window.opener.location.reload();window.close();</script>"
%>
