XD_Rs.AbsolutePage=int_curpage End If Set GetRs=XD_RSEnd Property这个属性的作用是更据指定RecordSet 的当前面，并到指针指向当前页的第一条记录,这个应该就是整个类的完成分页的核心了，当然，其中的一些参数是靠其它的属性来获取，所以这里顺便介绍一个这个类所要的基本参数
============================================='GetConn 得到数据库连接''=============================================Public Property Let GetConn(obj_Conn) Set XD_Conn=obj_ConnEnd Property'============================================='GetSQL 得到查询语句''==============================================Public Property Let GetSQL(str_sql) XD_SQL=str_sqlEnd Property'==============================================='PageSize 属性'设置每一页的分页大小
