如何修复叶子ASP分页类Bug-创新互联

本篇内容介绍了“如何修复叶子ASP分页类Bug”的有关知识，在实际案例的操作过程中，不少人都会遇到这样的困境，接下来就让小编带领大家学习一下如何处理这些情况吧！希望大家仔细阅读，能够学有所成！

1'此处是为了修正access记录多并且最后一页只有一条记录则报Eof的bug，坏处就是最后一页会显示2条=___=

2IfiPageIndex>1AndiPageIndex=iPageCountAnd（iRecordCountModiPageSize=1）Then

3Rs.AbsolutePosition=（iPageIndex-1）*iPageSize

4Else

5Rs.AbsolutePosition=（iPageIndex-1）*iPageSize+1

6EndIf

方法一：使用静态游标（即oConn,1,1改为oConn,3,1）viewsourceprint?1SetRs=Server.CreateObject（"Adodb.RecordSet"）

2Rs.Open"SELECT"&sField&"FROM"&sTable&""&sCondition&""&sOrderBy,oConn,3,1,&H0001

3'此处是为了修正access记录多并且最后一页只有一条记录则报Eof的bug，坏处就是最后一页会显示2条

4Rs.AbsolutePosition=（iPageIndex-1）*iPageSize+1

叶子ASP分页类Bug怎么修复

方法二：viewsourceprint?1SetRs=Server.CreateObject（"Adodb.RecordSet"）

2Rs.Open"SELECT"&sField&"FROM"&sTable&""&sCondition&""&sOrderBy,oConn,1,1,&H0001

3'此处是为了修正access记录多并且最后一页只有一条记录则报Eof的bug，坏处就是最后一页会显示2条=___=

4IfiPageIndex>1andiPageIndex=iPageCountThen

5Rs.Move（iPageIndex-1）*Clng（iPageSize）

6EndIf

7Rs.AbsolutePosition=（iPageIndex-1）*iPageSize+1

“如何修复叶子ASP分页类Bug”的内容就介绍到这里了，感谢大家的阅读。如果想了解更多行业相关的知识可以关注创新互联网站，小编将为大家输出更多高质量的实用文章！