网络编程
位置：首页>> 网络编程>> Asp编程>> asp 简单分页代码

asp 简单分页代码

　来源：asp之家　发布时间：2011-03-11 10:53:00　

标签：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％>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com