试图在查询页面中做分页显示，但发现问题：
假设：仅查询并显示出姓名为A的用户，且每页10条分页显示
故障：虽然仅有5条信息符合条件，并在第一页显示出，但依然可以翻页，并将所有信息列出

部分代码：

if 列表框="1" then
rs.Source = "select * from 表 where 字段 Like '%"& 文本输入值 &"%' order by id desc"
... ...
rs.CursorType = 1
rs.CursorLocation = 2
rs.LockType = 1

分页代码：
<%
dim pagenum
rs.pagesize=9
pagecount1=rs.pagecount
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pagenum=1
else
pagenum=request.querystring("pagenum")
rs.absolutepage=trim(request.querystring("pagenum"))
end if
%>

<%do while not rs.eof and i<=9%>
...<%=...%>...

<%
i=i+1
rs.movenext
loop
%>

链接：
<%if pagenum>1 then%>
<a href=/rcsystem/View.asp?pagenum=<%=(pagenum-1)%>>前页</a>
<%else%>
<span>前页</span>
<%end if%>

<%if pagenum < trim(pagecount1) then%>
<a href=View.asp?pagenum=<%=(pagenum+1)%>>后页</a>
<%else%>
<span>后页</span>
<%end if%>