| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 551 人关注过本帖
标题:搜索完成后的分页怎么分??
只看楼主 加入收藏
kgdipbyve
Rank: 2
等 级:论坛游民
帖 子:346
专家分:35
注 册:2008-5-4
结帖率:92.31%
收藏
 问题点数:0 回复次数:1 
搜索完成后的分页怎么分??
<table width="72%" height="208" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="208" align="left" valign="middle"><%
set rsb=server.CreateObject("adodb.recordset")
if request("title")="anlie" then
sqlb="select * from Products where title like'%"&trim(request.form("title1"))&"%'"
rsb.open sqlb,conn,1,1
do while not rsb.eof
%>
            <table width="440" bgcolor="#E7E7E2"600"">
  <tr><td width="200" rowspan="3" bgcolor="#FFFFFF"><a href="http://<%=rsb("web")%>"><img src="<%=rsb("url")%>" alt="<%=rsb("title")%>" width="200" height="100" border="0"></a>
</td>
    <td width="49" height="31" bgcolor="#FFFFFF">名称:</td>
    <td width="175" bgcolor="#FFFFFF"><%=rsb("webname")%></td>
  </tr>
  <tr>
    <td height="30" bgcolor="#FFFFFF">网址:</td>
    <td height="30" bgcolor="#FFFFFF"><a href="http://<%=rsb("web")%>"><%=rsb("web")%></a></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF">简介:</td>
    <td bgcolor="#FFFFFF"><%= rsb("contnet") %>&nbsp;</td>
  </tr>
            </table>

<%

rsb.movenext
loop
rsb.close
set rsb=nothing
%>
<%
else
sqlb="select * from news where  title like'%"&trim(request.form("title1"))&"%'"
rsb.open sqlb,conn,1,1
do while not rsb.eof
%>
<table width="" bgcolor="#E7E7E2"600"">
  <tr><td width="184" bgcolor="#FFFFFF"><img src="images/images/fx.jpg" width="7" height="5">
</td>
    <td width="91" bgcolor="#FFFFFF"><%=rsb("title")%></td>
    <td width="146" bgcolor="#FFFFFF">[<%= rsb("uptime") %>]</td>
  </tr></table>

<%
rsb.movenext
loop
rsb.close
set rsb=nothing
end if

%>
                       </td>
        </tr>
      </table>


这是 我搜索完成后,加过分页会把所有的数据都进行分页。
      
这是我的分页代码
            <%
                                        
                                            set rsb=server.CreateObject("adodb.recordset")
                                            sqlb="select * from news   "
                                            rsb.open sqlb ,conn,1,1
                                            rsb.pagesize=12
                                             curpage=Request.QueryString("curpage")
if rsb.bof and rsb.eof then
response.Write"暂无记录!"
response.End()
end if
if curpage="" then curpage=1
rsb.absolutepage=curpage '将当前页赋值给逻辑页
for i= 1 to rsb.pagesize
if rsb.eof then
exit for
end if
   %>                              
!--这里是我搜索出来后要闲事的内容 --

  <%
rsb.movenext
next
%>
<%if curpage=1 then%>
首页
<%else%>
<a href="?curpage=1">首页</a>
<%end if%>

<%if curpage=1 then%>
上一页
<%else%>
<a href="?curpage=<%=curpage-1%>">上一页</a>
<%end if%>

<%if rsb.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="?curpage=<%=curpage+1%>">下一页</a>
<%end if%>

<%if rsb.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="?curpage=<%=rsb.pagecount%>">尾页</a>
<%end if%>
共<%=rsb.pagecount%>页   共有<%=rsb.recordcount%>条新闻  当前第<%=curpage%>页</td>
搜索更多相关主题的帖子: 搜索 
2008-08-01 18:01
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 
把sql语句的条件写到分页里
2008-08-01 18:14
快速回复:搜索完成后的分页怎么分??
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019739 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved