请问有关搜索中的分页问题

tcpc2003 2004-05-07 11:27:37
搜索的结果页面根据搜索的条件生成相应的SQL再进行查询及分页 请问这时怎么分页 主要问题是那个搜索的SQL如何传递???

...全文
49 15 点赞 打赏 收藏 举报
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年，不再开放新的回复
发表回复
dullwolf 2004-07-08
这个价值超过200分
巨快，分页演示，通用表维护
http://www.adr.gov.cn/download/panyuguang/adrnew/dict_List.asp
下载
http://www.adr.gov.cn/download/panyuguang/adrnew.rar

  • 打赏
  • 举报
 回复 赞
fashchina 2004-06-21
思考。。。ing!
  • 打赏
  • 举报
 回复 赞
tcpc2003 2004-06-21
这样sql也显示在外面，，容易外泄一些库结构信息...
  • 打赏
  • 举报
 回复 赞
叮咚叮咚叮叮咚 2004-05-10
用url吧~~~你管它长不长的呢,实现功能就成了,^_^~~
  • 打赏
  • 举报
 回复 赞
tcpc2003 2004-05-10
session同一个客户端就有些问题...(一个用户打开两个同一页面)
cookies又有客户端的限制.......
  • 打赏
  • 举报
 回复 赞
tcpc2003 2004-05-09
上面这个例子它的SQL好象是固定的吧，但是查询时其SQL是变化，便通常分页又是写成函数，所以SQL中需要的参数也不好固定，所以也不好传到分页的函数中去。。。

思考。。。中....
  • 打赏
  • 举报
 回复 赞
nssp 2004-05-08
在下一页的链接地址中附上你所有需要的参数，如：
<a href="?page=2&keyword=111&stype=2">下一页</a>
  • 打赏
  • 举报
 回复 赞
amwje123 2004-05-08
楼上的好强哦!! 有你的就不用我的了 哈哈 开玩笑..
  • 打赏
  • 举报
 回复 赞
stanleycheung 2004-05-08
在分页显示中最好用URL传递参数
完整分页显示的示例，我的习惯是写两个页面
自己做适当修改
index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/dbconn.inc" -->
<%
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * From gb Order By id Desc"
rs.Open sql,conn,1,1
currentPage=Request.QueryString("page") '当前页面
If Not IsEmpty(currentPage) Then
currentPage=CInt(currentPage)
Else
currentPage=1
End If
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>guestbook</title>
<link href="../css/index_main.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.border01 {
border-bottom: 1px dotted #999999;
}
-->
</style>
</head>

<body oncontextmenu="window.event.returnValue=false;" onselectstart="window.event.returnValue=false;" ondragstart="window.event.returnValue=false;" onLoad="window.status='chinese patient';">
<br>
<table width="500" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td></td>
</tr>
<tr>
<td>
<% If rs.BOF And rs.EOF Then %>
<div align="center">no message</div>
<%
Else
rs.PageSize=8 '设置每页显示8条记录
totalPut=rs.RecordCount '记录总数
totalPage=rs.PageCount '页面总数
MaxPerPage=rs.PageSize '每页最大记录数
If currentpage<1 Then
currentpage=1
End If
If currentpage>totalPage Then
currentpage=totalPage
End If
If currentPage=1 Then
showpages
showContent
showpages
Else
If (currentPage-1)*MaxPerPage<totalPut Then
rs.Move (currentPage-1)*MaxPerPage
Dim bookmark
bookmark=rs.BookMark '移动到开始显示的记录位置
showpages
showContent
showpages
End If
End If
rs.Close
End If
Set rs=Nothing
conn.Close
Set conn=Nothing

Sub showContent
Dim i,k
k=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
Do While Not (rs.EOF Or Err)
k=k-1
%>
</td>
</tr>
<tr>
<td>No.<%= k %></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100" class="font8pt"><%= rs("name") %></td>
<td width="400" class="font8pt"><%= rs("text") %></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20%">
<% If rs("homepage")="還沒有主頁！" Then %>
<a href="javascript:alert('還沒有主頁！');" title="homepage: <%= rs("homepage") %>">homepage</a>
<% Else %>
<a href="<%= rs("homepage") %>" title="homepage: <%= rs("homepage") %>" target="_blank">homepage</a>
<% End If %>
</td>
<td width="20%">
<% If rs("email")="還沒有電郵！" Then %>
<a href="javascript:alert('還沒有電郵！');" title="email: <%= rs("email") %>">email</a>
<% Else %>
<a href="mailto:<%= rs("email") %>" title="email: <%= rs("email") %>">email</a>
<% End If %>
</td>
<td width="20%"> </td>
<td width="40%"> <div align="right">time: <%= rs("time") %></div></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0" class="border01">
<tr>
<td width="100"><font color="#666666">reply:</font></td>
<td width="400"><font color="#666666"><span class="font8pt"><%= rs("answer") %></span></font></td>
</tr>
</table></td>
</tr>
<tr>
<td>
<%
i=i+1
If i>=MaxPerPage Then Exit Do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出
rs.MoveNext
Loop
End Sub

Sub showpages()
Dim n
n=totalPage
%>
</td>
</tr>
<tr>
<td class="border01"> pages:
<%
If currentPage<>1 Then
Response.Write("<a href='index.asp?page="&(currentPage-1)&"'><font face='宋体' size='1'><< </font></a>")
End If
If rs.PageCount<=8 Then
For i=1 To rs.PageCount
Response.Write("[<a href='index.asp?page="&i&"'>"&i&"</a>]")
Next
Else
For i=1 To 8
Response.Write("[<a href='index.asp?page="&i&"'>"&i&"</a>]")
Next
End If
If currentPage<>rs.PageCount Then
Response.Write("<a href='index.asp?page="&(currentPage+1)&"'><font face='宋体' size='1'> >></font></a>")
End If
%>
     
total pages: [<%= totalPage %>]
<% End Sub %>
</td>
</tr>
</table>
<table width="500" border="0" align="center" cellpadding="3" cellspacing="0">
<form method="post" action="savedata.asp">
<tr>
<td><br><br></td>
</tr>
<tr>
<td>name:
<input name="uname" type="text" class="text" size="10" value="<%= Session("uname") %>"></td>
</tr>
<tr>
<td>e-mail:
<input name="uemail" type="text" class="text" size="20"></td>
</tr>
<tr>
<td> homepage:
<input name="uhp" type="text" class="text" value="http://" size="25"></td>
</tr>
<tr>
<td><p>content:<br>
<textarea name="utext" cols="60" rows="10" class="textarea"></textarea>
</p>
<p>
<input name="submit" type="submit" value="submit" class="button">
   
<input name="reset" type="reset" value="reset" class="button">
</p>
</td>
</tr>
</form>
</table>
<!--#include file="../inc/copyright.js"-->
</body>
</html>

savedata.asp
<!--#include file="../inc/char.inc" -->
<!--#include file="../inc/dbconn.inc" -->
<%
Dim uname,uemail,uhp,uip,utext,sql,strHTML
uname=Request.Form("uname")
uemail=Request.Form("uemail")
uhp=Request.Form("uhp")
uip=Request.ServerVariables("REMOTE_ADDR")
utext=Request.Form("utext")
If uname=Empty Or utext=Empty Then
strHTML="<body bgcolor='#CCCCCC' scroll='no' oncontextmenu='window.event.returnValue=false;' onselectstart='window.event.returnValue=false;' ondragstart='window.event.returnValue=false;' onLoad='window.status=chinese patient;'><br><br><br><br><br><div align='center'><font face='Verdana' size='1' color='#990000'>please enter name and content<br><a href='index.asp'><font face='Verdana' size='1' color='#333333'>back</font></a></font></div></body>"
Response.Write(strHTML)
Response.End()
End If
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * From gb"
rs.Open sql,conn,3,3
rs.AddNew
rs("name")=htmlencode2(uname)
If uemail<>Empty Then
rs("email")=htmlencode2(uemail)
Else
rs("email")="還沒有電郵！"
End If
If uhp="http://" Then
rs("homepage")="還沒有主頁！"
Else
rs("homepage")=htmlencode2(uhp)
End If
rs("ip")=htmlencode2(uip)
rs("text")=htmlencode2(utext)
rs("time")=Now()
rs.Update
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
Response.Redirect("index.asp")
%>
  • 打赏
  • 举报
 回复 赞
tcpc2003 2004-05-07
session,,cookies不太好,,有限制

hidden也不行呀 因为我分页后再瞧下一页时不是提交表单 而是联接..
url也太长了吧 不太好

有没有其它方法呢
  • 打赏
  • 举报
 回复 赞
stayhere 2004-05-07
用Hidden域传递,用Request.querystring传递,用SESSION传递,还有cookies...自己选吧
  • 打赏
  • 举报
 回复 赞
lightsword 2004-05-07
这个搜索条件的值必须传递,不传递的话值就没了,可以用URL传值.
  • 打赏
  • 举报
 回复 赞
chang1216 2004-05-07
对rscyc1这个结果集 进行分页！！
  • 打赏
  • 举报
 回复 赞
chang1216 2004-05-07
<input type="text" name="搜索的参数" size="30" value="<%=request("搜索的参数")%>">

sql="select * from youtable where 搜索的参数 like '%"&request("搜索的参数")&"%' "
set rscyc1=server.createobject("adodb.recordset")
rscyc1.open sql,conn,3,1
就可以了!!!
  • 打赏
  • 举报
 回复 赞
tcpc2003 2004-05-07
??
  • 打赏
  • 举报
 回复 赞
相关推荐
实现PHP搜索加分页 本文实现PHP搜索加分页，解决了大量数量浏览的分页问题，力求让看完这篇文章的朋友在看完以后对于分页显示的原理和实现方法有所了解。
Ajax实现搜索功能的分页 主要为大家详细介绍了Ajax实现搜索功能的分页，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
BootStrap Table 分页后重新搜索问题的解决办法 前提: 自定义搜索且有分页功能,比如搜索产品名的功能. 现象:当搜索充气娃娃的时候返回100条记录,翻到第五页. 这时候搜索按摩棒,数据有200条,结果应该是第一页的记录,但是实际显示的还是第五页的结果. 也就是重新...
SSM框架实现分页和搜索分页的示例代码 本篇文章主要介绍了SSM框架实现分页和搜索分页的示例代码，小编觉得挺不错的，现在分享给大家，也给大家做个参考。一起跟随小编过来看看吧
Django 简单实现分页与搜索功能的示例代码 主要介绍了Django 简单实现分页与搜索功能的示例代码，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
Laravel框架搜索分页功能示例 主要介绍了Laravel框架搜索分页功能,涉及Laravel框架数据库查询、搜索及分页功能实现技巧,需要的朋友可以参考下
微信小程序之搜索分页功能的实现代码 主要介绍了微信小程序之搜索分页功能的实现代码，本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
jquery+json实现的搜索加分页效果 Javascript,json 实现的js 脚本搜索,加分页,附源码
layui表格 可搜索过滤 可分页 layui表格 可搜索过滤 可分页layui表格
vue实现前台列表数据过滤搜索、分页效果 主要为大家详细介绍了vue实现前台列表数据过滤搜索、分页效果，具有一定的参考价值，感兴趣的小伙伴们可以参考一下
Django 搜索结果分页的实现 以及点击下一页搜索条件丢失可能的原因分析 1.Django 搜索结果分页的实现 在这里我们用django自带的分页模块来实现 这个paginator对象中带有如下属性： #per_page：每页显示条目数量 #count：数据总个数 #num_pages：总页数 #page_range：总页数的索引范围，如...
EasyUi中的Combogrid 实现分页和动态搜索远程数据 jquery easyui中的combogrid比较特殊，算是combo和grid的组合，combogrid结合一个可编辑的文本框和下拉数据网格面板，可以让用户迅速找到并选择，又...下面给大家介绍EasyUi中的Combogrid 实现分页和动态搜索远程数据
GridView高效分页和搜索功能的实现代码 GridView高效分页和搜索功能的实现代码，需要的朋友可以参考一下
jquery实现联想词搜索框和搜索结果分页的示例 今天小编就为大家分享一篇jquery实现联想词搜索框和搜索结果分页的示例，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
Laravel实现ORM带条件搜索分页 今天小编就为大家分享一篇Laravel实现ORM带条件搜索分页，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
利用python对mysql表做全局模糊搜索并分页实例 主要介绍了利用python对mysql表做全局模糊搜索并分页实例，具有很好的参考价值，希望对大家有所帮助。一起跟随小编过来看看吧
瓮安县张家坡公共租赁住房项目初步设计说明115-v2.docx 瓮安县张家坡公共租赁住房项目初步设计说明115-v2.docx
AD9516_17_18 Eval Software 时钟芯片AD9516,AD9517,AD9518的寄存器配置软件
Matlab火灾烟雾检测火焰检测 课题为基于MATLAB的火焰识别。可以作为火灾检测的课题。火焰原理是根据火苗颜色特征，将彩色图像的每个像素都转化为RGB三个通道，然后符合一定比例关系的像素，就是火苗区域，然后结合形态学，去除干扰区域，留下火焰区域，框定，可以进行阈值设定，进行火灾报警。带界面GUI框架。需要您具备一定基础。
PyPI 官网下载 | pretextbook-0.5.0rc0-py3-none-any.whl 资源来自pypi官网。 资源全名：pretextbook-0.5.0rc0-py3-none-any.whl
发帖
ASP
加入

2.8w+

社区成员

35.7w+

社区内容

ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-05-07 11:27
社区公告
暂无公告