asp 簡(jiǎn)單分頁(yè)代碼

%
set rs=server.createobject("adodb.recordset")
exce="sql" 'sql 查詢語(yǔ)句
rs.open exce,conn,1,1
%>
然后是分頁(yè)屬性的設(shè)置
%
rs.PageSize=3 ‘設(shè)置頁(yè)碼
pagecount=rs.PageCount '獲取總頁(yè)碼
page=int(request("page")) '接收頁(yè)碼
if page=0 then page=1 '判斷
if request("page")="" then page=1
rs.AbsolutePage=page '設(shè)置本頁(yè)頁(yè)碼
%>
最后是body里的分頁(yè)顯示
%
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%>
首頁(yè)|前一頁(yè)
a href="log1.asp?page=%=page+1%>">后一頁(yè)/a>|
a href="log1.asp?page=%=pagecount%>">末頁(yè)/a>
%elseif page>1 and not page=pagcount then%>
a href="log1.asp?page=1">首頁(yè)/a>|
a href="log1.asp?page=%=page-1%>">前一頁(yè)/a>|
a href="log1.asp?page=%=page+1%>">后一頁(yè)/a>|
a href="log1.asp?page=%=pagecount%>">末頁(yè)/a>
%elseif page=pagecount then%>
a href="log1.asp?page=1">首頁(yè)/a>|
a href="log1.asp?page=%=page-1%>">前一頁(yè)/a>|
下一頁(yè)|
末頁(yè)
%end if%>