欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp分页展示

更新时间: 2014-01-05 02:03:09 责任编辑: Author_N1

 

asp分页显示
分页显示怎么用啊,最好能有代码详解一下,谢谢
--参考方法--
<%
Dim DataCount'记录总数
Dim MaxPerPage'每页条数
Dim PageCount'总页数
Dim Page'页码
Dim PerPageNum '每页显示的分页页码数量=PerPageNum*2+1
Dim MaxPageNum '每页显示的分页的最大页码
Dim MinPageNum '每页显示的分页的最小页码
Dim DataTable'数据表名
Dim PageUrl'本页地址


PerPageNum = 2
Page = Clng(Request("Page"))
MaxPerPage = 32
DataTable = "tb"
PageUrl  = Request.ServerVariables("Path_Info")
Taxis = " Order By id"

Set Rs=Server.CreateObject("ADODB.Recordset")
StrSQL="Select ID From "&DataTable&Taxis
Rs.open StrSQL,DbConn,1,1

DataCount=Rs.RecordCount

If(DataCount>0) Then'如果记录总数=0,则不处理
If(DataCount Mod MaxPerPage=0)Then'如果记录总数除以每页条数有余数,则=记录总数/每页条数+1
PageCount=Int(DataCount/MaxPerPage)'获取总页数
Else
PageCount=Int(DataCount/MaxPerPage)+1'获取总页数
End If

'获取本页需要用到的id============================================
'读取所有记录的id数值,因为只有id所以速度很快

   Rs.PageSize = MaxPerPage '每页显示记录数
   If Page<1 Then Page = 1
   If Page>PageCount Then Page = PageCount
   If PageCount> 0 Then Rs.absolutepage = Page  

For I=1 To Rs.PageSize
If Rs.EOF Then Exit For  
If(I=1)Then
ID=Rs("ID")
Else
ID=ID &","&Rs("ID")
End If
Rs.MoveNext
Next
'获取本页需要用到的id结束============================================
End If

Rs.Close
%>



然后在要分页的地方调用下面这个过程

<%Sub ShowPage()%> 
<table width="100%" border="0" cellpadding="1" cellspacing="0">
<form method="post" onSubmit="return false;">
  <tr> 
      <td align="center">共<b><%=DataCount%></b>条信息 <b><%=MaxPerPage%></b>条/页 
        共<b><%=PageCount%></b>页</td>
    <td align="right"> 
      <%
'设置分页页码开始===============================
MinPageNum=Page-PerPageNum'计算页码开始值
MaxPageNum=Page+PerPageNum'计算页码结束值

If(MinPageNum<1) Then'如果页码开始值小于1则=1
    MinPageNum=1
    MaxPageNum=PerPageNum*2+1
End if

If(Page>1) Then'如果页码大于1则显示(第一页)
response.write ("<a href='"& PageUrl &"?Page=1"&url&"' class='Black'>首页</a>&nbsp;")
End If

If(Page>1) Then'如果页码开始值大于1则显示(更前)
response.write ("<a href='"& PageUrl &"?Page="& Page-(1) &url&"' class='Black'>上页</a>&nbsp;")
End If

If(MaxPageNum>PageCount) Then'如果页码结束值大于总页数,则=总页数
If MinPageNum>1 Then
MinPageNum=PageCount-(PerPageNum*2)
If MinPageNum<1 Then
MinPageNum=1
End If
End If
    MaxPageNum=PageCount
End If

For i = MinPageNum To MaxPageNum'循环输出页码
    If(i=Page) Then
Response.Write ("<strong>"& i &"</strong>&nbsp;")
    Else
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:03:09
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/5048/
本文WWW.DOC100.NET DOC100.NET版权所有。