解决分页“奇怪”问题

在使用“XDOWNPAGE分布类”的时候，有时候总页数会莫名其妙多一页。详见：一个奇怪的分页问题--关于'XDOWNPAGE ASP版本'版本 1.00。

 

先说解决方法：

 

 

将下列代码

1. If int_totalRecord mod PageSize =0 Then
2.  int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
3. Else
4.  int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
5. End If

修改为

1. If int_totalRecord mod PageSize =0 Then
2.  int_TotalPage = fix(int_TotalRecord / XD_PageSize)
3. Else
4.  int_TotalPage = fix(int_TotalRecord / XD_PageSize)+1
5. End If

分析clng：

 

CLng 函数可把表达式转换为长整形（Long）类型。

注释：值必须是介于 -2147483648 与 2147483647 之间的数字。

注释：CLng 不同于 Fix 和 Int 函数删除小数部分， 而是采用四舍五入的方式。 当小数部分正好等于 0.5 时， CLng 函数总是将其四舍五入为最接近该数的偶数。如， 0.5 四舍五入为 0, 以及 1.5 四舍五入为 2 。

 

dim a,b
a=23524.45
b=23525.55
document.write(CLng(a))
document.write(CLng(b))

 

得出结果为

23524
23526

 

这就造成总页数有时候会对，有时候多了一页。

 

用int函数会有可能溢出，故于此，我用fix函数。

 

狂汗。。。。。。 在《一个奇怪的分页问题》的回复中，有个兄弟已经指出问题所在了， 我居然没看到。只是没说得更明白一些而已。