在线等！有哪位高手帮我看下，在检索出记录后以后的分页显示出问题

2006-05-06 03:15:17 135 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

海康威视GigE工业相机的python调用demo 默认路径安装完成后，在路径C:\Program Files (x86)\MVS\Development\Samples\Python\BasicDemo下的BasicDemo.py中，海康威视官方提供了基本的调用方法，本文也是基于这个修改的。BasicDemo.py提供了通过枚举选择相机的方法，在官方的另一个DEMO：ConnectSpecCamera.py中提供了另一种不通过枚举，直接访问特定IP相机的方法，也可以参考。另外，如果每台相机都定义了唯一的用户定义名，也可以通过用户定义名来区分相机。阅读详情

检索功能和分页显示的功能都能实现，但是如果检索出来的有两页以上，点击第二页就马上出现以下信息

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
第 25 行

第25行　是if not rs3.eof then　

检索的表单
<table align="center">
<form name="search" action="" method="post">
<tr>
<td height="64" align="left"><img src="images/index_61.gif" width="120" height="37"></td>
<td align="center"> <font size="2">按类型检索：</font> <select name="chaxun">
<option value="menuname">文章标题</option>
<option value="content">文章内容</option>
</select> </td>
<td><input type="text" name="keyword" ></td>
<td><input type="submit" name="tijiao" value="提交"></td>
</tr>
</form>
</table>

　主要ASP代码　　　

chaxun=request.Form("chaxun")
keyword=request.form("keyword")

if keyword<>"" then
if chaxun= "menuname" then
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from menu where menuname like '%"&keyword&"%'"
rs3.open sql3,conn,1
end if

if chaxun= "content" then
set rs4=server.CreateObject("adodb.recordset")
sql4="select * from article where content like '%"&keyword&"%'"
rs4.open sql4,conn,1
id3=rs4("id")
set rs3=server.CreateObject("adodb.recordset")
sql3="select * from menu where id="&id3
rs3.open sql3,conn,1
end if

else
response.write"请输入关键字后在进行检索！"
end if

if not rs3.eof then
response.Write "搜索结果如下"
response.Write "<table width='250' border='1' align='center' cellpadding='0' cellspacing='2' bordercolor='#A3A6CE' bordercolorlight='#A3A6CE' bordercolordark='#A3A6CE'>"
response.Write "<tr><td align='center' bgcolor='#A3A6CE' ><font size='2'>文章标题</font>"
response.Write "</td></tr>"
dim pageNo,i,j
if request.QueryString("pageNo")="" then
pageNO=1
else
pageNo=cint(request.QueryString("pageNo"))
end if
rs3.pageSize = 20
rs3.absolutepage=pageNo
I=rs3.pagesize
do while Not rs3.eof and I>0
I=I-1
response.Write"<tr><td>"&"<a href='"&rs3("url")&"'>"&rs3("menuname")&"</a></td>"
rs3.movenext
response.Write("</tr>")
loop
response.Write("<P align=center>"&"请选择数据页")
for I=1 to rs3.pagecount
if I=pageNo then
response.Write " "&I&" "
else
response.Write " "&"<a href='course_rs2.asp?pageNo=" & I& "&keyword="&keyword&"'>"& I &"</a> "
end if
next
else
response.Write("<p align=center>没有符合的文章</p> "&"<br>")
response.Write"<a href='ask_rs.asp'><p align=center>您可以通过我们网站提供的资源预定功能向管理员或者其他学习者寻求帮助</p></a>"
end if
response.Write "</table>"

哪位高手帮帮忙，谢了哦！

...全文

STM32F103C8T6驱动DM542步进电机：从CubeMX配置到按键控制的全流程避坑指南本文详细介绍了如何使用STM32F103C8T6通过CubeMX配置驱动DM542步进电机的全流程，包括PWM频率计算、GPIO模式选择及按键控制实现。重点解决了常见硬件连接错误、PWM参数配置及加减速算法优化，帮助开发者快速搭建稳定的电机控制系统。阅读详情

xigua56

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

hyjia 2006-05-12

打赏
举报

<style>
.table{
font-size:12px;
border-collapse:collapse;
table-layout:fixed;
word-wrap:break-word;
word-break:break-all;
}
a:link {
color: #000000;
text-decoration: underline;
font-weight: normal;
font-family: "宋体", Arial;
}
a:visited {
color: #000000;
text-decoration: underline;
}
a:hover {
color: #999999;
text-decoration: none;
}
a:active {
color: #999999;
text-decoration: none;
}
</style>
<%
chklog()
dim s ,page,rs,sqlstr,url,sid,title
s=trim(request.QueryString("s"))
sid=trim(request.QueryString("sid"))
page=trim(request.QueryString("page"))

if (s<>"" and not isnumeric(s)) or ( page<>"" and not isnumeric(page)) then
responseout("参数错误")
end if
if s="" then
s=1
end if
if page="" then
page= 1
end if
page=cint(page)

select case s
case 1 '时间检索
title="最新问题"
url="questionslist.asp?s=1"
sqlstr="select questions.id as id, title,qu_date,re_count,username from questions,login where login.id=userid order by qu_date desc "
case 2 '回复检索
title="最热问题"
url="questionslist.asp?s=2"
sqlstr="select questions.id as id, title,qu_date,re_count,username from questions,login where login.id=userid order by re_count desc"
case 3 '按毕设题目检索
if sid<>"" and not isnumeric(sid) then
responseout("参数错误")
end if
if sid="" then
sid=1
end if
title="关于"&conn.execute("select subjectname from subjects where id="&sid&"")("subjectname")&"的所有问题"
url="questionslist.asp?s=3&sid="&sid
sqlstr="select questions.id as id,title,qu_date,re_count,login.username from questions,login,subjects where userid=subjects.studentid and userid=login.id and subjects.id="&cint(sid)&" order by qu_date desc "
case 4 '搜索
dim keywords,tablecols
keywords=server.HTMLEncode(trim(request.QueryString("keywords")))
tablecols=server.HTMLEncode(trim(request.QueryString("tablecols")))
if keywords="" then
responseout("缺少搜索关键字")
end if
if tablecols="" then
responseout("缺少查询范围")
end if
url="questionslist.asp?s=4&keywords="&keywords&"&tablecols="&tablecols
sqlstr="select questions.id as id, title,qu_date,re_count,username from questions,login,subjects where login.id=userid and (userid=studentid or userid=teacherid) "

select case tablecols
case "author"
sqlstr=sqlstr&" and username like '%"&keywords&"%' order by qu_date desc"
case "replyer"
sqlstr=sqlstr&" and questions.id in (select question_id from answers where reply_user like '%"&keyworks&"%' ) order by qu_date desc"
case "title"
sqlstr=sqlstr&" and title like '%"&keywords&"%' order by qu_date desc"
case "content"
sqlstr=sqlstr&" and question like '%"&keywords&"%' order by qu_date desc"
case "answer"
sqlstr=sqlstr&" and questions.id in (select question_id from answers where answer like '%"&keywords&"%') order by qu_date desc"
case "subjectname"
sqlstr=sqlstr&" and subjectname like '%"&keywords&"%' order by qu_date desc"
case else
responseout("查询范围不确定")
end select
end select

set rs=server.CreateObject("adodb.recordset")
rs.open sqlstr,conn,3,2
rs.pagesize=20

if not rs.eof and not rs.bof then
ipage=page
rs.absolutepage=ipage
end if
if page>rs.pagecount then
responseout("请求页数太大或没有记录")
end if

%>

<script>

</script>
<script src="common.js" type="text/javascript"></script>
<form name="form_search" method="post">
<div align="center" class="table">
关键字 : <input type="text" name="keywords" size="40" value="<%=request.Form("keywords1")%>" onFocus="this.select()">
范围 : <select name="tablecols">
<option value="" selected>查询范围</option>
<option value="author">发布者</option>
<option value="replyer">回复者</option>
<option value="title">问题标题</option>
<option value="content">问题内容</option>
<option value="answer">回复内容</option>
<option value="subjectname">毕设题目</option>
</select>
<input type="hidden" value="" name="keywords1">
<input type="hidden" value="" name="tablecols1">
<input type="button" name="sub_search" value=" 检索 " onClick="chk()">
<input type="button" name="" value=" 全部 " onClick="javascript:window.location='questionslist.asp'">
<a href="index.asp">首页</a> <a href="#">高级检索</a>
</div>
</form>
<script language="javascript">
if(document.form_search.tablecols.selectedIndex==0)
document.form_search.tablecols.options[<%=request.Form("tablecols1")%>].selected=true;
</script>
<div align="center"><%=title%></div>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0" class="table">
<tr>
<th width="458">问题</th>
<th width="140">发布时间</th>
<th width="85">回复/次数</th>
<th width="81">发布者</th>
<th width="24"> </th>
</tr>
<%
for i=1 to rs.pagesize
if not rs.eof and not rs.bof then

%>
<tr onMouseOver="this.bgColor='#E7E7E7'" onMouseOut="this.bgColor='#ffffff'">
<td> • <a href="question.asp?id=<%=rs("id")%>" target="_blank"><%=format1(searchcolor(rs("title"),keywords),50)%></a></td>
<td><%=rs("qu_date")%></td>
<td align="center"><%=rs("re_count")%></td>
<td><%=searchcolor(rs("username"),keywords)%></td>
<td> </td>
</tr>
<%
rs.movenext
a=a+1
end if
next

%>
<tr>
<td colspan="5" align="center">
<%
if rs.pagecount =1 then
response.Write "首页上页下页末页 "
else
if cint(ipage)=1 then %>
首页上页 <a href="<%=url%>&page=<%=ipage+1%>">下页</a> <a href="<%=url%>&page=<%=rs.pagecount%>">末页</a>
<%elseif cint(ipage)=cint(rs.pagecount) then%>
<a href="<%=url%>&page=1">首页</a>
<a href="<%=url%>&page=<%=ipage-1%>">上页</a>
<a href="<%=url%>&page=<%=rs.pagecount%>">下页</a> <a href="<%=url%>&page=<%=rs.pagecount%>">末页</a>
<%else%>
<a href="<%=url%>&page=1">首页</a>
<a href="<%=url%>&page=<%=ipage-1%>">上页</a>
<a href="<%=url%>&page=<%=ipage+1%>">下页</a> <a href="<%=url%>&page=<%=rs.pagecount%>">末页</a>
<%end if
end if
%>
<%=ipage%>/<%=rs.pagecount%>页 <%=rs.pagesize*(ipage-1)+1%>-<%=rs.pagesize*(ipage-1)+a%>/<%=rs.recordcount%>条
第<input type="text" size="3" maxlength="4" id="targetpage" onKeyDown="enterjump(this.value)">页
<input type="hidden" name="fsd">
<input type="button" value="跳转" style="border-style:ridge; " onClick="jump(targetpage.value);">
</td>
</tr>
</table>

<%rs.close
set rs=nothing

%>

yzzm004 2006-05-12

打赏
举报

看看这里:
chaxun=request.Form("chaxun")
keyword=request.form("keyword")
对照你的翻页:
<a href='course_rs2.asp?pageNo=" & I& "&keyword="&keyword&"'>

翻页的时候并没有介绍到因为从chaxun,keyword这两个信息.
改成
chaxun=request("chaxun")
keyword=request("keyword")
并在翻页连接中加入相应值传递过去看看.

xigua56 2006-05-06

打赏
举报

<a href='course_rs2.asp?pageNo=" & I& "&keyword="&keyword&"'>
我在第1，2，3...页的超链接时用了这句代码，我的意思时将我查询的条件也附带上去。但是没用。

xigua56 2006-05-06

打赏
举报

谢谢你们的指导，不过我的问题还是没解决，我的分页显示是可以的，我举个例子吧，我在这个界面输入我要查找的信息，它显示出来来有25个，而我的界面只能显示20条信息，所以这里我给安排了分页显示，它先显示出20条显示，后面的5条只能在点击第2页时才能显示，这里我都可以运行成功的，只是我在点击第2页时就出现我刚才说的问题，第25行缺少对象。

moodboy1982 2006-05-06

打赏
举报

把：rs3.open sql3,conn,1
改为：rs3.open sql3,conn,1,1
试试

-------------个性签名--------------
http://www.esoftnow.com/bbs
技术论坛，欢迎发贴！

robake 2006-05-06

打赏
举报

<%
set rs=server.createobject("adodb.recordset")
sql="select * from table where ......"
rs.opensql,connstr,1,1
%>
<%
dim curpage,i
if request("page")="" then
curpage=1
else
curpage=cint(request("page"))
end if
rs.pagesize=5
rs.absolutepage=curpage
for i=1 to rs.pagesize
%>
...此处放你要显示的内容.

<%
rs.movenext
if rs.eof then
i=i+1
exit for
end if
next
response.write"<div align=right>"
response.write"         第"+cstr(curpage)+"页/总"+cstr(rs.pagecount)+"页  "
response.write"本页"+cstr(i-1)+"条/总"+cstr(rs.recordcount)+"条  "
if curpage=1 then
response.write"首页上一页 "
else
response.write"<a href='?Table=Mail&all="+cstr(rs.recordcount)+"&page=1'>首页</a>  <a href='?Table=Mail&all="+cstr(rs.recordcount)+"&page="+cstr(curpage-1)+"'>上一页</a>  "
end if
if curpage=rs.pagecount then
response.write"下一页末页 "
else
response.write" <a href='?Table=Mail&all="+cstr(rs.recordcount)+"&page="+cstr(curpage+1)+"'>下一页</a>  <a href='?Table=Mail&all="+cstr(rs.recordcount)+"&page="+cstr(rs.pagecount)+"'>末页</a> "
end if
response.write"</div>"
end if
rs.close
set rs=nothing%>

然后你改改上面的代码吧,基本就这样

在线等！有哪位高手帮我看下，在检索出记录后以后的分页显示出问题

相关推荐