wap中的分页

wap中的分页
分页和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 %>&amp;NewType=<%=NewType%>">上一页</a><br/>,
这样的形式，有多少条件后面跟多少条件。
但是这样就产生问题了，即时这样写NewType=request.form("NewType")也得不到NewType的值。所以在页首刚开始的地方应该写成NewType=request("NewType")。就可以实现把参数带到下一页的连接中了。