支持多风格变换的ASP分页类

这个分页使用的是0游标，也就是Rs.Open Sql,Conn,0,1。但是感觉也快不了多少，10万条数据的分页时间300多豪秒之间。
　　<%
　　Class Page
　　Private CurrPage
　　Private PageN
　　Private UrlStr
　　Private TempStr
　　Private ErrInfo
　　Private IsErr
　　Private TotalRecord
　　Private TotalPage
　　Public  PageRs

　　Private TempA(11)
　　Private TempB(8)
　　'------------------------------------------------------------
　　Private Sub Class_Initialize()
　　 CurrPage=1'//默认显示当前页为第一页
　　 PageN=10'//默认每页显示10条数据
　　 UrlStr="#"
　　 TempStr=""
　　 ErrInfo="ErrInfo:"
　　 IsErr=False
　　End Sub
　　Private Sub Class_Terminate()
　　 If IsObject(PageRs) Then
　　  PageRs.Close
　　  Set PageRs=Nothing
　　 End If
　　 Erase TempA
　　 Erase TempB
　　End Sub
　　'----------------------------------------------------------
　　'//获取当前页码
　　Public Property Let CurrentPage(Val)
　　 CurrPage=Val
　　End Property
　　Public Property Get CurrentPage()
　　 CurrentPage=CurrPage
　　End Property
　　'//获取每页显示条数
　　Public Property Let PageNum(Val)
　　 PageN=Val
　　End Property
　　Public Property Get PageNum()
　　 PageNum=PageN
　　End Property
　　'//获取URL
　　Public Property Let Url(Val)
　　 UrlStr=Val
　　End Property
　　Public Property Get Url()
　　 Url=UrlStr
　　End Property
　　'//获取模板
　　Public Property Let Temp(Val)
　　 TempStr=Val
　　End Property
　　Public Property Get Temp()
　　 Temp=TempStr
　　End Property
　　'------------------------------------------------------------