 减小字体
 增大字体
分页和web中是一样的，只是有些功能比较简化了，下面是常用的分页，没有写成函数是方便大家修改。
在打开记录集后写，如下代码：
＜%
filepath=request.servervariables("path_info")%＞
＜%page=1
page=request("page")
rs.PageSize = 8 '每页的记录的条数
if Not IsEmpty(trim(Request("Page"))) then
Page = CInt(Request("Page"))
if Page ＞ rs.PageCount then
rs.AbsolutePage = rs.PageCount
elseif Page ＜= 0 then
Page = 1
else
rs.AbsolutePage = Page
end if
End if
%＞
然后再想显示分页的地方，一般是在记录集循环输出完毕的后面写：
＜%if rs.pagecount＜＞1 and rs.pagecount＜＞0 then%＞
＜br/＞
＜%if page＞rs.pagecount then%＞
＜a title="确定" href="＜%=filepath%＞?Page=＜% =page -1 %＞"＞上一页＜/a＞
＜%else%＞
＜%if page＜＞1 then %＞
＜a title="确定" href="＜%=filepath%＞?Page=＜% =page -1 %＞"＞上一页＜/a＞＜br/＞
＜% end if %＞
＜a title="确定" href="＜%=filepath%＞?Page=＜% = page + 1%＞"＞下一页＜/a＞
＜%end if %＞
＜%end if
response.Write "第"&page&"页 共"&rs.pagecount&"页"
%＞
注意显示的时候首先显示下一页，然后再显示上一页这和web上的习惯不太一样。
另外，如果这页的内容是显示是通过上页传送来的参数，作为条件的，则在 类似
＜a title="确定" href="＜%=filepath%＞?Page=＜% = page + 1%＞"＞下一页＜/a＞
的地方都要加上该参数，否则进行下一页连接的时候就会把参数丢掉。
例如：从上页用户选择的新闻的种类，来显示新闻。在List.asp页面首先写，NewType=request.form("NewType")得到用户选择的新闻的类型。
然后SQL="Select ..........where NewType='"&NewType&"'" 。完成记录集合的准备工作。注意：在进行下页面的时候要写成
＜a title="确定" href="＜%=filepath%＞?Page=＜% =page -1 %＞&NewType=＜%=NewType%＞"＞上一页＜/a＞＜br/＞,
这样的形式，有多少条件后面跟多少条件。
但是这样就产生问题了，即时这样写NewType=request.form("NewType")也得不到NewType的值。所以在页首刚开始的地方应该写成NewType=request("NewType")。就可以实现把参数带到下一页的连接中了。
|
设为首页
加入收藏
联系我们
