在使用“XDOWNPAGE分布类”的时候,有时候总页数会莫名其妙多一页。详见:一个奇怪的分页问题--关于'XDOWNPAGE ASP版本'版本 1.00。
先说解决方法:
将下列代码
- If int_totalRecord mod PageSize =0 Then
- int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
- Else
- int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
- End If
修改为
- If int_totalRecord mod PageSize =0 Then
- int_TotalPage = fix(int_TotalRecord / XD_PageSize)
- Else
- int_TotalPage = fix(int_TotalRecord / XD_PageSize)+1
- 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函数。
狂汗。。。。。。 在《一个奇怪的分页问题》的回复中,有个兄弟已经指出问题所在了, 我居然没看到。只是没说得更明白一些而已。