Foros del Web » Programando para Internet » ASP Clásico »

paginacion

 Estas en el tema de paginacion en el foro de ASP Clásico en Foros del Web. Por favor necesito ayuda me toi volviendo loco con la paginacion.Me baje un ejemplo y lo he intentado adaptar a mis necesidades pero no me ...
  #1 (permalink)  
Antiguo 26/06/2002, 12:27
 
Fecha de Ingreso: mayo-2002
Mensajes: 15
Antigüedad: 22 años, 1 mes
Puntos: 0
paginacion
Por favor necesito ayuda me toi volviendo loco con la paginacion.Me baje un ejemplo y lo he intentado adaptar a mis necesidades pero no me funciona.Por favor k alguien me ayude!!!!!!!!!!!!
Aqui os mando el kodigo de la pagina:<!--#include file="conexion_resultados.asp"-->
<html>
<head>
<title>Buscar Datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table border="0" cellpadding="0" width="528">
<tr>
<td valign="top" width="464" height="2" bgcolor="#FFFFFF">

<table cellspacing="0" cellpadding="0" width="526" border="0" bgcolor="#FFFFFF" height="1">
<tbody>
<tr bgcolor="#2d4d5f">
<td width="385" height="1">

<table cellspacing="1" cellpadding="0" width="527" border="0" height="7">
<tbody>
<tr>
<td bgcolor="#759AFB" width="470" height="1">
<form action="default.asp" method="post">

<table cellspacing="0" cellpadding="0" width="517" border="0" height="19">
<tbody>
<tr>
<td align="right" bgcolor="#759AFB" width="512" height="19">
<div align="center">

<table border="0" cellpadding="0" cellspacing="6" width="518" height="40">
<tr>

<td valign="top" width="525" height="2" bgcolor="#759AFB">
<div align="center">


<table border="0" cellpadding="0" cellspacing="0" width="491" align="left">
<tr>
<td bgcolor="#759AFB"><font size="1" face="Verdana">Busco </font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">
<select name="sexo" size="1" style="color: #004080; font-size: 10 px; font-family: Verdana; font-weight: bold">
<option selected value="Mujer">Mujer</option>
<option value="Hombre">Hombre</option>
</select>
 </font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">Edad </font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">
<select name="edad" style="font-size: 10 px; font-family: Verdana; color: #004080; font-weight: bold" size="1">
<option value="18">18</option>
<option value="25">25</option>
<option value="30">30</option>
<option value="35">35</option>
<option value="40">40</option>
<option value="45">45</option>
<option value="50">50</option>
<option value="55">55</option>
<option value="60">60</option>
<option value="70">70</option>
</select>
</font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">a</font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">
<select name="edad1" style="color: #004080; font-family: Verdana; font-size: 10 px; font-weight: bold" size="1">
<option value="18"><font size="1" face="Verdana">18</font></option>
<option value="25"><font size="1" face="Verdana">25</font></option>
<option value="30"><font size="1" face="Verdana">30</font></option>
<option value="35"><font size="1" face="Verdana">35</font></option>
<option value="40"><font size="1" face="Verdana">40</font></option>
<option value="45"><font size="1" face="Verdana">45</font></option>
<option value="50"><font size="1" face="Verdana">50</font></option>
<option value="55"><font size="1" face="Verdana">55</font></option>
<option value="60"><font size="1" face="Verdana">60</font></option>
<option value="70"><font size="1" face="Verdana">70</font></option>
<option value="80"><font size="1" face="Verdana">80</font></option>
</select>
</font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">De </font></td>
<td bgcolor="#759AFB">
<select name="pais" onchange="load_states(this.value)" style="background-color: #ffffff; font-family: Verdana; font-size: 10 px; width: 114; height: 23; color: #004080; font-weight: bold" size="1">
<option value="España">Espa&nt ilde;a</option>
<option value="Francia">Francia</option>
<option value="Inglaterra">Inglaterra</option>
<option value="Irlanda">Irlanda</option>
<option value="Italia">Italia</option>
<option value="ArabiaSaudi">Arabia
Saudí</option>
<option value="Albania">Albania</option>
<option value="Alemania">Alemania</option>
<option value="Australia">Australia</option>
<option value="Andorra">Andorra</option>
<option value="Angola">Angola</option>
<option value="Argelia">Argelia</option>
<option value="Argentina">Argentina</option>
<option value="Austria">Austria</option>
<option value="Belgica">Bélgica&lt ;/option>
<option value="Bolivia">Bolivia</option>
<option value="BosniaHerzegovina">Bosnia
Herzegovina</option>
<option value="Brasil">Brasil</option>
<option value="Bulgaria">Bulgaria</option>
<option value="Camerun">Camerún&lt ;/option>
<option value="Canada">Canadá</option>
<option value="Chile">Chile</option>
<option value="China">China</option>
<option value="Chipre">Chipre</option>
<option value="Colombia">Colombia</option>
<option value="CoreaNorte">Corea
del Norte</option>
<option value="CoreaSur">Corea
del Sur</option>
<option value="CostaRica">Costa
Rica</option>
<option value="Croacia">Croacia</option>
<option value="Cuba">Cuba</option>
<option value="Dinamarca">Dinamarca</option>
<option value="Ecuador">Ecuador</option>
<option value="Egipto">Egipto</option>
<option value="ElCongo">El
Congo</option>
<option value="ElSalvador">El
Salvador</option>
<option value="Escocia">Escocia</option>
<option value="Eslovenia">Eslovenia</option>
<option value="EstadosUnidos">Estados
Unidos</option>
<option value="Estonia">Estonia</option>
<option value="Filipinas">Filipinas</option>
<option value="Finlandia">Finlandia</option>
<option value="Gales">Gales</option>
<option value="Gibraltar">Gibraltar</option>
<option value="Grecia">Grecia</option>
<option value="Guatemala">Guatemala</option>
<option value="Honduras">Honduras</option>
<option value="HongKong">Hong
Kong</option>
<option value="Hungria">Hungría&lt ;/option>
<option value="India">India</option>
<option value="Indonesia">Indonesia</option>
<option value="Iran">Irán</option>
<option value="Iraq">Iráq</option>
<option value="Israel">Israel</option>
<option value="Jamaica">Jamaica</option>
<option value="Japon">Japón</option>
<option value="Jordania">Jordania</option>
<option value="Kuwait">Kuwait</option>
<option value="RepublicaCheca">La
República Checa</option>
<option value="RepublicaEslovaca">La
República Eslovaca</option>
<option value="Letonia">Letonia</option>
<option value="Libia">Líbia</option>
<option value="Lituania">Lituania</option>
<option value="Luxemburgo">Luxemburgo</option>
<option value="Malasia">Malasia</option>
<option value="Malta">Malta</option>
<option value="Marruecos">Marruecos</option>
<option value="Mexico">Méjico</option>
<option value="Monaco">Mónaco</option>
<option value="Nepal">Nepal</option>
<option value="Nicaragua">Nicaragua</option>
<option value="Niger">Níger</option>
<option value="Nigeria">Nigeria</option>
<option value="Noruega">Noruega</option>
<option value="NuevaZelanda">Nueva
Zelanda</option>
<option value="PaisesBajos">Países
Bajos</option>
<option value="Pakistan">Pakistán& lt;/option>
<option value="Paraguay">Paraguay</option>
<option value="Peru">Perú</option>
<option value="Polonia">Polonia</option>
<option value="Portugal">Portugal</option>
<option value="PuertoRico">Puerto
Rico</option>
<option value="RepublicaCentroafricana">Rep&a mp;uacute;blica
Centroafricana</option>
<option value="RepublicaCongo">Rep&uacute ;blica
del Congo (Zaire)</option>
<option value="RepublicaDominicana">Rep&u acute;blica
Dominicana</option>
<option value="Rumania">Rumanía&lt ;/option>
<option value="Rusia">Rusia</option>
<option value="Sudan">Sudán</option>
<option value="Suecia">Suecia</option>
<option value="Suiza">Suiza</option>
<option value="Tailandia">Tailandia</option>
<option value="Taiwan">Taiwán</option>
<option value="Tunez">Túnez</option>
<option value="Turquia">Turquía&lt ;/option>
<option value="Ucrania">Ucrania</option>
<option value="Uruguay">Uruguay</option>
<option value="Venezuela">Venezuela</option>
<option value="Vietnam">Vietnam</option>
<option value="Yugoslavia">Yugoslavia</option>
<option value="Otros">Otros</option>
</select>
</td>

<td bgcolor="#759AFB"><b><dfn&gt ;<font size="1" face="Verdana">  
<input name="Buscar" style="BACKGROUND-COLOR: #77bbff; BORDER-BOTTOM-COLOR: #000096; BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-COLOR: #000096; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #000096; BORDER-RIGHT-STYLE: solid; BORDER-TOP-COLOR: #000096; BORDER-TOP-STYLE: solid; COLOR: #004080; FONT-FAMILY: Verdana; FONT-SIZE: 10px; FONT-WEIGHT: bold" type="submit" value="Buscar">
</font></dfn></b></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>
</td>
</tr>
</tbody>
</table>
</form>
</td>
</tr>
</tbody>
</table>

</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td></td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="3" width="525">
<tr>

<td width="529" bgcolor="#000000">
<table cellspacing="1" cellpadding="0" width="512" border="0" height="15">
<tbody>
<tr>

<td bgcolor="#B5CBFB" width="526" height="15">
<table border="0" cellPadding="0" cellSpacing="0" width="523">
<tbody>
<tr>
<td>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="5">
<tr>

<td width="904" bgcolor="#B5CBFB">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0">
<tr>

<td><font face="Verdana" size="1"><b>RESULTADOS
OBTENIDOS</b></font></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</table>
<% if tabla.bof and tabla.eof then %>
<p><font face="Tahoma" size="2"> No se ha encontrado nada en la base de datos</font></p>
<%
else
aDatos = tabla.GetRows
nombre=6
edad=4
pais=11
foto=14
descripcion=15
%>
<%
Tabla.Close
set tabla=nothing
Conexion.Close
set conexion=nothing
%>
<%
pag = CInt(Request.QueryString("P"))
'Y llamo a PaginarGR
iEstado = PaginarGR (5, pag, aDatos)
'================================================= ====================================
' PaginarGR -- Pagina un vector bidimensional
' vector es el vector a paginar, iPag la página a mostrar y iRegsPorPag el nº de
' registros por cada página que queremos.
'================================================= ====================================
Function PaginarGR (iRegsPorPag, iPag, aDatos)
'
'I, J se utilizan para recorrer el vector
Dim I, J
'Total de páginas y la página que queremos mostrar
Dim iPaginas, iPagActual
'Total de registros, registro en que empezamos y registro en que terminamos
Dim iTotal, iComienzo, iFin

'Hallo el total de registros devueltos
iTotal = UBound(aDatos,2)+1
'Calculo el numero de páginas que tenemos
iPaginas = (iTotal \ iRegsPorPag)
'Si daba decimales, añado una más
'para mostrar los últimos registros
if iTotal mod iRegsPorPag > 0 then
iPaginas = iPaginas + 1
end if
'Si no es una página válida, comienzo en la primera
if iPag < 1 then
iPag = 1
end if
'Si es una página mayor al nº de páginas, comienzo en la última
if iPag > iPaginas then
iPag = iPaginas
end if
for i=0 to UBound(aDatos,2)
response.write("<table border=""0"" cellpadding=""0"" cellspacing=""3"" width=""1"" dwcopytype=""CopyTableCell""&g t;<tr> <td width=""602"" bgcolor=""#000000""> <table cellspacing=""1"" cellpadding=""0"" width=""521"" border=""0"" height=""15""><tbody> <tr> <td bgcolor=""#FFF8D2"" width=""1215"" height=""10""><font face=""Verdana"" size=""1""><b>"& amp;aDatos(nombre,i)&"</b></font>                               <font face=""Verdana"" size=""1""><b>"& amp;aDatos(edad,i)&" años</b></font>                                <font face=""Verdana"" size=""1""><b>"& amp;aDatos(pais,i)&"</b></font></td></tr></tbody></table></td></tr>")
response.write("<tr> <td width=""602"" bgcolor=""#000000""> <table cellspacing=""1"" cellpadding=""0"" width=""22"" border=""0"" height=""1""><tbody> <tr> <td bgcolor=""#FFFFFF"" width=""716"" height=""1""><table cellspacing=""5"" cellpadding=""0"" width=""519"" border=""0"" height=""12""><tbody> <tr> <td width=""87"" height=""79""><a href=""detalle.asp?Cliente="& aDatos(id,i)&"""><img src ="""&aDatos(foto,i)&"& quot;"></td><td width=""417"" height=""79""><p align=""justify""><span class=""small""><font size=""1""face=""Ver dana""><span class=""normal"">"&amp ;aDatos(descripcion,i)&"</span>..</font></span></td></tr></tbody> </table></td></tr></tbody> </table></td></tr>")

response.write("</tr>")
next
response.write("</table>")

Response.Write("Página " & iPag & " de " & iPaginas & " (" & iTotal & " registros)<br>")
'Calculo el índice donde comienzo:
iComienzo = (iPag-1)*iRegsPorPag
'y donde termino:
iFin = iComienzo + (iRegsPorPag-1)
'Si no tengo suficientes registros restantes,
'voy hasta el final
if iFin > UBound(aDatos, 2) then
iFin = UBound(aDatos, 2)
end if


'Imprimo enlaces, si son necesarios
if iPag > 1 then
Response.Write("<A HREF=""general.asp?P="&iPag-1&""">Anterior</A>  ")
end if
if iPag < iPaginas then
Response.Write("<A HREF=""general.asp?P="&iPag+1&a mp;""">Siguiente</A> ")
end if

PaginarGR = 1


End Function
'================================================= ====================================
%>
<% end if %>
</body>
</html>
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 23:30.