分页函数

函数如下：
<%
private function fenye(rs, pagesize,args)
Dim intcur
Dim intpagesize
Dim total
Dim inttotal
args = split(args,",")
if Request.querystring("page")="" then
intcur=1
page = "first"
else
select case request("page")
case "first"
intcur=1
case "previous"
intcur=cint(request("curpage"))
intcur=intcur-1
case "next"
intcur=cint(request("curpage"))
intcur=intcur+1
case "last"
intcur=cint(request("lastpage"))
case else
intcur=request("page")
end select
end if
%>

<% if rs.eof then response.write "没有栏目：（" else intpagesize=pagesize rs.pagesize=intpagesize if not rs.eof then rs.AbsolutePage=intcur end if total=rs.recordcount inttotal=rs.pagecount Dim i i = 0 %> <% Dim n n = 0 do while n <= UBound(args)%> <% n = n + 1 loop %> <% do while NOT rs.EOF and i <% Dim l l = 0 相关文章 王者荣耀侦探能力大测试攻略 王者荣耀侦探能力大测试怎么过 游戏攻略 2024-11-22 无期迷途主线前瞻兑换码是什么 游戏攻略 2024-11-22 原神欧洛伦怎么培养 游戏攻略 2024-11-22 炉石传说网易云音乐联动怎么玩 游戏攻略 2024-11-22 永劫无间手游确幸转盘怎么样 游戏攻略 2024-11-22 无期迷途主线前瞻兑换码是什么 无期迷途主线前瞻直播兑换码介绍 游戏攻略 2024-11-22 精彩推荐 沙威玛传奇安卓版 下载 战盟大乱斗最新版 下载 大侠立志传最新版 下载 苍翼混沌效应最新版 下载 驯龙高手旅程安卓版 模拟经营 驯龙高手旅程安卓版 一款以奇幻世界为背景的模拟经营游戏 下载 全民农场最新版 模拟经营 全民农场最新版 一款轻松风格的农场经营类型的游戏 下载 散修功德模拟器完整版 模拟经营 散修功德模拟器完整版 散修功德模拟器游戏是一款以功德修炼为题材的模拟游戏 下载 我的毕业日记无限金币下载 模拟经营 我的毕业日记无限金币下载 开始毕业后的新生活吧！ 下载 城堡之梦拼图和装饰下载最新版 模拟经营 城堡之梦拼图和装饰下载最新版 城堡之梦拼图和装饰玩家将会在游戏当中感受更多的乐趣体验，你可 下载 <%response.write args(n)%>