神马品牌网安徽省医药学人才网:关于asp的问题请高手帮忙
来源：百度文库 编辑：神马品牌网 时间：2024/05/02 11:44:11
当我把记录集中的字段拖到在ASP文件中就会出现以下的提示 怎么样解决
请留下你的QQ
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/newsSystem/newshow.asp, 第 108 行
请留下你的QQ
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/newsSystem/newshow.asp, 第 108 行
不知道你的问题是什么，可能是你的页面代码没有判断数据集中是否有数据就直接提取了。正确的操作记录集应该是这样的：
dim con,rs,constr,sqlstr
set con=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
constr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data.mdb"
con.open constr'打开连接
sqlstr="select * from DataTable"
rs.open sqlstr,con,1,1'打开数据集
if not (rs.eof or rs.bof) then'判断是否有数据
dim i
for i=0 to rs.RecordCount-1
response.write(rs(i))'输出记录集内容
rs.movenext
next i
end if
rs.close'关闭数据集
con.close'关闭连接
看不明白你的问题。
我也不明白他在说什么问题？？？
可以说详细点吗？
这个是说你所打开的表里没有数据，你没有做判断，执行循环出错，
在
do while
或者
for
前加一句
if rs.eof then
response.write"没有数据"
end if
可以的话，把你的代码和相关数据库发到我邮箱，我在帮你调试，邮箱地址看我的个人资料
没有判断记录集中是否有数据或已到达记录结尾