Código de paginação que pode salvar valores de parâmetros em asp

Autor：Eve Cole Data da Última Atualização：2009-06-25 17:39:22

<%''++++++++++++++++++++++++++++++++++++++++++++++++++ +++++
''Exemplo de chamada
'Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
'int_RPP=2 'Define o número exibido por página
'int_showNumberLink_=8 'Número de exibição de navegação numérica
'showMorePageGo_Type_ = 1 'É um menu suspenso ou um salto de valor de entrada Quando chamado várias vezes, apenas 1 pode ser selecionado?
'str_nonLinkColor_="#999999" 'Cor do link não ativo
'toF_="9" 'Página inicial
'toP10_=" 7" 'Dez principais
'toP1_=" 3" 'Anterior
'toN1_=" 4" 'Próximo
'toN10_=" 8" 'Próximos dez
'toL_=":" 'Última página

'============================== ==============
'Este código deve estar entre VClass_Rs.Open e o loop for
' Definir VClass_Rs = CreateObject(G_FS_RS)
' VClass_Rs.Open This_Fun_Sql,User_Conn,1,1
' SE não for VClass_Rs.eof ENTÃO
' VClass_Rs.PageSize=int_RPP
' cPageNo=NoSqlHack(Request.QueryString("Página"))
'Se cPageNo="" Então cPageNo = 1
'Se não for isnumeric(cPageNo) Então cPageNo = 1
'cPageNo = Clng(cPageNo)
'Se cPageNo<=0 Então cPageNo=1
' Se cPageNo>VClass_Rs.PageCount Então cPageNo=VClass_Rs.PageCount
' VClass_Rs.AbsolutePage=cPageNo
' FOR int_Start=1 PARA int_RPP
''++++++++++
'Adiciona um corpo de loop para exibir dados
''++++++++++
'VClass_Rs.MoveNext
'se VClass_Rs.eof ou VClass_Rs.bof então sai para
' PRÓXIMO
'TERMINAR SE
'===========================================
'response.Write ""& fPageCount(VClass_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)

''++++++++++++++ +++++++++++++++++++++++++++++++++++++++++++++++++++
'********************************************** *********
'Objetivo: Manter os parâmetros da página de paginação
'Envia a consistência da consulta
'Entrada: moveParam: parâmetro de paginação
'removeList: parâmetros a serem removidos
'Retorno: URL de paginação
'********************************************** *********
Função PageUrl(moveParam,removeList)
dim strNome
escurecer KeepUrl,KeepForm,KeepMove
removeList=removeList&","&moveParam
KeepForm=""
Para cada strName em Request.Form
'Determina o valor submit e null nos parâmetros do formulário
se não InstrRev(","&removeList&",",","&strName&",", -1, 1)>0 e Request.Form(strName)<>"" então
KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Request.Form(strNome))
terminar se
removeList=removeList&","&strNome
Próximo

KeepUrl=""
Para cada strName em Request.QueryString
Caso contrário (InstrRev(","&removeList&",",","&strName&",", -1, 1)>0) Então
KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName))
Terminar se
Próximo

KeepMove=KeepForm&KeepUrl

Se (KeepMove <> "") Então
KeepMove = Direita(KeepMove, Len(KeepMove) - 1)
KeepMove = Server.HTMLEncode(KeepMove) & "&"
Terminar se

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

Função 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_

se IsEmpty(showMorePageGo_Type_) então showMorePageGo_Type_ = 1
tpagecount=Página_Rs.pagecount
Se tPageCount<1 Então tPageCount=1

se não for Page_Rs.eof ou não Page_Rs.bof então

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

se Page=1 então
This_Func_Get_Html_=This_Func_Get_Html_& ""&toF_&" " &vbNewLine
Outro
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&"1 title=""Homepage"">"&toF_&"</a> " &vbNewLine
Terminar se
se Página<NaviLength então
Página inicial = 1
outro
StartPage = fix(Página / NaviLength) * NaviLength
terminar se
EndPage = StartPage + NaviLength-1
Se EndPage>tPageCount Então EndPage=tPageCount

Se StartPage>1 Então
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_& Página - NaviLength &" title=""上"&int_showNumberLink_&"Page"">"&toP10_&"</a> " &vbNewLine
Outro
This_Func_Get_Html_=This_Func_Get_Html_& ""&toP10_&" " &vbNewLine
Fim se

se página <> 1 e página <> 0 então
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&(Page-1)&" title=""Página anterior"">"&toP1_&"</a> " &vbNewLine
Outro
This_Func_Get_Html_=This_Func_Get_Html_& ""&toP1_&" " &vbNewLine
Fim se

for I=StartPage para EndPage
Se I=Página Então
This_Func_Get_Html_=This_Func_Get_Html_& ""&I&"" &vbNewLine
Outro
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&I&">" &I& "</a>" &vbNewLine
Terminar se
Se eu<>tPageCount então This_Func_Get_Html_=This_Func_Get_Html_& vbNewLine
Próximo

Se Página <> Page_Rs.PageCount e Página <>0 Então
This_Func_Get_Html_=This_Func_Get_Html_& " <a href="&toPage_&(Page+1)&" title=""Próxima página"">"&toN1_&"</a> " &vbNewLine
Outro
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_& Página + NaviLength &" title=""下"&int_showNumberLink_&"Page"">"&toN10_&"</a> " &vbNewLine
Outro
This_Func_Get_Html_=This_Func_Get_Html_& " "&toN10_&" " &vbNewLine
Fim Se

se Page_Rs.PageCount<>Página então
This_Func_Get_Html_=This_Func_Get_Html_& "<a href="&toPage_&Page_Rs.PageCount&" title=""Última página"">"&toL_&"</a>" &vbNewLine
Outro
This_Func_Get_Html_=This_Func_Get_Html_& ""&toL_&"" &vbNewLine
Fim Se

Se showMorePageGo_Type_ = 1 então
Escurecer Show_Page_i
Show_Page_i = Página + 1
se Show_Page_i > tPageCount então 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_& " Pular:<selecionar NOME = menu1 onChange=""var Js_JumpValue;Js_JumpValue=this.options[this.selectedIndex].value;if(Js_JumpValue!='') location=Js_JumpValue;"">"
para i=1 para tPageCount
This_Func_Get_Html_=This_Func_Get_Html_& "<option value="&topage_&i
se Page=i então This_Func_Get_Html_=This_Func_Get_Html_& "estilo selecionado='cor:#0000FF'"
This_Func_Get_Html_=This_Func_Get_Html_& ">Página "&cstr(i)&"</option>" &vbNewLine
próximo
This_Func_Get_Html_=This_Func_Get_Html_& "</select>" &vbNewLine

Terminar se

This_Func_Get_Html_=This_Func_Get_Html_& p_&sp2_&"  "&Page_Rs.PageSize&" registros por página, agora: "&sp2_&Page&"/"&tPageCount&" páginas, um total de "&sp2_&Page_Rs.recordCount&" registros."

else
'Nenhum registro
terminar se
fPageCount = This_Func_Get_Html_
Função final
%>
http://blog.csdn.net/hzf100/archive/2006/12/28/1465471.aspx