超级ASP大分页_我的类容我做主(2)

Class ShowMorePage 
Private Obj_Conn,Obj_Rs,Str_Sql,int_PageSize,Str_Errors,Int_CurPage,Str_URL,Int_TotalPage,Int_TotalRecord 

'================================================================= 
'PageSize 属性 
'设置每一页的分页大小 
'================================================================= 
Public Property Let PageSize(intvalue) 
If IsNumeric(intvalue) Then 
int_PageSize=CLng(intvalue) 
Else 
Str_Errors=Str_Errors & "PageSize的参数不正确" 
ShowError() 
End If 
End Property 
Public Property Get PageSize 
If int_PageSize="" or (not(IsNumeric(int_PageSize))) Then 
PageSize=10  
Else 
PageSize=int_PageSize 
End If 
End Property 
'================================================================= 
'GetRS 属性 
'返回分页后的记录集 
'================================================================= 
Public Property Get GetRs() 
if Int_TotalRecord= 0 then Call GetPage() 
If not(Obj_Rs.eof and Obj_Rs.BOF) Then 
if Int_CurPage<>1 then 
if Int_CurPage-1<Int_TotalPage then 
Obj_Rs.move (Int_CurPage-1)*PageSize 
dim bookmark 
bookmark=Obj_Rs.bookmark 
else 
Int_CurPage=1 
end if 
end if 
End If 
Set GetRs=Obj_Rs 
End Property 
'================================================================= 
'GetCurPageNum 属性 
'返回当前页的记录集数目 
'================================================================= 
Public Property Get GetCurPageNum() 
dim int_PageNum 
int_PageNum = int_PageSize 
if Int_TotalRecord= 0 then Call GetPage() 
If Int_CurPage>Int_TotalPage Then 
Int_CurPage=Int_TotalPage 
int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize  
ElseIf Int_CurPage=Int_TotalPage Then 
int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize  
End If 
GetCurPageNum = int_PageNum 
End Property 
'================================================================ 
'GetConn 得到数据库连接 
' 
'================================================================  
Public Property Let GetConn(sconn) 
Set Obj_Conn=sconn 
End Property 
'================================================================ 
'GetSQL 得到查询语句