Question

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

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/shopnt/include/header.asp，行 72

网站一开始是正常的 后台只是改文字图片就变成这样了
这里是从61行开始-92行
<%
end if %>
<%
if request.cookies("shopnt")("username")<>"" and request.cookies("shopnt")("username")<>"観光客" then
username=trim(request.cookies("shopnt")("username"))

set rsvip=server.CreateObject("adodb.recordset")

sql="select vip from [user] where username='"&username&"' "
'response.write sql
rsvip.open sql,conn,1,1
grpid=rsvip("vip")
set rsgrp=server.CreateObject("adodb.recordset")
sql="select grpname,grpstar from grpclass where grpid="&grpid&" "
'response.write sql
rsgrp.open sql,conn,1,1
if not rsgrp.eof and not rsgrp.bof then
grpname=rsgrp("grpname")
grpstar=rsgrp("grpstar")
else
grpname="会员级别已删除"
end if
if grpvip=1 then
grpname="普通会员"
grpstar=1
end if
rsgrp.close
set rsgrp=nothing
else
grpname="非注册会员"
grpstar=1
end if

Answer 1

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

这个不是错误 、是你要显示的数据不够。比如你要显示10条，你数据库只有九条
应该是FOR语句造成的 。你给数据库多加几条数据试试

Answer 2

分高，好的，我要了！
改成：
<%
end if %>
<%
if request.cookies("shopnt")("username")<>"" and request.cookies("shopnt")("username")<>"観光客" then
username=trim(request.cookies("shopnt")("username"))

set rsvip=server.CreateObject("adodb.recordset")

sql="select vip from [user] where username='"&username&"' "
'response.write sql
rsvip.open sql,conn,1,1
grpid=rsvip("vip")

if grpvip<>"" then
set rsgrp=server.CreateObject("adodb.recordset")
sql="select grpname,grpstar from grpclass where grpid="&grpid&" "
'response.write sql
rsgrp.open sql,conn,1,1
if not rsgrp.eof and not rsgrp.bof then
grpname=rsgrp("grpname")
grpstar=rsgrp("grpstar")
else
grpname="会员级别已删除"
end if
rsgrp.close
set rsgrp=nothing
end if
if grpvip=1 then
grpname="普通会员"
grpstar=1
end if

rsvip.close()
set rsvip=nothing
else
grpname="非注册会员"
grpstar=1
end if%>

追问

谢谢您的回答，可是根据这个改完就
变成无法显示网页
您要访问的网页有问题，无法显示。
服务器内部错误了！

追答

最一行：end if%>
改成：end if

Answer 3

提示92行错 不一定就是92行错 ，而是这个文件的其他地方。
你把整个文件发给我下

Answer 4

rsvip.open sql,conn,1,1
grpid=rsvip("vip")
中间应该插入一个判断：
rsvip.open sql,conn,1,1
if rsvip.eof or rsvip.bof then
else
grpid=rsvip("vip")
......
end if

追问

谢谢您的回答，可是根据这个改完就
变成无法显示网页
您要访问的网页有问题，无法显示。
服务器内部错误了！

追答

检查if then ..end if对称了没有。