Asp用于分页的两个函数

在asp代码中分页是有点麻烦的事情，个人在在代码编写过程中把分页代码写成了两个函数，虽然在功能上不是很完善，但对于一般的应用应该是满足的了。

<%

'分页函数分为两个函数

'CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs) 分页计算函数

'PageList(ListType,url,querry,Separator,ListLink) 分页列表函数

'分页计算函数

'totalrec 记录集总数

'msg_per_page 每页显示的记录数,在调用CalcPage时需提前对该变量赋值

'currentpage 当前页变量,在调用CalcPage时需提前对该变量赋值

'n 总页数

'rowcount 设置每一页的数据记录数

'PageRs 记录集对象

sub CalcPage(totalrec,msg_per_page,currentpage,n,rowcount,PageRs)

n=0 '设置无记录时页数为0

if currentpage="" then currentpage=0

'PageRs.EOF and PageRs.bof 无记录

'Not PageRs.EOF or Not PageRs.BOF 有记录

if Not PageRs.EOF or Not PageRs.BOF then

totalrec=PageRs.recordcount

PageRs.pagesize=msg_per_page

if totalrec mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数

n = totalrec\msg_per_page 'n:总页数