<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>