Asp用于分页的两个函数- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > Asp用于分页的两个函数

ASP: 分享一段代码show.asp?id=26变成show/?26的形式; 多域名一网站时如果返回最原来的域名; [原创]完美解决ASP 不能更新。数据库或对象为只读。; 5天学会asp; TSYS中生成静态页时溢出: ''CInt''; 对象标记具有无效的 ''MSWC.MyInfo'' ProgID; [原创]随机增加网站点击的一个不错的方法; Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法; 反SPAM新思路—换Z-BLOG的验证码！; 七步倒┈→专用asp后门; asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码; 使用ASP实现网站的“目录树”管理的代码; ShowPage 显示“上一页下一页”等信息的封装代码; [原创]站长感慨asp编程究竟何去何从; 响应对象错误 ''ASP 0185 : 80020003'' 缺少默认属性; [原创]asp下用实现模板加载的的几种方法总结; [原创]asp获取URL参数的几种方法分析总结; Access数据库中“所有记录中均未找到搜索关键字”的解决方法; ASP程序中输出Excel文件实例一则; ASP应用中如何限制同一表单被多次提交

No. « ‹ 86 87 88 89 › »

技术文章搜索

关键字

ASP 中的 Asp用于分页的两个函数

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 129 ::

收藏到网摘: n/a

ASP系列讲座（二）ASP 的新功能 ASP与Oracle连接时的TNS错误

（原创 vince6799）
在asp代码中分页是有点麻烦的事情，个人在在代码编写过程中把分页代码写成了两个函数，虽然在功能上不是很完善，但对于一般的应用应该是满足的了。

<%
'分页函数分为两个函数
'CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs) 分页计算函数
'PageList(ListType,url,querry,Separator,ListLink) 分页列表函数

'分页计算函数
'totalrec 记录集总数
'msg_per_page 每页显示的记录数,在调用CalcPage时需提前对该变量赋值
'currentpage 当前页变量,在调用CalcPage时需提前对该变量赋值
'n 总页数
'rowcount 设置每一页的数据记录数
'PageRs 记录集对象
sub CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs)
n=0 '设置无记录时页数为0
if currentpage="" then currentpage=0
'PageRs.EOF and PageRs.bof 无记录
'Not PageRs.EOF Or Not PageRs.BOF 有记录
if Not PageRs.EOF Or Not PageRs.BOF then
totalrec=PageRs.recordcount
PageRs.pagesize=msg_per_page
if totalrec mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
   n = totalrec\msg_per_page 'n:总页数
else
   n = totalrec\msg_per_page+1
end if
if not isnumeric(currentpage) or currentpage="" then currentpage=1
If currentpage <> "" then
   currentpage = cint(currentpage)
end if
if currentpage < 1 then
   currentpage = 1
end if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec) then
   currentPage=1
end if
PageRs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = PageRs.pagesize            'pagesize：设置每一页的数据记录数
end if
end sub
%>
<%
'分页列表函数
'url 跳转的地址
'querry ?后的参数
'Separator 分隔符
'ListType 分页类型
'类型:0 "第一页 | 前一页 | 下一页 | 最后页"
'类型:1 "1 | 2 | 3 | 4 | ..........| 下一页"
'类型:2 "第一页 | 前十页 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 后十页 | 最后页"
'ListLink 链接使用的样式

sub PageList(ListType,url,querry,Separator,ListLink)
if Separator="" then Separator="|"
if ListType="" then ListType="0"
select case ListType
case "0"
   response.write"第"&currentpage&"/"&n&"页  "
   response.write"共"&totalrec&"条信息  "
   if currentpage <= 1 then
   response.write"第一页 "&Separator&" "
   response.write"前一页 "&Separator&" "
   else
   response.write"<a href="""&url&"?page=1&"&querry&""" class="""&ListLink&""">第一页</a> "&Separator&" "
   response.write"<a href="""&url&"?page="&currentpage-1&"&"&querry&""" class="""&ListLink&""">前一页</a> "&Separator&" "
   end if
   if currentpage = n then
   response.write"下一页 "&Separator&" "
   response.write"最后页 "
   else
   response.write"<a href="""&url&"?page="&currentpage+1&"&"&querry&""" class="""&ListLink&""">下一页</a> "&Separator&" "
   response.write"<a href="""&url&"?page="&n&"&"&querry&""" class="""&ListLink&""">最后页</a> "
   end if
case "1"
   if currentpage < n then
    response.write"<a href="""&url&"?page="&currentpage+1&"&"&querry&""" class="""&ListLink&""">下一页</a> "
&nbs

ASP系列讲座（二）ASP 的新功能 ASP与Oracle连接时的TNS错误

ASP 中的 Asp用于分页的两个函数

评论 (0) All