作家
登录

ASP通用分页样式函数代码

作者: 来源:www.28hudong.com 2013-03-30 08:37:33 阅读 我要评论

<% '****************************** '函数:MultiPage(Numbers,Perpage,Curpage,Url_Add) '参数:Numbers,总记录数;Perpage,每页记录数;Curpage,当前页;Url_Add,当前页其它参数如?action=list& '作者:阿里西西 '日期:2007/7/15 '描述:ASP通用分页样式函数 '示例:MultiPage(100,10,2,"?action=list&") '****************************** Function MultiPage(Numbers,Perpage,Curpage,Url_Add) CurPage=Int(Curpage) Dim URL URL=Request.ServerVariables("Script_Name")&Url_Add MultiPage="" Dim Page,Offset,PageI If Int(Numbers)>Int(PerPage) Then Page=10 Offset=2 Dim Pages,FromPage,ToPage If Numbers Mod Cint(Perpage)=0 Then Pages=Int(Numbers/Perpage) Else Pages=Int(Numbers/Perpage)+1 End If FromPage=Curpage-Offset ToPage=Curpage+Page-Offset-1 If Page>Pages Then FromPage=1 ToPage=Pages Else If FromPage<1 Then Topage=Curpage+1-FromPage FromPage=1 If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then ToPage=Page ElseIF Topage>Pages Then FromPage =Curpage-Pages +ToPage ToPage=Pages If (ToPage-FromPage)<Page And (ToPage-FromPage)<Pages Then FromPage=Pages-Page+1 End If End If MultiPage="<a href='"&Url&"page=1'><<</a> " For PageI=FromPage TO ToPage If PageI<>CurPage Then MultiPage=MultiPage&"<a href='"&Url&"page="&PageI&"'>["&PageI&"]</a> " Else MultiPage=MultiPage&"<b>["&PageI&"]</b> " End If Next If Int(Pages)>Int(Page) Then MultiPage=MultiPage&" ... <a href='"&Url&"page="&Pages&"'> ["&pages&"] >></a>" Else MultiPage=MultiPage&"<a href='"&Url&"page="&Pages&"'>>></a>" End If End If End Function%>

  推荐阅读

  XDOWNPAGE ASP版本 分页类

<% '=================================================================== 'XDOWNPAGE ASP版本 '版本 1.00 'Code by zykj2000 'Email: zykj_2000@163.net 'BBS: http://bbs.513soft.net '本程序可以免费>>>详细阅读


本文标题:ASP通用分页样式函数代码

地址:http://www.17bianji.com/kaifa2/ASP/32480.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)