主题:  关于分页的讨论

布鲁斯狼

职务:普通成员
等级:2
金币:11.0
发贴:377
#12004/1/3 9:33:53
最近在琢磨着
昨晚我自己搞了一下
还是什么更简单的,希望能有源码出来共享。

样例:[首页] [上页] [下页] [尾页] [页次:4/5页] [共86篇 20篇/页] 转到:_ 页


以下为公用代码,必须具备。

<%filepath=request.servervariables("path_info")%>
<%page=1 '设置变量初始值PAGE=1
page=request.querystring("page")  'page值为接受值 
rs.PageSize = 20 '每页显示记录数
if Not IsEmpty(trim(Request("Page"))) then '如果PAGE已经初始化...
 Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量    
    if Page > rs.PageCount then '如果接收的页数大于总页数
        rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页        
    elseif Page <= 0 then '如果page小于等于0
        Page = 1 '设置PAGE等于第一页
    else
        rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数 
    end if
End if
Page = rs.AbsolutePage%>
<form action="<%=filepath%>" method="get">


第一种分页

<%if rs.pagecount<>1 and rs.pagecount<>0 then%>'首先判断页总数不为1和0
<%if page>1 then%>
  <%if page<rs.pagecount then %>
    [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
  <%else%>
    [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>] 
    [下一页] [尾页]
  <% end if %>
<%else%>
[首页] [上一页]
[<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>] 
[<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
<%end if %>
<%else%>
 [首页] [上一页] [下一页] [尾页]
<%end if%>


第二种分页

<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
 <%if page>1 then%>
    [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
    [<a Href="<%=filepath%>?Page=<% = page -1 %>">上一页</a>]
    <%if page<rs.pagecount then %>
    [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>]
    [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>] 
	<%else%>
	[下一页] [尾页]
    <% end if %>
 <%else%>
 [首页] [上一页]
 [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>] 
 [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
 <%end if %>
<%else%>
 [首页] [上一页] [下一页] [尾页]
<%end if%>



第三种
<%if rs.pagecount<>1 and rs.pagecount<>0 then%>
 <%if page<rs.pagecount then%>
  <%if page=1 then %>
   [首页] [上一页]
  <%else%>
   [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
   [<a Href="<%=filepath%>?Page=<% =page -1 %>">上一页</a>]
  <% end if %>
  [<a Href="<%=filepath%>?Page=<% = page + 1%>">下一页</a>] 
  [<a Href="<%=filepath%>?Page=<% = rs.PageCount%>">尾页</a>]
 <%else%>
 [<a Href="<%=filepath%>?Page=<% = 1%>">首页</a>]
 [<a Href="<%=filepath%>?Page=<% =page -1 %>">上一页</a>]
 [下一页] [尾页]
 <%end if %>
<%else%>
[首页] [上一页] [下一页] [尾页]
<%end if%>


最后信息
[页次:<font color=red><b><%=page%></b></font>/<%=rs.PageCount%>]
[共<%=rs.RecordCount%>篇 <font color=red><b><%=rs.PageSize%></b></font>篇/页]
转到<input name="page" size=5 value="<%=page%>">页
<input type="submit" value="Enter">
</form>

效果参看: www.cnbruce.com/database/index.asp