asp中实用分页程序代码

page=request("page")
if page<>"" then
p_absolutepage=cint(page)
else
p_absolutepage=1
end if
sql="select * from [date]"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
p_pagesize=2
rs.pagesize=p_pagesize
rs.absolutepage=p_absolutepage
p_pagecount=rs.pagecount
if p_pagecount=0 then p_pagecount=1
p_recordcount=rs.recordcount

 

<%if p_absolutepage<2 then%>
第一页
上一页
<%else%>
第一页
上一页
<%end if%>
<%if p_pagecount-p_absolutepage<1 then%>
下一页 最后一页
<%else%>

下一页

最后一页
<%end if%>
页次：<%=p_absolutepage%>/<%=p_pagecount%>页][共<%=p_recordcount%>条][<%=p_pagesize%>条/页]