新微赢技术网

标题: 请教一个ASP分页问题？ [打印本页]

作者: 航母风云 时间: 2010-1-9 03:50
标题: 请教一个ASP分页问题？
一直以来我的分页模式都是：“　首页　上一页　下一页　尾页　”
现在网络上很多分页都比较多采用“上一页　1　2　3　4　5　6　7　8　下一页”这个模式
请问第二种模式　是怎么现实的　？

作者: 萧十一郎 时间: 2010-1-9 03:50
<%sql="select * from news order by news_no desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3
If IsNumeric(Request("Page"))=false Or Request("Page")="" Then
            Page=1
         Else
            Page=CInt(Request("Page"))
         End if
         Rs.PageSize=3
         If Rs.EOF Or Rs.BOF Then
            Response.Write "目前还没有产品！"&"<br>"
                  Else
            myPageSize=Rs.PageSize
                  Rs.AbsolutePage=Page

%>
<table>
<%Do While not Rs.Eof And myPageSize>0%>
<tr><td width=600>                </td></tr>
<% myPageSize=myPageSize-1
         i=i+1
         Rs.MoveNext
         Loop
   %>
</table>
<%end if%>
产品总数:<%=Rs.RecordCount%>个;每页显示:<%=Rs.PageSize%>个;第<%=Page%>页/共<%=Rs.PageCount%>页.
<%
If Page > 1 Then
Response.Write "<a href='product.asp?Page=1' title='首页'><font face=webdings>" & 9 & "</font></a>"
Response.Write " <a href='product.asp?Page="&Page-1&"' title='上一页'><font face=webdings>" & 7 & "</font></a>"
End If
For j = 1 To Rs.PageCount
Response.Write " <a href='product.asp?Page="&j&"'>" & j & "</a>"
Next
If Page < Rs.PageCount Then
Response.Write " <a href='product.asp?Page="&Page+1&"' title='下一页'><font face=webdings>" & "8" & "</a></font>"
End If
Response.Write " <a href='product.asp?Page="&Rs.PageCount&"' title='尾页'><font face=webdings>:</a>"
%>
<%
Rs.Close
Set Rs=nothing
%>

作者: 萧十一郎 时间: 2010-1-9 03:50
http://bbs.bc-cn.net/viewthread. ... p%3Bfilter%3Ddigest
这个程序楼主看了吗？
上一页　1　2　3　4　5　6　7　8　下一页
其实这个原理就是对页码再进行二次分页。

作者: 潇洒人 时间: 2010-1-9 20:05
不要见一个爱一个，爱的太多，你的爱就要贬值。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)