当前位置: 王朝网络 >> asp >> asp中可以保存参数值的分页代码

asp中可以保存参数值的分页代码

王朝asp·作者佚名 2008-05-31

<%''+++++++++++++++++++++++++++++++++++++++++++++++++++++++

''调用例子

'Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo

'int_RPP=2 '设置每页显示数目

'int_showNumberLink_=8 '数字导航显示数目

'showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1

'str_nonLinkColor_="#999999" '非热链接颜色

'toF_="9" '首页

'toP10_=" 7" '上十

'toP1_=" 3" '上一

'toN1_=" 4" '下一

'toN10_=" 8" '下十

'toL_=":" '尾页

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

'这段代码一定要在VClass_Rs.Open 与 for循环之间

' Set VClass_Rs = CreateObject(G_FS_RS)

' VClass_Rs.Open This_Fun_Sql,User_Conn,1,1

' IF not VClass_Rs.eof THEN

' VClass_Rs.PageSize=int_RPP

' cPageNo=NoSqlHack(Request.QueryString("Page"))

' If cPageNo="" Then cPageNo = 1

' If not isnumeric(cPageNo) Then cPageNo = 1

' cPageNo = Clng(cPageNo)

' If cPageNo<=0 Then cPageNo=1

' If cPageNo>VClass_Rs.PageCount Then cPageNo=VClass_Rs.PageCount

' VClass_Rs.AbsolutePage=cPageNo

' FOR int_Start=1 TO int_RPP

''++++++++++

'加循环体显示数据

''++++++++++

' VClass_Rs.MoveNext

' if VClass_Rs.eof or VClass_Rs.bof then exit for

' NEXT

' END IF

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

'response.Write ""& fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)

''++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

'*********************************************************

' 目的：分页的页面参数保持

' 提交查询的一致性

' 输入：moveParam：分页参数

' removeList：要移除的参数

' 返回：分页Url

'*********************************************************

Function PageUrl(moveParam,removeList)

dim strName

dim KeepUrl,KeepForm,KeepMove

removeList=removeList&","&moveParam

KeepForm=""

For Each strName in Request.Form

'判断form参数中的submit、空值

if not InstrRev(","&removeList&",",","&strName&",", -1, 1)>0 and Request.Form(strName)<>"" then

KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Request.Form(strName))

end if

removeList=removeList&","&strName

KeepUrl=""

For Each strName In Request.QueryString

If not (InstrRev(","&removeList&",",","&strName&",", -1, 1)>0) Then

KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName))

End If

KeepMove=KeepForm&KeepUrl

If (KeepMove <> "") Then

KeepMove = Right(KeepMove, Len(KeepMove) - 1)

KeepMove = Server.HTMLEncode(KeepMove) & "&"

End If

'PageUrl = replace(Request.ServerVariables("URL"),"/Search.asp","/Search.html") & "?" & KeepMove & moveParam & "="

PageUrl = "?" & KeepMove & moveParam & "="

End Function

Function fPageCount(Page_Rs,showNumberLink_,nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,Page)

Dim This_Func_Get_Html_,toPage_,p_,sp2_,I,tpagecount

Dim NaviLength,StartPage,EndPage

This_Func_Get_Html_ = "" : I = 1

NaviLength=showNumberLink_

if IsEmpty(showMorePageGo_Type_) then showMorePageGo_Type_ = 1

tpagecount=Page_Rs.pagecount

If tPageCount<1 Then tPageCount=1

if not Page_Rs.eof or not Page_Rs.bof then

toPage_ = PageUrl("Page","submit,GetType,no-cache,_")

if Page=1 then

This_Func_Get_Html_=This_Func_Get_Html_& ""&toF_&" " &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&"1 title=""首页"">"&toF_&"</a> " &vbNewLine

End If

if Page<NaviLength then

StartPage = 1

else

StartPage = fix(Page / NaviLength) * NaviLength

end if

EndPage=StartPage+NaviLength-1

If EndPage>tPageCount Then EndPage=tPageCount

If StartPage>1 Then

This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_& Page - NaviLength &" title=""上"&int_showNumberLink_&"页"">"&toP10_&"</a> " &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& ""&toP10_&" " &vbNewLine

End If

If Page <> 1 and Page <>0 Then

This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&(Page-1)&" title=""上一页"">"&toP1_&"</a> " &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& ""&toP1_&" " &vbNewLine

End If

For I=StartPage To EndPage

If I=Page Then

This_Func_Get_Html_=This_Func_Get_Html_& ""&I&"" &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&I&">" &I& "</a>" &vbNewLine

End If

If I<>tPageCount Then This_Func_Get_Html_=This_Func_Get_Html_& vbNewLine

If Page <> Page_Rs.PageCount and Page <>0 Then

This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_&(Page+1)&" title=""下一页"">"&toN1_&"</a> " &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& ""&toN1_&" " &vbNewLine

End If

If EndPage<tpagecount Then

This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_& Page + NaviLength &" title=""下"&int_showNumberLink_&"页"">"&toN10_&"</a> " &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& " "&toN10_&" " &vbNewLine

End If

if Page_Rs.PageCount<>Page then

This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&Page_Rs.PageCount&" title=""尾页"">"&toL_&"</a>" &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& ""&toL_&"" &vbNewLine

End If

If showMorePageGo_Type_ = 1 then

Dim Show_Page_i

Show_Page_i = Page + 1

if Show_Page_i > tPageCount then Show_Page_i = 1

This_Func_Get_Html_=This_Func_Get_Html_& "<input type=""text"" size=""4"" maxlength=""10"" name=""Func_Input_Page"" onmouseover=""this.focus();"" onfocus=""this.value='"&Show_Page_i&"';"" onKeyUp=""value=value.replace(/[^1-9]/g,'')"" onbeforepaste=""clipboardData.setData('text',clipboardData.getData('text').replace(/[^1-9]/g,''))"">" &vbNewLine _

&"<input type=""button"" value=""Go"" onmouseover=""Func_Input_Page.focus();"" onclick=""javascript:var Js_JumpValue;Js_JumpValue=document.all.Func_Input_Page.value;if(Js_JumpValue=='' || !isNaN(Js_JumpValue)) location='"&topage_&"'+Js_JumpValue; else location='"&topage_&"1';"">" &vbNewLine

Else

This_Func_Get_Html_=This_Func_Get_Html_& " 跳转:<select NAME=menu1 onChange=""var Js_JumpValue;Js_JumpValue=this.options[this.selectedIndex].value;if(Js_JumpValue!='') location=Js_JumpValue;"">"

for i=1 to tPageCount

This_Func_Get_Html_=This_Func_Get_Html_& "<option value="&topage_&i

if Page=i then This_Func_Get_Html_=This_Func_Get_Html_& " selected style='color:#0000FF'"

This_Func_Get_Html_=This_Func_Get_Html_& ">第"&cstr(i)&"页</option>" &vbNewLine

This_Func_Get_Html_=This_Func_Get_Html_& "</select>" &vbNewLine

End if

This_Func_Get_Html_=This_Func_Get_Html_& p_&sp2_&"  每页"&Page_Rs.PageSize&"个记录，现在是:"&sp2_&Page&"/"&tPageCount&"页，共"&sp2_&Page_Rs.recordCount&"个记录。"

else

'没有记录

end if

fPageCount = This_Func_Get_Html_

End Function