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

Str_URL = GetUrl() 
if Int_TotalRecord= 0 then Call GetPage() 
'================================================================== 
'显示分页信息，各个模块根据自己要求更改显求位置 
'================================================================== 
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 "" 
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="<a href="""&Str_URL & "1" & """>" & Btn_First&"</a> <a href=""" & Str_URL & CStr(int_prvpage) & """>" & Btn_Prev&"</a>" 
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="<a href=""" & Str_URL & CStr(int_nextpage) & """>" & Btn_Next&"</a> <a href="""& Str_URL & CStr(Int_TotalPage) & """>" & Btn_Last&"</a>" 
End If 
ShowNextLast=str_tmp 
End function 

'==================================================================== 
'ShowNumBtn 数字导航 
'每次显示10页 
' 
'==================================================================== 
Private function showNumBtn() 
Dim i,str_tmp,m,n 
m = Int_CurPage - 4 
n = Int_TotalPage 
if n>1 then 
for i = 1 to 10 
if m < 1 then m = 1  
if m > n then 
exit for 
end if 
str_tmp=str_tmp & "[<a href=""" & Str_URL & CStr(i) & """>"&i&"</a>] "