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