这个是在别人的程序中看到的，觉得不错就拿过来了。思维很到位。值得学习。所以我收藏了。

页码=总条数/展示条数

这里必须都是数字的计算。如果不是数字请自己转换成数字。

yema=zongshu/tiao
if Ceil(yema)=0 then
    yema=1
end if
'yema就是最终的页码了。
Function Ceil(value)
    Dim return
    return = CInt(value)
    If Value > return Then
        Ceil = return + 1
    Else
        Ceil = return
    End If
End Function

逻辑思维就是。获得（页码总数） 然后如果是取整

比如说 我有 7条文章每一页展示10条总共有多少页?

套用计算公式

7/10=0.7 并没有达到一页 那么咋办?

所以这个逻辑很好。先取整

0.7的整数部分是0

然后进行判断

如果 0》0.7 的时候 让页码 +1 =1

如果 2>2.1 的时候 页面+1=3

所以页面的逻辑很不错

常规的asp页码逻辑

.pagesize=页码大小 就是条数 不能小于1 也不能大于.pagecount=总页数

.absolutepage=当前页面游标位置就是10条。2条一页 10/2=5 第一页的时候游标是在1，2的位置，第二页的时候是3，4的位置。

.pagesize=5
page=clng(request("page"))'一般接收页码
if page < 1 then page = 1 '页码不能小于1
if page > .pagecount then page = .pagecount '页面不能超过总页码
.absolutepage=page'游标位置
for i = 1 to .pagesize'从游标位置循环条数到5
'内容部分
next