<%
set rs=server.createobject("adodb.recordset")
exce="sql" 'sql 查詢語句
rs.open exce,conn,1,1
%>
然后是分頁屬性的設置
<%
rs.PageSize=3 ‘設置頁碼
pagecount=rs.PageCount '獲取總頁碼
page=int(request("page")) '接收頁碼
if page<=0 then page=1 '判斷
if request("page")="" then page=1
rs.AbsolutePage=page '設置本頁頁碼
%>
最后是body里的分頁顯示
<%
if rs.bof and rs.eof then
response.write("NULL")
else
for i=1 to rs.PageSize
response.write rs("name")
response.write("<hr>")
rs.movenext
next
end if
%>
<p>
<%if page=1 and not page=pagecount then%>
首頁|前一頁
<a href="log1.asp?page=<%=page+1%>">后一頁</a>|
<a href="log1.asp?page=<%=pagecount%>">末頁</a>
<%elseif page<>1 and not page=pagcount then%>
<a href="log1.asp?page=1">首頁</a>|
<a href="log1.asp?page=<%=page-1%>">前一頁</a>|
<a href="log1.asp?page=<%=page+1%>">后一頁</a>|
<a href="log1.asp?page=<%=pagecount%>">末頁</a>
<%elseif page=pagecount then%>
<a href="log1.asp?page=1">首頁</a>|
<a href="log1.asp?page=<%=page-1%>">前一頁</a>|
下一頁|
末頁
<%end if%>