| Usuario |
Paginacion de una instruccion sele... |
javierjsc
7 Mensaje(s)
|
| Enviado - 8/5/2002 |
| |
Hola a todos los usuarios de El Guru:
Necesito que alguien me mande el codigo fuente de la paginacion de una pagina en asp,
ya que realizo una instruccion select de varias tablas que me devuelven un gran resultado de registros, esa select lleva parametros que se le han pasado por medio de un formulario anterior y me gustaria que me mostrara unos 10 registros por pagina, he conseguido que me los muestre pero al pasar a la siguiente pagina los valores de la instruccion select estan vacios y no se como mantenerlos entre las diferentes paginas.
Un saludo y gracias a todo el que haya leido el mensaje, si en lugar de dejar aqui el codigo lo prefiere mandar a mi mail este es [email protected].
Muchas Gracias |
| |
|
Desconocido
|
| Enviado - 9/5/2002 |
| |
| en los ejemplos de www.asptutor.com esta lo que buscas... |
| |
|
javierjsc
7 Mensaje(s)
|
| Enviado - 9/5/2002 |
| |
| Gracias (Desconocido), pero creo q el error ha sido por mi parte no indicar que necesito el codigo en VBScript y nada de Java, y en ese ejemplo viene muy bien explicado pero con instrucciones de Java, de todas maneras gracias y a ver si alguien me puede ayudar. |
| |
|
Avatar
50 Mensaje(s)
|
| Enviado - 9/5/2002 |
| |
Hola:
Te tiro algo para que te orientes..
<%
const PAGE_SIZE=10
sSQL= "Select * from VW_PERDIDAS " & strFiltro & ArmarOrderBy("TblPerdidas")
objRec.CacheSize = PAGE_SIZE
objRec.Open sSQL ,DBConn, adOpenKeyset, adLockOptimistic, adCmdText
while not objRec.EOF and objRec.AbsolutePage=intPageAct
Response.Write"<tr " & tblColor(objRec) & " >"
Call ArmarDatos("TblPerdidas", objRec)%>
<TD align=left nowrap>
<a href="Perdida.asp?ID=<%= objRec("PERD_CODIGO")%>"><img TITLE="Visualizar" border=0 hspace=0 src="Imagenes\btnVisualizar.gif" ></a>
<%If tienePermiso("Empr03") Then %>
<a href="javascript:AbrirPopup('Perdida_Eliminar.asp?ID=<%= objRec("PERD_CODIGO")%>','300','170');"><img TITLE="Eliminar" border=0 hspace=0 src="Imagenes\btnEliminar.gif"></a>
<%End If%>
</TD>
</TR>
<% objRec.MoveNext
wend
call PageDataEnd(objRec, intPageAct)
objRec.Close
Set objRec = Nothing
end if
'***********************************************************************************
function PageDataInit(oRecPI)
dim PageDataInit_page
oRecPI.PageSize = PAGE_SIZE
select case Request.Form("btnPage")
case ""
PageDataInit_page = 1
case "<"
PageDataInit_page = Request.Form("opPage") -1
case ">"
PageDataInit_page = Request.Form("opPage") +1
case "|<"
PageDataInit_page = 1
case ">|"
PageDataInit_page = oRecPI.PageCount
end select
oRecPI.AbsolutePage = PageDataInit_page
PageDataInit = PageDataInit_page
end function
'***********************************************************************************
sub PageDataEnd(oRecPI, PageAct)
Response.Write "<input name=opPage style=DISPLAY:none value=" & PageAct & ">"
Response.Write "</table>"
Response.Write "<table width=100% align=center><tr><td align=center>"
if PageAct >1 then
Response.Write " "
Response.Write "<input class=botonNav type=submit title='Visualizar primer página' name=btnPage value='|<'>"
Response.Write " "
Response.Write "<input class=botonNav type=submit title='Visualizar página anterior' name=btnPage value='<'>"
Response.Write " "
end if
if PageAct <oRecPI.PageCount then
Response.Write " "
Response.Write "<input class=botonNav type=submit title='Visualizar página siguiente' name=btnPage value='>'>"
Response.Write " "
Response.Write "<input class=botonNav type=submit title='Visualizar última página' name=btnPage value='>|'>"
Response.Write " "
end if
Response.Write "</tr></td></table>"
end sub
'***********************************************************************************
%>
|
| |
|
javierjsc
7 Mensaje(s)
|
| Enviado - 14/5/2002 |
| |
| Muchas gracias Avatar, me ha servido de gran ayuda ademas he comprendido mucho codigo y lo he modificado para hacerlo mas funcional a mi proyecto, te lo agradezco. |
| |
|
|
|
