asp简单分页代码

<%
setrs=server.createobject("adodb.recordset")
exce="sql""sql查询语句
rs.openexce,conn,1,1
%>
然后是分页属性的设置
<%
rs.PageSize=3‘设置页码
pagecount=rs.PageCount"获取总页码
page=int(request("page"))"接收页码
ifpage<=0thenpage=1"判断
ifrequest("page")=""thenpage=1
rs.AbsolutePage=page"设置本页页码
%>
最后是body里的分页显示
<%
ifrs.bofandrs.eofthen
response.write("NULL")
else
fori=1tors.PageSize
response.writers("name")
response.write("<hr>")
rs.movenext
next
endif
%>
<p>
<%ifpage=1andnotpage=pagecountthen%>
首页|前一页
<ahref="log1.asp?page=<%=page+1%>">后一页</a>|
<ahref="log1.asp?page=<%=pagecount%>">末页</a>
<%elseifpage<>1andnotpage=pagcountthen%>
<ahref="log1.asp?page=1">首页</a>|
<ahref="log1.asp?page=<%=page-1%>">前一页</a>|
<ahref="log1.asp?page=<%=page+1%>">后一页</a>|
<ahref="log1.asp?page=<%=pagecount%>">末页</a>
<%elseifpage=pagecountthen%>
<ahref="log1.asp?page=1">首页</a>|
<ahref="log1.asp?page=<%=page-1%>">前一页</a>|
下一页|
末页
<%endif%>