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

早知今日 2018-12-07 05:18:32
ADODB.Field 错误 '80020009'

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

/search.asp，行 0




<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<%
page=request("page")
up_down=request.QueryString("up_down")
keyword=Server.HTMLEncode(request("keywords"))
Set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select * from Article where title like '%"&keyword&"%' order by addtime desc",Conn,1,2
pgsz=15
if rs.recordcount=0 then
cur_page=1
total=1
session("count")=0
else
if isempty(session("cur_page")) or isNull(session("cur_page")) then
session("cur_page")=0
end if
cur_page=session("cur_page")
rs.pagesize=cint(pgsz)
if (rs.recordcount/pgsz)=INT(rs.recordcount/pgsz) then
total=INT(rs.recordcount/pgsz)
else
total=INT(rs.recordcount/pgsz)+1
end if
if page="" then
if len(up_down)=0 then
cur_page=1
end if
if up_down="up" then
cur_page=cur_page-1
end if
if up_down="down" then
cur_page=cur_page+1
end if
if cur_page>total then
cur_page=total
end if
if cur_page=0 then
cur_page=1
end if
else
cur_page=page
end if
session("count")=rs.recordcount
rs.absolutepage=cur_page
rowcount=rs.pagesize
end if
session("cur_page")=cur_page
session("total")=total
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>信息检索_<%=SiteName%></title>
<meta name="keywords" content="<%=rs("keywords")%>"/>
<meta name="description" content="<%=rs("description")%>"/>
<link rel="stylesheet" type="text/css" href="images/css/xiao5u.css" />
<script type="text/javascript" src="images/js/jquery-1.8.3.min.js"></script>
<script type="text/javascript" src="images/js/menu.js"></script>
</head>
<body>
<!--#include file="inc/head.asp"-->
<div class="mainbox">
<div class="mainnr bot1">
<div class="grayline ">
<div class="positionbg">
<div class="position bot10">当前位置：首页 >> 浏览信息</div>
</div>
<div class="sealist" style="font-size:14px;">
<ul>
<%
if rs.eof then
response.Write("<li>报歉！未找到符合条件的内容！</li>")
else
i=1
do while not rs.eof and i<=pgsz%> <li style="line-height:30px;"><a href="Article.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=rs("title")%></a> <%=rs("addtime")%> <p style="color:#008000"> Article.asp?id=<%=rs("id")%></p> </li>
<%
i=i+1
rs.movenext
loop
end if
%>
</ul>
</div>
</div>
<div class="clear-1"></div>
</div>
</div>
<%
rs.close
set rs=nothing
%>
<!--#include file="inc/bottom.asp"-->
</body>
</html>


麻烦大神
...全文
738 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
早知今日 2018-12-11
  • 打赏
  • 举报
 回复
引用 2 楼 hookee 的回复:
上面写错了，改一下 
keyword=Replace(request("keywords"), "'", "''")
Set rs = CreateObject("Adodb.Recordset")
rs.cursorLocation = 3
rs.open "select * from Article where title like '%" & keyword & "%' order by addtime desc", Conn, 3 , 1
...
If rs.EOF And rs.BOF Then 
   response.Write("<li>报歉！未找到符合条件的内容！</li>")
...

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'rs.cursoLocation'

/search.asp，行 9

<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<%
page=request("page")
up_down=request.QueryString("up_down")
keyword=Replace(request("keywords"), "'", "''")
Set rs = CreateObject("Adodb.Recordset")
rs.cursoLocation = 3
rs.open "select * from Article where title like '%" & keyword & "%' order by addtime desc", Conn, 1 , 3
pgsz=15
 if rs.recordcount=0 then
   cur_page=1
   total=1
   session("count")=0
  else
   if isempty(session("cur_page")) or isNull(session("cur_page")) then
      session("cur_page")=0
   end if
   cur_page=session("cur_page")
   rs.pagesize=cint(pgsz)
   if (rs.recordcount/pgsz)=INT(rs.recordcount/pgsz) then
      total=INT(rs.recordcount/pgsz)
   else
      total=INT(rs.recordcount/pgsz)+1
   end if
   if page="" then
   if len(up_down)=0 then
      cur_page=1
   end if
   if up_down="up" then
      cur_page=cur_page-1
   end if
   if up_down="down" then
      cur_page=cur_page+1
   end if
   if cur_page>total then
      cur_page=total
   end if
   if cur_page=0 then
      cur_page=1
   end if
   else
   	  cur_page=page
   end if
   session("count")=rs.recordcount
   rs.absolutepage=cur_page
   rowcount=rs.pagesize
end if
   session("cur_page")=cur_page
   session("total")=total
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>信息检索_<%=SiteName%></title>
<meta name="keywords" content="<%=rs("keywords")%>"/>
<meta name="description" content="<%=rs("description")%>"/>
<link rel="stylesheet" type="text/css" href="images/css/xiao5u.css" />
<script type="text/javascript" src="images/js/jquery-1.8.3.min.js"></script>
<script type="text/javascript" src="images/js/menu.js"></script>
</head>
<body>
<!--#include file="inc/head.asp"-->
<div class="mainbox">
  <div class="mainnr bot1">
    <div class="grayline  ">
      <div class="positionbg">
        <div class="position bot10">当前位置：首页 >> 浏览信息</div>
      </div>
      <div class="sealist" style="font-size:14px;">
		<ul>
<%
If rs.EOF And rs.BOF Then 
   response.Write("<li>报歉！未找到符合条件的内容！</li>")
else
i=1
do while not rs.eof and i<=pgsz%> <li style="line-height:30px;"><a href="Article.asp?id=<%=rs("id")%>" target="_blank" title="<%=rs("title")%>"><%=rs("title")%></a> <%=rs("addtime")%> <p style="color:#008000"> Article.asp?id=<%=rs("id")%></p> </li>
<%
i=i+1
rs.movenext
loop
end if
%>		 
		</ul>
      </div>
    </div>
    <div class="clear-1"></div>
  </div>
</div>
<%
rs.close
set rs=nothing
%>
<!--#include file="inc/bottom.asp"-->
</body>
</html>
hookee 2018-12-09
  • 打赏
  • 举报
 回复
上面写错了，改一下 
keyword=Replace(request("keywords"), "'", "''")
Set rs = CreateObject("Adodb.Recordset")
rs.cursorLocation = 3
rs.open "select * from Article where title like '%" & keyword & "%' order by addtime desc", Conn, 3 , 1
...
If rs.EOF And rs.BOF Then 
   response.Write("<li>报歉！未找到符合条件的内容！</li>")
...
hookee 2018-12-09
  • 打赏
  • 举报
 回复 
keyword=Replace(request("keywords"), "'", "''")
Set rs = CreateObject("Adodb.Recordset")
rs.cursoLocation = 3
rs.open "select * from Article where title like '%" & keyword & "%' order by addtime desc", Conn, 1 , 3
...
If rs.EOF And rs.BOF Then 
   response.Write("<li>报歉！未找到符合条件的内容！</li>")
asp.net BOF或EOF有一个是真，或者当前记录已被删除
我们这时要做的就是在使用Recordset对象的moveNext 等方法之前先利用RecordsetCount属性判断一下数据库中的数据是否为空方法： 代码如下: dim objRs as New Recordset dim objCn as New connection dim strSql as string objCn.ConnectionString=”fileDsn=student.dsn;User_Id=sa;PassWord=123″ objcn.open strSql=”SELECT * FROM Student_info” objRs.Open strSql ,objCn,
SQL语法大全
SQL语法大全 SQL语法大全 1. ASP与Access数据库连接： 2. ASP与SQL数据库连接： 建立记录集对象： set rs=server.createobject("adodb.recordset") rs.open SQL语句,conn,3,2 3. SQL常用命令使用方法： (1) 数据记录筛选： sql="select * from 数据表 where 字段名=字段值 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 like \'%字段值%\' order by 字段名 [desc]" sql="select top 10 * from 数据表 where 字段名 order by 字段名 [desc]" sql="select * from 数据表 where 字段名 in (\'值1\',\'值2\',\'值3\')" sql="select * from 数据表 where 字段名 between 值1 and 值2" (2) 更新数据记录： sql="update 数据表 set 字段名=字段值 where 条件表达式" sql="update 数据表 set 字段1=值1,字段2=值2 …… 字段n=值n where 条件表达式" (3) 删除数据记录： sql="delete from 数据表 where 条件表达式" sql="delete from 数据表" (将数据表所有记录删除) (4) 添加数据记录： sql="insert into 数据表 (字段1,字段2,字段3 …) values (值1,值2,值3 …)" sql="insert into 目标数据表 select * from 源数据表" (把源数据表的记录添加到目标数据表) (5) 数据记录统计函数： AVG(字段名) 得出一个表格栏平均值 COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计 MAX(字段名) 取得一个表格栏最大的值 MIN(字段名) 取得一个表格栏最小的值 SUM(字段名) 把数据栏的值相加 引用以上函数的方法： sql="select sum(字段名) as 别名 from 数据表 where 条件表达式" set rs=conn.excute(sql) 用 rs("别名") 获取统的计值，其它函数运用同上。 (5) 数据表的建立和删除： CREATE TABLE 数据表名称(字段1 类型1(长度),字段2 类型2(长度) …… ) 例：CREATE TABLE tab01(name varchar(50),datetime default now()) DROP TABLE 数据表名称 (永久性删除一个数据表) 4. 记录集对象的方法： rs.movenext 将记录指针从当前的位置向下移一行 rs.moveprevious 将记录指针从当前的位置向上移一行 rs.movefirst 将记录指针移到数据表第一行 rs.movelast 将记录指针移到数据表最后一行 rs.absoluteposition=N 将记录指针移到数据表第N行 rs.absolutepage=N 将记录指针移到第N页的第一行 rs.pagesize=N 设置每页为N条记录 rs.pagecount 根据 pagesize 的设置返回总页数 rs.recordcount 返回记录总数 rs.bof
ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
运行时错误’３０２１‘；　ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 第一个：编码错了 第二种情况就是：它确实没有数据了。
iis php eof错误,[求助]BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个...
[求助]BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个Microsoft VBScript 编译器错误 错误 '800a03f6'缺少 'End'/iisHelp/common/500-100.asp，行242ADODB.Recordset 错误 '800a0bcd'BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。/Mu...
[置顶] 如何处理：ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录...
做学生管理系统是，会一直弹出一个对话框就是： 运行时错误’３０２１‘； ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 它几乎无所不在，它的意思很简单就是，它需要数据时，没有数据可用了。 一般来讲，学生管理系统，就有２个地方最容易出现这个问题。 第一个：编码错了 If mrc.EOF = False　Then 　　...
ASP

28,391

社区成员

357,059

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章