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

' 
'================================================================ 
Public Property Let GetSQL(svalue) 
Str_Sql=svalue 
End Property 

'================================================================== 
'Class_Initialize 类的初始化 
'初始化当前页的值 
' 
'==================================================================  
Private Sub Class_Initialize 
'======================== 
'设定一些参数的黙认值 
'======================== 
int_PageSize=10 '设定分页的默认值为10 
Int_TotalRecord= 0 
'======================== 
'获取当前面的值 
'======================== 
If request("page")="" Then 
Int_CurPage=1 
ElseIf not(IsNumeric(request("page"))) Then 
Int_CurPage=1 
ElseIf CInt(Trim(request("page")))<1 Then 
Int_CurPage=1 
Else 
Int_CurPage=CInt(Trim(request("page"))) 
End If 
End Sub 
'==================================================================== 
'openRS 打开数据集 
'有首页、前一页、下一页、末页、还有数字导航 
' 
'==================================================================== 
Private Sub openRS() 
Set Obj_Rs=Server.createobject("adodb.recordset") 
Obj_Rs.Open Str_Sql,Obj_Conn,1,1 
End Sub 
'==================================================================== 
'getPage 创建分页导航条 
'有首页、前一页、下一页、末页、还有数字导航 
' 
'==================================================================== 
Private Sub GetPage() 
If TypeName(Obj_Rs)<>"Object" Then Call openRS() 
Int_TotalRecord=Obj_Rs.RecordCount 
If Int_TotalRecord<=0 Then 
Str_Errors=Str_Errors & "总记录数为零，请输入数据" 
Call ShowError() 
End If 
If Int_TotalRecord mod PageSize =0 Then 
Int_TotalPage = Int_TotalRecord \ int_PageSize 
Else 
Int_TotalPage = Int_TotalRecord \ int_PageSize+1 
End If  
If Int_CurPage>Int_TotalPage Then 
Int_CurPage=Int_TotalPage 
End If 
End Sub 
'==================================================================== 
'ShowPage 创建分页导航条 
'有首页、前一页、下一页、末页、还有数字导航 
' 
'==================================================================== 
Public Sub ShowPage() 
Dim str_tmp