asp 简单分页代码
2018-09-06 12:27
复制代码 代码如下:
<%
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%>