ASP带数字的最好分页方法

最新推荐文章于 2014-08-11 09:57:25 发布

lxy_abcde1190

最新推荐文章于 2014-08-11 09:57:25 发布

阅读量2.4k

点赞数

分类专栏： asp技术文章文章标签： asp google class web

asp技术文章专栏收录该内容

15 篇文章 0 订阅

订阅专栏

<%
 strSQL="Select * From v_web_product Where mn_id=" & strCurrMenu & strQuery & " Order by p_code,ID Desc"
 Set rs=Server.CreateObject("ADODB.RecordSet")
 rs.open strSQL,conn,1,1
 '分页显示初始化
 page=GetVariable("page")
 if page="" then
 page=1
 else
 page=Cint(page)
 end if

 Section=GetVariable("section")
 if Section="" then
 Section=1
 else
 Section=Cint(Section)
 end if
 '变量赋值
 intPageSize=9 '每页显示记录数
 intSectionSize=5 '多少页为一段，像GOOGLE一样
 PrevSectionText="7" '上一段的链接文字
 NextSectionText="8" '下一段的链接文字
 PrevPageText="3" '上页的链接文字
 NextPageText="4" '下页的链接文字

 strPageUrl="?class=" & GetVariable("class") & "&key=" & GetVariable("key") & "&price1=" & GetVariable("price1") & "&price2=" & GetVariable("price2")

 rs.pagesize=intPageSize
 intCount=rs.RecordCount
 intPageCount=rs.pagecount
 intSectionCount=(intPageCount - 1) / intSectionSize + 1
 if intCount>0 then
 rs.AbsolutePage=page
 end if
 %>
 
 <%
 '循环输出
 ' for i=1 to (intPageSize + 1) / 2
 for i=1 to 3
 if rs.eof then exit for
 %>

 <%''循环体%>

 <%rs.movenext
 next
 %>

 <%next%>
 共有<%=intCount%>条记录，分<%=intPageCount%>页，当前页<%=Page%>，每页显示<%=intPageSize%>条记录
 <%
 '计算每一段的开始页
 intStarPage=(Section-2) * intSectionSize + 1
 '前一段
 if Section<=1 then
 response.Write(PrevSectionText & " ")
 else
 response.Write("<a href='" & strPageUrl & "&page=" & intStarPage & "&section=" & Section-1 & "'>" & PrevSectionText & "</a> ")
 end if

 '显示页码列表
 response.Write("第")
 intStarPage=(Section-1) * intSectionSize + 1
 for p=intStarPage to intStarPage + intSectionSize - 1
 if p > intPageCount then exit for
 if p=page then
 response.Write("[" & p & "] ")
 else
 response.Write("<a href='" & strPageUrl & "&page=" & p & "&section=" & Section & "'>[" & p & "]</a> ")
 end if
 next
 response.Write("页")
 '后一段
 intStarPage=(Section) * intSectionSize + 1
 if Section>=intSectionCount then
 response.Write(" " & NextSectionText)
 else
 response.Write(" <a href='" & strPageUrl & "&page=" & intStarPage