Question

ADODB.Field (0x800A0BCD)BOF 或 EOF 中有一个是“真”

错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/mbl/snsn.asp, 第 856 行

下面是851-870代码
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_snsn where shopid="&rs("shopid"),conn,1,3
if tmpPIFA=1 then
danjia=rs2("vipjia") {856}
else
danjia=rs2("shichangjia")
end if
'danjia=rs2("shichangjia")
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("shopcount")
rs2("kucun")=rs2("kucun")-rs("shopcount")
rs2.update
rs2.close
set rs2=nothing
rs("actiondate")=shijian
if request("zhifufangshi")=17 then '送货上门或预存款支付，直接改为订单完成（已收到款）
rs("zhuangtai")=3
else
rs("zhuangtai")=1
end if
rs("dingdan")=dingdan

Answer 1

修改如下：

set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_snsn where shopid="&rs("shopid"),conn,1,3
if not rs2.eof then ‘注释：判断数据表是否为空。不为空则继续
if tmpPIFA=1 then
danjia=rs2("vipjia") {856}
else
danjia=rs2("shichangjia")
end if
'danjia=rs2("shichangjia")
rs2("chengjiaocount")=rs2("chengjiaocount")+rs("shopcount")
rs2("kucun")=rs2("kucun")-rs("shopcount")
rs2.update
rs2.close
set rs2=nothing
rs("actiondate")=shijian
if request("zhifufangshi")=17 then '送货上门或预存款支付，直接改为订单完成（已收到款）
rs("zhuangtai")=3
else
rs("zhuangtai")=1
end if
rs("dingdan")=dingdan
......
else ‘注释：否则
response.write "对不起，数据库内暂无数据！" ’注释：输出错误
end if '注释：介绍判断