asp 简单分页代码

　　<%

　　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%>