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

Paginacion con ASP y conexion a Mysql

Estas en el tema de Paginacion con ASP y conexion a Mysql en el foro de ASP Clásico en Foros del Web. Hola busque por la red algún ejemplo de paginación con conexión Mysql y no la encontré solo encontraba con conexion a Access por eso aquí ...
  #1 (permalink)  
Antiguo 19/04/2007, 09:32
Avatar de coyit  
Fecha de Ingreso: abril-2007
Mensajes: 1
Antigüedad: 18 años
Puntos: 0
Mensaje Paginacion con ASP y conexion a Mysql

Hola busque por la red algún ejemplo de paginación con conexión Mysql y no la encontré solo encontraba con conexion a Access por eso aquí les doy un código espero que les funcione a mi me esta funcionando a la perfección. . Que tengan un bonito día.

<html>
<%
' conexion a la base
dim oConn, pag_actual
dim oConn_string

oConn_string ="driver={MySQL};server=;uid=;Pwd=;Database="
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open (oConn_string)
%>
<%
if request.Form("txtPvez")="" then
sql = "SELECT COUNT(*) as NumRegistros FROM discusion WHERE IdCabeza=0"
set RsRegistros=oConn.Execute(sql)
if not RsRegistros.eof then
NumPaginas = int(RsRegistros("NumRegistros")/5)
vResiduo = RsRegistros("NumRegistros") mod 5
if vResiduo > 0 then
NumPaginas = NumPaginas + 1
end if
Pag_actual = 1
end if
RsRegistros.close
set RsRegistros=nothing
else
Pag_actual=request.Form("txtPActual")
NumPaginas = request.Form("txtPTotal")
end if

%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>PAGINACION ASP MYSQL</title>
<style type="text/css">
<!--
.Estilo2 {
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
color: #FFFFFF;
}
-->
</style>
<link href="../../../css/marco.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
a:link {
color: #000000;
}
a:visited {
color: #000000;
}
a:hover {
color: #000000;
}
a:active {
color: #000000;
}
-->
</style></head>
<body onload="inicializar();">
<table width="600" border="0">
<tr>
<td>
<form method="post" action="foro.asp" id="Paginacion" name="Paginacion">
<%
sql="SELECT * FROM discusion WHERE IdCabeza=0 limit " & (Pag_actual-1)*5 & ", 5"
set RsRegPag=oConn.Execute(sql)
%>

<table width="85%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="tablaIA">&nbsp;</td>
<td class="tablaTit"><%Response.Write("<CENTER>Página " & Pag_actual & " de " & NumPaginas &"</CENTER></B>")%></td>
<td class="tablaDA">&nbsp;</td>
</tr>
<tr>
<td class="tablaI">&nbsp;</td>
<td bgcolor="#EBEBEB">
<BR />
<table width="95%" align="center" border="1" bordercolor="#473C59" cellpadding="0" cellspacing="0">
<tr bgcolor="#000000">
<td><div align="center"></div></td>
<td><div align="center"><span class="Estilo2">Mensaje</span></div></td>
<td width="20%" ><div align="center"><span class="Estilo2">Fecha</span><</div></td>
</tr>
<%
while not RsRegPag.eof
%>
<tr>
<td width="16%" align="left">
<a href="vermensaje.asp?idmensaje=<%=RsRegPag("IdMens aje")%>"><img src="../../../imagenes/foro/<%=RsRegPag("IMAGEN")%>.jpg" width="50" height="50" /></a></td>
<td width="64%" align="left">
<a href="vermensaje.asp?idmensaje=<%=RsRegPag("IdMens aje")%>"><b>
<font face="Arial" size="2"><%=(RsRegPag("Nombre"))%></font></b></a><br />
<img src="arrow1.gif" />&nbsp;&nbsp;<a href="vermensaje.asp?idmensaje=<%=RsRegPag("IdMens aje")%>"><b>
<font face="Arial" size="2"><%=(RsRegPag("Titulo"))%></font></b></a></br><br />
<a href="vermensaje.asp?idmensaje=<%=RsRegPag("IdMens aje")%>"><b>
<font face="Arial" size="2"><%=(RsRegPag("Mensaje"))%></font></b></a>
</td>
<td align="center"><a href="vermensaje.asp?idmensaje=<%=RsRegPag("IdMens aje")%>"><b> <font face="Arial" size="2" ><%=(RsRegPag("Fecha"))%></font></b></a></td>
</tr>
<%
RsRegPag.movenext
wend
RsRegPag.close
set RsRegPag=nothing
%>
</table>
<br />
<!--Botones de adelante y atras-->
<table width="50%" border="0" align="center">
<tr>
<td>
<div align="center">
<input type="button" id="btnAtras" name="btnAtras" value="Atras" onclick="Atras();"/>
<input type="button" id="btnAvance" name="btnAvance" value="Avance" onclick="Avance();"/>
</p>
<input type="hidden" id="txtPvez" name="txtPvez" />
<input type="hidden" name="txtPActual" id="txtPActual" value="<%=Pag_actual%>"/>
<input type="hidden" name="txtPTotal" id="txtPTotal" value="<%=NumPaginas%>"/>
</div>
</td>
</tr>

</table>

</td>
<td class="tablaD">&nbsp;</td>
</tr>
<tr>
<td class="tablaIB">&nbsp;</td>
<td class="tablaInf">&nbsp;</td>
<td class="tablaDB">&nbsp;</td>
</tr>
</table>

</form>
</td>
</tr>
</table>


</body>
</html>

<script language="javascript">
// Funciones para que ocultar o aparecer botones de adelante y atras
function inicializar(){
var vPagAct = document.Paginacion.txtPActual.value*1;
var vPagTot = document.Paginacion.txtPTotal.value*1;
if(vPagAct=="1"){
document.Paginacion.btnAtras.style.visibility="hid den";
document.Paginacion.btnAvance.style.visibility="vi sible";
}
if(vPagAct>1&&vPagAct<vPagTot){
document.Paginacion.btnAtras.style.visibility="vis ible";
document.Paginacion.btnAvance.style.visibility="vi sible";
}
if(vPagAct==vPagTot){
document.Paginacion.btnAtras.style.visibility="vis ible";
document.Paginacion.btnAvance.style.visibility="hi dden";
}
}
function Atras(){
var vPagAct = document.Paginacion.txtPActual.value*1;
if(vPagAct>1){
document.Paginacion.txtPActual.value = vPagAct - 1;
}
document.Paginacion.txtPvez.value="N";
document.Paginacion.submit();
}
function Avance(){
var vPagAct = document.Paginacion.txtPActual.value*1;
var vPagTot = document.Paginacion.txtPTotal.value*1;
if(vPagAct<vPagTot){
document.Paginacion.txtPActual.value = vPagAct + 1;
}
document.Paginacion.txtPvez.value="N";
document.Paginacion.submit();
}
</script>
  #2 (permalink)  
Antiguo 20/04/2007, 10:31
Avatar de Luisa Callejo Lara  
Fecha de Ingreso: abril-2007
Mensajes: 1
Antigüedad: 18 años
Puntos: 0
Re: Paginacion con ASP y conexion a Mysql

Hola Coyit ps ke buena onda ke decidiste subir el código ya ke como lo mencionas en la red no hay muchos ejemplos claros de paginación, ya lo implementé en mi sitio y esta jalando sin problema
Saludosssss
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




La zona horaria es GMT -6. Ahora son las 22:52.