突然发现原来的分页代码，并不适用查询结果分页，分页后点下一页只会停留在第一页的数据。这是因为点了下一页，页面会重新执行查询代码。在网上摸索了几天，再结合自己的想法，终于捣鼓出一段可行的代码。

<%

set rs=server.CreateObject("adodb.recordset")

sql="select * from 表 where "

if request("keyword")<>"" then

key=trim(request("keyword"))

sql= sql & "item like '%"&key&"%' and "

end if

sql= sql & " 1=1 "

rs.open sql,conn,1

if rs.bof or rs.eof then

response.write "无信息"

else

dim page

page=Clng(request("page"))

rs.pagesize=9

if page<1 then page=1

if page>rs.pagecount then page=rs.pagecount

rs.Absolutepage=page

%>

<%for i=1 to rs.pagesize%>

<%=rs("字段1")%><%=rs("字段2")%>

<%

rs.movenext

if rs.eof then exit for

next

end if

%>

总共<%=Cstr(rs.RecordCount)%>；页：<%=page%>/<%=rs.pagecount%>；

首页，

上一页，

下一页，

末页