圆月山庄资源网 Design By www.vgjia.com
复制代码 代码如下:
<%
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%>
标签:
asp,分页代码

圆月山庄资源网 Design By www.vgjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
圆月山庄资源网 Design By www.vgjia.com