asp分頁

<%

Set conn=Server.CreateObject("Adodb.Connection")

connstr="provider=Microsoft.JET.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

conn.open connstr

Set rs=Server.CreateObject("Adodb.Recordset")

sql="Select * from info"

rs.open sql,conn,1,1

%>

rs.pagesize=5  '作用是指定每頁的記錄條數

curpage=Request.QueryString("curpage") '這裡主要是用于翻頁的功能，将URL的post參數curpage傳遞給curpage變量，這個curpage将得到浏覽者想要到達的頁數，同時用if語句将沒有傳遞到curpage參數的頁直接賦于第一頁的值

if curpage="" then curpage=1

rs.absolutepage=curpage '這個也是個内置的屬性，，它代表的意思就是将curpage變量的數值指定為目前頁

for i= 1 to rs.pagesize '利用for循環在每頁顯示rs.pagesize屬性中指定的記錄數

if rs.eof then '當最後一頁達不到指定記錄時就退出循環，以免出錯

exit for

end if

<%=rs("record_info")%><br>

rs.movenext '用rs.movenext方法将rs記錄集往下移一條記錄

next

<%if curpage=1 then%>

首頁

<%else%>

<a href="?curpage=1">首頁</a>

<%end if%>

上一頁

<a href="?curpage=<%=curpage-1%>">上一頁</a>

<%end if%>

<%if rs.pagecount<curpage+1 then%>

下一頁

<a href="?curpage=<%=curpage+1%>">下一頁</a>

尾頁

<a href="?curpage=<%=rs.pagecount%>">尾頁</a>

<%end if%><br/>

目前第<%=curpage%>頁<br/>

共有<%=rs.pagecount%>頁<br/>

共有：<%=rs.recordcount%>條記錄<br/>