AQUI VAZ UMA PAGINAÇÃO SIMPLES E FUNCIONAL, ELE SÓ TEM PRÓXIMA E ANTERIOR MAS FUNCIONA PERFEITO !!
ESTA TODA EXPLICADINHA !!
<html>
<head>
<title><%=TS%></title>
<link rel="stylesheet" type="text/css" href="estilo.css">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body text="#000000" link="#000000" vlink="#000000" alink="#000000">
<div align="left">
<table width="287" height="195" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="287" height="195" align="center" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home">
<span class="home"> </span> </font>
<table width="280" height="55" border="0" align="CENTER" cellpadding="0" cellspacing="0">
<tr>
<td width="280" height="55" align="center" valign="middle"> <div align="left">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"><span class="home">
</span> <span class="home"> </span> <span class="home">
<%
'Efetuando a conexão com a base de dados criada -----------------------
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("galeria.mdb") 'aqui vai o nome do Banco de dados
Conn.open
'--------------------------------------------------------------------------
'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,
'pois vamos utilizar algumas funções deste objeto
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.
idfesta = request.querystring("idfesta")
SQL = "SELECT * FROM fotos where idfesta = " & idfesta & " ORDER BY idfoto ASC"
RS.Open SQL,Conn,3,3
url= rs("url")
idfesta = rs("idfesta")
'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor
'que zero, se é maior que o número total de páginas, etc.
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.AbsolutePage=intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < RS.PageSize and not RS.EOF
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write "<img src='tn/tn_"& url &"'>"
'---------------------------------------------------------------------------------------------
RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<a href="miniaturas.asp?idfesta=<%=idfesta%>&pagina=<%=intpagina-1%>">Anterior</a>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="miniaturas.asp?idfesta=<%=idfesta%>&pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
%>
</span></font></p>
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home">
<span class="home"> </span> <span class="home"> </span></font></p>
</div></td>
</tr>
</table>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home">
<span class="home"> </span> </font></td>
</tr>
<tr>
<td height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"><span class="home">
</span></font></td>
</tr>
</table>
<p><strong><font size="1"></font></strong></p>
</div>
</body>
</html>
Pergunta
Cybertrax
AQUI VAZ UMA PAGINAÇÃO SIMPLES E FUNCIONAL, ELE SÓ TEM PRÓXIMA E ANTERIOR MAS FUNCIONA PERFEITO !!
ESTA TODA EXPLICADINHA !!
<html> <head> <title><%=TS%></title> <link rel="stylesheet" type="text/css" href="estilo.css"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head> <body text="#000000" link="#000000" vlink="#000000" alink="#000000"> <div align="left"> <table width="287" height="195" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="287" height="195" align="center" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"> <span class="home"> </span> </font> <table width="280" height="55" border="0" align="CENTER" cellpadding="0" cellspacing="0"> <tr> <td width="280" height="55" align="center" valign="middle"> <div align="left"> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"><span class="home"> </span> <span class="home"> </span> <span class="home"> <% 'Efetuando a conexão com a base de dados criada ----------------------- Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("galeria.mdb") 'aqui vai o nome do Banco de dados Conn.open '-------------------------------------------------------------------------- 'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo, 'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise. idfesta = request.querystring("idfesta") SQL = "SELECT * FROM fotos where idfesta = " & idfesta & " ORDER BY idfoto ASC" RS.Open SQL,Conn,3,3 url= rs("url") idfesta = rs("idfesta") 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < RS.PageSize and not RS.EOF '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------- response.write "<img src='tn/tn_"& url &"'>" '--------------------------------------------------------------------------------------------- RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="miniaturas.asp?idfesta=<%=idfesta%>&pagina=<%=intpagina-1%>">Anterior</a> <% END IF 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="miniaturas.asp?idfesta=<%=idfesta%>&pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %> </span></font></p> <p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"> <span class="home"> </span> <span class="home"> </span></font></p> </div></td> </tr> </table> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"> <span class="home"> </span> </font></td> </tr> <tr> <td height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" class="home"><span class="home"> </span></font></td> </tr> </table> <p><strong><font size="1"></font></strong></p> </div> </body> </html>Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.