<%
rs.PageSize=2 '指示Recordset 中一頁包含的記錄數
pagecount=rs.PageCount '使用PageCount屬性可確定Recordset 對象中數據的頁數
page=int(request("page"))
if page<=0 then page=1
if request("page")="" then page=1
rs.AbsolutePage=page '指定當前記錄所在的頁
%>
<body>
<%
if rs.EOF and rs.BOF then
response.write ("暫時還沒有文章")
else
for i=1 to rs.PageSize
%>
顯示內容
<%
rs.MoveNext
next
end if
%>
<%
for i=1 to pagecount
%>
<a href="index.asp?page=<%=i%>"><%=i%></a>
<%next%>
</body>
