Dreamweaver 分页修改

导读：
　　估计很多初学ASP的朋友开始利用Dreamweaver强大的组件功能写出自己的需要的程序，可惜，程序毕竟是程序，永远也没人转的快。所以当有了比较变态的需求后，问题就来了，好了，废话少说，马上给出在Dreamweaver组件基础上修改来的分页控制！
　　首先我们要得到数据集的总数，好像直接写CONT得到的是-1，所以我在我私人技术总监张总的提示下这样修改了一下：
　　将这个：
　　 程序代码
　　rs.CursorType = 0
　　rs.CursorLocation = 2
　　rs.LockType = 1
　　rs.Open()
　　修改为：
　　 程序代码
　　rs.CursorType = 3
　　rs.CursorLocation = 3
　　rs.LockType = 1
　　rs.Open()
　　这样我们就可以得到数据集的总数了。
　　在最接近上面加入下面代码：
　　 程序代码
　　<%

'当前页数

Dim rs_nowpage

rs_nowpage = rs.AbsolutePosition/rs.pagesize+1

%>　　'当前页数

　　Dim rs_nowpage

　　rs_nowpage = rs.AbsolutePosition/rs.pagesize+1

　　%>
　　好了，修改完毕，我们现在要开始调用了
　　 程序代码
　　<% If (MM_param = "0") then %>
　　首页
　　<=上页
<　　<% else %>

　　 首页

　　 <=上页

　　<% End If %>

　　

　　<% for i = 1 to rs.PageCount if i = rs_nowpage then%>　　for i = 1 to rs.PageCount 　　if i = rs_nowpage then%> 　　第 <%=i%> 页

　　<%else%> 　　转到 <%=i%> 页

　　<% end if next %>　　end if 　　next 　　%> 　　
　　<%If (rs_nowpage=rs.PageCount) Then%>
　　下页=>
　　尾页
　　<% else %>
　　 下页=> 尾页
　　<%End If%>
　　最后我们来给个总提示和当前显示信息
　　 程序代码
　　共 <%=rs_total%> 条记录 <%=rs_nowpage%>/<%=rs.PageCount%> 页
　　'rs_total 总记录数
　　'rs_nowpage 当前页数
　　'rs.PageCount 总页数
　　好了，修改完成，呵呵，是不是比要到处找组件，又不知道该怎么用简单啊！
　　其实我也是没办法，开始太依赖我的私人技术总监，所以没动什么脑筋，后来给逼的快死了，自己用蠢办法搞吧！
　　下一步我还要用我的蠢办法来修改出一个功能强大的综合性，多条件搜索引擎，大家祈祷我能成功吧，呵呵！

本文转自
http://www.cnrui.cn/blog/article.asp?id=61