南京交警被撞:asp分页程序却为什么显示了全部记录?

<%@language="vbscript"%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Strconn="driver={Microsoft Access Driver (*.mdb)}; "
Strconn=strconn & "dbq= " & Server.MapPath("database\财务.mdb")
conn.open strconn
set rs=server.createobject("adodb.recordset")
rs.open "select * from 表1",conn,1,1

pageno=cint(request.querystring("pageno"))
if request.querystring("pageno")="" then pageno=1
rs.pagesize=3
pagecoun= rs.pagecount

rs.absolutepage=pageno
while not rs.eof
for j=0 to rs.fields.count-1
response.write rs(j)
next
rs.movenext
response.write "<p>"
wend
if pageno=1 and not pageno=pagecoun then
response.write "上页"
response.write "<a href=base.asp?pageno="&pageno+1&">下页</a>"
elseif pageno=pagecoun and not pageno=1 then
response.write "<a href=base.asp?pageno="&pageno-1&">上页</a>"
response.write "下页"
else
response.write "<a href=base.asp?pageno="&pageno-1&">上页</a> "
response.write "<a href=base.asp?pageno="&pageno+1&">下页</a> "
end if
conn.close
set rs=nothing
set conn=nothing
%>
/********************************************
应该说我设置了rs.pagesize=3则每页应显示3条记录,可实际却显示了全部.为何?
不要更改循环的条件,就是while not rs.eof.以下程序也是这个循环条件,却做到了分页,不解!!
在分页的情况下,rs.eof 到底是指当前页的结尾,还是所有记录的结尾?
/********************************************