Public IdxStr            ' as String 
Public RecN                  ' as Integer 

Public RowA,RowN      ' A pair of Array 

Public LinkStrB            ' as String 
Public LinkStrE            ' as String 
Public LinkStyle      ' as String 

Property Let Conn(objConn) 
      Connection.ConnectionString=objConn.ConnectionString 
End Property 
Property Get Conn() 
      Conn=Connection.ConnectionString 
End Property 

Private Sub Class_Initialize 
      Flag=1 
      DivNum=10 
      PageN=0 
      CurN=0 
      CurPage=1 
      IdxColType="char" 
      LinkStyle="default" 
     Set RecordSet=Server.CreateObject("ADODB.RecordSet") 
      Set Connection=Server.CreateObject("ADODB.Connection") 
End Sub 
Private Sub Class_Terminate 
      Set RecordSet=Nothing 
      Set Connection=Nothing 
End Sub 

Public Sub Exec() 

      If Not IsNumeric(CurPage) Then CurPage=1 
      If CurPage<1 Then CurPage=1 
       
      '' 獲取索引字段值列表 
      Dim RecA,i,N 
      Connection.Open 
      RecordSet.Open IndexSQL,Connection,1,1 
      RecN=RecordSet.RecordCount 
      If RecN>0 Then 
            RecA=RecordSet.GetRows 
      Else 
            Flag=0 
            Exit sub 
      End if 

    RecordSet.Close 
       
      '' 計算頁數 
      PageN=Int(RecN / DivNum)+1 
      If DivNum*(PageN-1)=RecN Then 
            PageN=PageN-1 
      End if 
       
      If CurPage>PageN Then CurPage=PageN 
      If PageN>1 Then 
            If CurPage=PageN Then 
                  CurN=RecN-(CurPage-1)*DivNum 
            Else 
                  CurN=DivNum 
            End if 
      Else 
            CurN=RecN 
      End If 
       
    '' 索引數組 
      Dim IdxA 
      ReDim IdxA(CurN) 
      For i=0 To CurN-1 
            IdxA(i)=RecA(0,(CurPage-1)*DivNum+i) 
      Next 
       
      Dim DotChar 
      Select Case LCase(IdxColType) 
            Case "int"  : DotChar="" 
            Case "char" : DotChar="'" 
            Case Else      : DotChar="'" 
      End select 
       
      IdxStr="" 
      If CurN>0 Then 
      IdxStr=DotChar& IdxA(0) &DotChar 
      If CurN>1 Then 
            For i=1 To CurN-1 

                 IdxStr=IdxStr&","&DotChar&IdxA(i)&DotChar 
            Next 
      End if 
      End If 
       
      '' 獲取實際列表 
      RecordSet.Open ListSQLB &IdxStr& ListSQLE,Connection,1,1 
      RowN=RecordSet.RecordCount 
      If RowN>0 Then 
            RowA=RecordSet.GetRows 
      Else 
            Flag=0 
            Exit sub 
      End if 
      RecordSet.Close 
       
       
      Connection.Close 
End Sub 

Public Function GetPageDivBar() 
      Dim Str 
     Dim i 
      Str="" 
       
      If CurPage>1 Then 
            Str=Str&"<a href="""& LinkStrB & CStr(CurPage-1) & LinkStrE &""">上一頁</a>" 
      Else 
            Str=Str&"上一頁" 
      End If 
       
      Str=Str&"  第"&CurPage&"頁／共"&PageN&"頁，每頁"&DivNum&"條記錄，共"&RecN&"條記錄  " 
       
      If CurPage<PageN Then 
            Str=Str & "<a href="""&LinkStrB&CStr(CurPage+1)&LinkStrE&""">下一頁</a>" 
      Else 
            Str=Str & "下一頁" 
      End if 
       
GetPageDivBar=Str 
End Function 

End Class 
%>
1、獲取了兩次記錄集，但是這兩個記錄集滿足了實現分頁操作所需的最小記錄集；
2、IndexSQL是用來獲取獲取索引字段值列表的SQL語句；
3、IdxStr無需賦值；
4、ListSQLB、ListSQLE賦值舉例如下：

調用的例子：

<%
      
      Dim objListDiv
      Set objListDiv=New ListDiv
      With objListDiv
            .Conn=Conn
            .IdxColType="int"
            .IndexSQL="Select PeriodID From Xiworld Where Flag=1 Order by PeriodID Desc"
            .ListSQLB="Select PeriodID,YearVal,YearPid,DocURL From Xiworld Where PeriodID in ("
            .ListSQLE=") Order by PeriodID Desc"
            .DivNum=15
            .CurPage=CurPage
            
            .LinkStrB="list.asp?page="
            .LinkStrE=""

   End With
      objListDiv.Exec
%>