ASP经典分页类(3)

 End If

End Sub

'====================================================================
'ShowPage  创建分页导航条
'有首页、前一页、下一页、末页、还有数字导航
'
'====================================================================
Public Sub ShowPage()
 Dim str_tmp

 int_totalRecord=XD_RS.RecordCount
 If int_totalRecord<=0 Then 
  str_error=str_error & "总记录数为零，请输入数据"
  Call ShowError()
 End If
 If int_totalRecord  int_TotalPage=1
 Else
  If int_totalRecord mod PageSize =0 Then
   int_TotalPage = Int(int_TotalRecord / XD_PageSize * -1)*-1
  Else
   int_TotalPage = Int((int_TotalRecord / XD_PageSize * -1)*-1)+1
  End If
 End If

 If Int_curpage>int_Totalpage Then
  int_curpage=int_TotalPage
 End If

 '===============================================================================
 '显示分页信息，各个模块根据自己要求更改显求位置
 '===============================================================================
 response.write " "
 str_tmp=ShowFirstPrv
 response.write str_tmp
 str_tmp=showNumBtn
 response.write str_tmp
 str_tmp=ShowNextLast
 response.write str_tmp
 str_tmp=ShowPageInfo
 response.write str_tmp
 'Response.write " "
 ShowGoto
 response.write " 
"

End Sub

'====================================================================
'ShowFirstPrv  显示首页、前一页
'
'
'====================================================================
Private Function ShowFirstPrv()
 Dim Str_tmp,int_prvpage
 If int_curpage=1 Then
  str_tmp=Btn_First&" "&Btn_Prev
 Else
  int_prvpage=int_curpage-1
  str_tmp=""&Btn_First&" "& Btn_Prev&""
 End If
 ShowFirstPrv=str_tmp
End Function

'====================================================================
'ShowNextLast  下一页、末页
'
'
'====================================================================
Private Function ShowNextLast()
 Dim str_tmp,int_Nextpage

 If Int_curpage>=int_totalpage Then
  str_tmp=Btn_Next & " " & Btn_Last
 Else
  Int_NextPage=int_curpage+1
  str_tmp=""&Btn_Next&" "& Btn_Last&""
 End If