一聚教程网:一个值得你收藏的教程网站

热门教程

asp中实用分页程序代码

时间:2022-06-29 14:23:12 编辑:袖梨 来源:一聚教程网

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%>条/页]

热门栏目