ASP经典分页类(4)

 ShowNextLast=str_tmp
End Function


'====================================================================
'ShowNumBtn  数字导航
'
'
'====================================================================
'Private Function showNumBtn()
' Dim i,str_tmp
' For i=1 to int_totalpage
'  str_tmp=str_tmp & "["&i&"] "
' Next
' showNumBtn=str_tmp
' 
'End Function
'====================================================================
'ShowNumBtn 修改后的数字导航
'
'====================================================================
Function showNumBtn()
 Dim i,str_tmp,end_page,start_page
 if int_curpage>4 then
  if int_curpage+2   start_page=int_curpage-2
  end_page=int_curpage+2 
  else
   start_page=int_totalpage-4 
   end_page=int_totalpage 
  end if 
 else 
  start_page=1 
  if int_totalpage>5 then 
   end_page=5
  else
   end_page=int_totalpage
  end if
 end if 
 For i=start_page to end_page
  str_tmp=str_tmp & " ["&i&"] "
 Next
 showNumBtn=str_tmp
End Function

'====================================================================
'ShowGoto 页面跳转
'
'
'====================================================================
Private Function ShowGoto()
 Dim M_item
 '========================================================
 '将返回的Url参数逐个的写入隐藏域中，以便与参数继续传递
 '========================================================
 For Each M_item In Request.QueryString
  If InStr("page",M_Item)=0 Then '从参数中除去 "page" 的值
   Response.Write ""
  End If
 Next
 '========================================================
 response.write " 转到第："
 response.write " 页 "
End Function 


'====================================================================
'ShowPageInfo  分页信息
'更据要求自行修改
'
'====================================================================
Private Function ShowPageInfo()
 Dim str_tmp
 str_tmp=" [页次:"&int_curpage&"/"&int_totalpage&"页] [共"&int_totalrecord&"条] ["&XD_PageSize&"条/页]"
 ShowPageInfo=str_tmp
End Function

'====================================================================