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

m = m + 1 
next 
end if 
showNumBtn=str_tmp 
End function 

'==================================================================== 
'ShowPageInfo 分页信息 
'更据要求自行修改 
' 
'==================================================================== 
Private function ShowPageInfo() 
Dim str_tmp 
str_tmp="页次:"&Int_CurPage&"/"&Int_TotalPage&"页 共"&Int_TotalRecord&"条记录 "&int_PageSize&"条/每页" 
ShowPageInfo=str_tmp 
End function 
'================================================================== 
'GetURL 得到当前的URL 
'更据URL参数不同，获取不同的结果 
' 
'================================================================== 
Private function GetURL() 
Dim strUrl,tmp_URL,i,j,search_str,result_url 
search_str="page=" 
strUrl=Request.Servervariables("URL") 
strUrl=split(strUrl,"/") 
i=UBound(strUrl,1) 
tmp_URL=strUrl(i)'得到当前页文件名 
str_params=Trim(Request.Servervariables("QUERY_STRING")) 
If str_params="" Then 
result_url=tmp_URL & "?page=" 
Else 
If InstrRev(str_params,search_str)=0 Then 
result_url=tmp_URL & "?" & str_params &"&page=" 
Else 
j=InstrRev(str_params,search_str)-2 
If j=-1 Then 
result_url=tmp_URL & "?page=" 
Else 
str_lparams=Left(str_params,j) 
str_rparams=right(str_params,len(str_params)-j-1) 
if InStr(str_rparams,"&")<>0 then 
str_rparams=right(str_rparams,len(str_rparams)-InStr(str_rparams,"&")+1) 
else 
str_rparams = "" 
end if 
result_url=tmp_URL & "?" & str_lparams&str_rparams&"&page=" 
End If 
End If 
End If 
GetURL=result_url 
End function 
'==================================================================== 
' 设置 Terminate 事件。 
' 
'==================================================================== 
Private Sub Class_Terminate  
Obj_Rs.close 
Set Obj_Rs=nothing 
Obj_Conn.close 
set Obj_Conn = nothing 
End Sub 
'==================================================================== 
'ShowError 错误提示 
' 
' 
'==================================================================== 
Private Sub ShowError() 
If Str_Errors <> "" Then 
Response.Write("" & Str_Errors & "") 
Response.End