Buenas amigos de foros del web.....soy yo nuevamente....resulta que necesito un paginador de resultados como el de este foro....yo encontre en la Biblioteca de Clases, Funciones y Subrutinas la que posteo Al Zuwaga, esta super buena....el problema es que yo necesito ademas de pasarle el numero de pagina actual, los criterios de busqueda que estoy desarrollando en un buscador...yo lo tengo con el tipico "10 anteriores y 10 siguientes" y paso los datos asi :
Código HTML:
Response.Write("<br><hr>")
if PaginaActual > 1 then
Response.Write(" <A HREF=validar2.asp?tecnico="&tecnico&"&estado="&estado&"&fecha_1="&fecha_1&"&guia_d="&guia_d&"&artefacto="&artefacto&"&loc="&loc&"&fecha_2="&fecha_2&"&Categorias="&distribuidor&"&tipo_artefacto="&tipo_artefacto&"&orden="&orden&"&tipo_fecha="&tipo_fecha&"&pagina="&PaginaActual-1&">10 Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write(" <A HREF=validar2.asp?tecnico="&tecnico&"&estado="&estado&"&fecha_1="&fecha_1&"&guia_d="&guia_d&"&artefacto="&artefacto&"&loc="&loc&"&fecha_2="&fecha_2&"&Categorias="&distribuidor&"&tipo_artefacto="&tipo_artefacto&"&orden="&orden&"&tipo_fecha="&tipo_fecha&"&pagina="&PaginaActual+1&">10 Siguientes</A>")
end if
este es el codigo de la barra de navegacion (Creditos de Al Zuwaga y 3pies)
Código HTML:
<%
Function BarraDeNavegacion(PaginasTotales, PaginaActual)
'Modificar el contenido de las constantes para cambiar el aspecto de la barra de navegación
const EstiloDeLaTabla = "border: 1px solid #D6AD6B; font-family: Arial, Helvetica, sans-serif; font-size: 10px;"
const EstiloCeldaPaginaXdeY = "color: #846B42; background-color: #D6AD6B;"
const LinkDelEnlace = "link1"
const EstiloDeLaCeldaPaginaActual = "background-color:#EFD6AD; font-weight:bold;"
const EstiloDeLaCeldaPaginaConLink = "background-color:#F7E7C6"
if PaginasTotales > 1 then
if PaginasTotales > 5 then MostrarUltima = true
TablaConBarraDeNavegacion = "<table border=""0"" cellpadding=""2"" cellspacing=""1"" style=""" & EstiloDeLaTabla & """><tr><td style=""" & EstiloCeldaPaginaXdeY & """> Página " & PaginaActual & " de " & PaginasTotales & " </td>"
if PaginaActual >= 4 then
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=1"" class=""" & LinkDelEnlace & """><strong>«</strong> Primera</a></td>"
CantidadAMostrarDeAnterioresYPosteriores = 2
'Indicamos la celda central como activa, y sin link
'(la 3ª, de las 5 mostradas), y el resto con link
for i = 1 to 5
'No mostramos link si estamos en la 3ª celda de las 5 mostradas
if i = 3 then
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style=""" & EstiloDeLaCeldaPaginaActual & """>" & PaginaActual & "</td>"
else
'Mostramos el link si estamos en las celdas distintas de la 3ª (la central)
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style=""" & EstiloDeLaCeldaPaginaConLink & """><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & PaginaActual - CantidadAMostrarDeAnterioresYPosteriores & """ class=""" & LinkDelEnlace & """>" & PaginaActual - CantidadAMostrarDeAnterioresYPosteriores & "</a></td>"
end if
if PaginaActual - CantidadAMostrarDeAnterioresYPosteriores = PaginasTotales then
MostrarUltima = False
Exit For
end if
CantidadAMostrarDeAnterioresYPosteriores = CantidadAMostrarDeAnterioresYPosteriores - 1
next
else
if PaginasTotales < 5 then
for i = 1 to PaginasTotales
if i <> PaginaActual then
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & i & """ class=""" & LinkDelEnlace & """>" & i & "</a></td>"
else
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaActual &""">" & i & "</td>"
end if
next
else
For i = 1 to 5
if i <> PaginaActual then
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & i & """ class=""" & LinkDelEnlace & """>" & i & "</a></td>"
else
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaActual &""">" & i & "</td>"
end if
next
end if
end if
if MostrarUltima = true then TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & PaginasTotales & """ class=""" & LinkDelEnlace & """>Última <strong>»</strong></a></td>"
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "</tr></table>"
BarraDeNavegacion = TablaConBarraDeNavegacion
end if
end Function
%>
y se llama a la funcion asi :
Código:
<%=BarraDeNavegacion(PaginasTotales, PaginaActual)%>
hasta ahi todo bien..el problema es que por mas que lo he intentado no me resulta pasarle los criterios de la busqueda que estoy consultando....
De antemano Muchas Gracias