上一页、下一页链接（采用分页方式）

核心代码：
rscount=rs.recordcount
rs.pagesize=1
if k="" then
k=1
else
k=cint(k)
end if
rs.absolutepage=k

...

rs.movenext