注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

樱之花

叶散的时候,你明白欢聚;花谢的时候,你明白青春.

 
 
 

日志

 
 
关于我

分类中“我的实验室”是我在日常工作中的一些知识总结,有些写的比较匆忙,可能大家在阅读时会产生困扰,后期有时间我会重新整理编辑,谢谢大家的到访,您们的支持是我前进的动力!

网易考拉推荐

ASP的分页代码  

2008-10-20 11:28:44|  分类: ASP开发 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

上午抽空用ASP做了一个分页的程序,效果如下:

写了个SUB过程:

<%
sub ShowPage(l_page,l_pagegroup,l_totalpage,l_totalcount,l_query)
'l_page:当前页
'l_pagegroup:一组多少页
'l_totalpage:总页数
'l_totalcount:总记录数
'l_query:查询条件
'*样式l_astyle可控制页数显示
'*样式l_iptstyle可控制页数输入框显示
'*样式l_btnstyle可控制GO按钮显示
%>
共<%=l_totalpage%>页 共<%=l_totalcount%>条记录
<a href="<%=query%>page=1" class="l_astyle">首页</a>
<%
dim l_begin,l_end
dim l_i
dim l_prepage,l_nextpage
'判断开始和结束的页数
'(这边的思路一定要想好,当然各人有各人的实现方法,但你一定要清楚自己的算法)
if l_page mod l_pagegroup <> 0 then
 l_begin = (int(l_page / l_pagegroup) + 1) * l_pagegroup - (l_pagegroup-1)
 l_end = (int(l_page / l_pagegroup) + 1) * l_pagegroup
else
 l_begin = (int(l_page / l_pagegroup) * l_pagegroup - (l_pagegroup-1))
 l_end = (int(l_page / l_pagegroup)) * l_pagegroup
end if
if l_end>l_totalpage then
 l_end = l_totalpage
end if
'判断上一页
if l_page = 1 then
 l_prepage = 1
else
 l_prepage = l_page - 1
end if
response.write "<a href='"&l_query&"page="&l_prepage&"' class='l_astyle'>上一页</a>&nbsp;"
'开始显示页数组
for l_i=l_begin to l_end
 if l_i = l_page then
  response.write "<font color='red'>"&l_i&"</font>&nbsp;"
 else
  response.write "<a href='"&l_query&"page="&l_i&"' class='l_astyle'>"&l_i&"</a>&nbsp;"
 end if
next
'判断下一页
if l_page=l_totalpage then
 l_nextpage = l_totalpage
else
 l_nextpage =l_page + 1
end if
response.write "<a href='"&l_query&"page="&l_nextpage&"' class='l_astyle'>下一页</a>"
%>
<a href="<%=l_query%>page=<%=l_totalpage%>" class="l_astyle">尾页</a>&nbsp;转到<input type="text" size="3" name="t_topage" id="t_topage" class="l_iptstyle" >
<input type="button" value="GO" class="l_btnstyle" onClick="if(document.all.t_topage.value){if(document.all.t_topage.value><%=l_totalpage%> || document.all.t_topage.value<1){alert('< 系统提示 > 请输入有效的页数(范围为1~<%=l_totalpage%>)!');}else{location.href='<%=query%>page='+document.all.t_topage.value}}else{alert('< 系统提示 > 请输入数!')}"><br>
<%end sub%>

调用:

<%
dim query
query = "test.asp?"
dim sql
sql = "select id from Product"
dim rs
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
rs.pagesize=5
dim page
page = request("page")
if IsNumeric(page) then
 page = int(page)
else
 page = 1
end if
if page < 1 then
 page = 1
end if
if page > rs.pagecount then
 page = rs.pagecount
end if
rs.absolutepage = page
call ShowPage(page,5,rs.pagecount,rs.recordcount,query)
%>

注意:文中标红的表示调用的方法,兰色表示当前页的名称和传递的参数。

  评论这张
 
阅读(528)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017