ADODB.Field 错误'80020009'BOF 或 EOF 中有一个是“真”

回忆 · 发表于 2009-9-24 13:56:25

本帖最后由回忆于 2009-9-24 13:57 编辑

程序升级了一下，结果网站首页出现这个错误，而且是在网页一半的位置出现，郁闷中,,
网页中加了些代码，数据库中加了unite.

下面帖的是我改过的代码，大家帮看看

付费找人解决

首页
unite=1
for i=1 to rs.pagesize
If Not rs.eof then
unite=unite+rs("unite")
show rs("id"),i-1
rs.movenext

Else
x=i mod 5
'response.Write x
if x=0 then
shownull i-1
exit for
else
for y=(i mod 5) to 5
shownull i-1
next
exit for
end if
End If

next
'conn.execute("update infodb set unite=1")

x=(unite mod 5)
y=5-x
'response.write "<script>alert('"&x&" - "&y&" - "&i&" - "&i+x-y&"')</script>"
for i=i+1 to i+y
if not rs.eof Then
'response.write "<li>"&rs("id")&"</li>"
show rs("id"),i-1
rs.movenext
end If
'response.write "<li>"&i&"-"&x&"</li>"
Next
For i=0 To 5
'response.write "<li>"&i&"-"&x&"</li>"
next
首页调用的config.asp加的代码
<li style="width:<%
h=s_rs("unite")*190
response.Write h
%>px">
首页调用的dbsave.asp
rs("unite")=1
信息修改的页面
'conn.execute("update infodb set unite=1")
set rs=server.createobject("ADODB.recordset")
rs.open "select * from infodb where id="&id,conn,1,3
'if rs("unite")="" then
'conn.execute("update infodb set unite=1 where id="&id)
'rs.open "select * from infodb where id="&id,conn,1,3
'end if
'response.Write request("unite")&"ok"
rs("unite")=request("unite")

<td>信息宽度</td>
<td>占用
<label>
<select name="unite" id="unite">
<%
for x=1 to 5%>
<option value="<%=x%>"
<%
If rs("unite")<>"" then
if Int(rs("unite"))=x then
response.Write "selected"
end If
End if
%>><%=x%></option>
<%
next%>
</select>
</label>
格</td>

QQ 44244894

wiciw · 发表于 2009-9-24 13:59:48

所在字段没有数据啊..最简单是直接打开数据库.在该表中加条数据就OK了..

hkzhao · 发表于 2009-9-27 16:13:57

一楼正解···

pterdragon · 发表于 2009-10-8 03:01:32

支持你一下

关注微信公众号

侵权投诉：

意见建议：

ADODB.Field 错误'80020009'BOF 或 EOF 中有一个是“真”

精彩评论3

狮子鱼社区团购v18.1去后门全开源独立版：

仿2019最新版fir.imAPP应用分发托管平台|iO

最新微信在线答题小程序源码独立版：自带题

精美企业公司官网小程序20.0含前端+后端：

抖音买的十几种课程（5T）：含基本全赛道+

求职招聘小程序全解密开源运营版：含小程序

小狐狸ChatGPT付费创作系统智能问答小程序

ThinkPHP+uniapp全开源仿小红书圈子系统全

抖音权重查询源码修复版：内置更稳定的API

关于我们

帮助中心

服务指南

侵权投诉处理

点击这里投诉侵权

反馈建议/违规信息举报