Ir para conteúdo
Fórum CódigoFonte.net
giuliano81

Paginação em ASP

Recommended Posts

Gostaria de uma ajuda para colocar uma páginação em um album de fotos

segue o codigo das páginas:

A página mais.asp tem as informçãos das fotos que quando é clicado abre a foto maior

veja Exp: http://www.ihe.com.br/mais.asp?categoria=ZonaSul&id=164

<!--#include file="includes/config.asp"-->

<!--#include file="includes/abrebanco.asp"-->

<script language="JavaScript">

<!--

function open_window(url)

{

mywin = window.open(url,"win",'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable

=0,width=576,height=432');

}

// -->

</script>

<%

categoria = Request.QueryString("categoria")

id = Request.QueryString("id")

sql = "SELECT * FROM imoveis WHERE categoria LIKE '"& categoria &"' AND id LIKE '"& id &"'"

Set exe = banco.execute(sql)

%>

<head>

<title>

<%=titulo%>

</title>

<style type="text/css">

font { font-family: Arial; font-size: 11 }

</style>

<link href="<%=local%>includes/styles/link.css" rel="stylesheet" type="text/css">

</head>

<body bgcolor="<%=fundo%>" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="77"><!--#include file="includes/barra.asp"--></td>

</tr>

<tr>

<td height="436"><table width="778" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="65" valign="top" rowspan="2" bgcolor="#EBEBEB"></td>

<td width="591" height="455" valign="top" rowspan="2"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="332" valign="top"><table width="502" border="0" cellspacing="0" cellpadding="0">

<tr align="center" valign="top">

<td height="19" colspan="2" width="500">&nbsp;</td>

</tr>

<tr align="center" valign="top">

<td width="266">

<table width="90%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center"><strong><%=fonte02%><%=exe("bairro")%></strong></td>

</tr>

<tr>

<td align="center"><%=fonte02%><%=exe("descricao")%></td>

</tr>

</table>

</td>

<td width="232">

<table width="232" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=table_color%>">

<tr align="center" bgcolor="<%=tit_fundo%>">

<td colspan="2" width="226"><%=fonte04%>Caracter&iacute;sticas do Im&oacute;vel</td>

</tr>

<tr bgcolor="<%=td_color02%>">

<td width="226" bgcolor="<%=td_color02%>"><%=fonte02%>ID</td>

<td width="226"><%=fonte02%><%=exe("id")%></td>

</tr>

<tr bgcolor="<%=td_color01%>">

<td width="110"><%=fonte02%>Código do Imóvel</td>

<td width="112"><%=fonte02%><%=exe("suite")%></td>

</tr>

<tr bgcolor="<%=td_color01%>">

<!--<td width="110"><%'=fonte02%>Categoria</td>

<td width="112"><%'=fonte02%><%'=exe("categoria")%></td>

</tr>-->

<tr bgcolor="<%=td_color02%>">

<td width="226"><%=fonte02%>Tipo de neg&oacute;cio</td>

<td width="226"><%=fonte02%><%=exe("tipo")%></td>

</tr>

<tr bgcolor="<%=td_color01%>">

<td width="226"><%=fonte02%>N&ordm; de dormit&oacute;rios</td>

<td width="226"><%=fonte02%> <%If IsNull(exe("dormitorio")) then Response.Write "--" Else Response.Write exe("dormitorio") End If%> </td>

</tr>

<tr bgcolor="<%=td_color01%>">

<td valign="top"> <%=fonte02%> N&ordm; de Banheiro(s)</td>

<td> <%=fonte02%> <%If IsNull(exe("andar")) then Response.Write "--" Else Response.Write exe("andar") End If%> </td>

</tr>

<tr bgcolor="<%=td_color02%>">

<td height="19" width="110"><%=fonte02%>Sendo Suites</td>

<td width="112"><%=fonte02%><%=exe("fase_obra")%></td>

</tr>

<!-- <tr bgcolor="<%'=td_color02%>">

<td><%'=fonte02%>Sendo su&iacute;tes</td>

<td><%'=fonte02%>

<%'If IsNull(exe("suite")) then Response.Write "--" Else Response.Write exe("suite") End If%>

</td>

</tr>-->

<tr bgcolor="<%=td_color01%>">

<td><%=fonte02%>&Aacute;rea</td>

<td><%=fonte02%><%=exe("area")%></td>

</tr>

<tr bgcolor="<%=td_color02%>">

<td><%=fonte02%>Pre&ccedil;o</td>

<td><%=fonte02%>R$<%=exe("preco")%></td>

</tr>

<!--<tr bgcolor="<%'=td_color01%>">

<td width="110"><%'=fonte02%>Cond. pagamento</td>

<td width="112"><%'=fonte02%><%'=exe("cond_pagamento")%></td>

</tr>

<tr bgcolor="<%'=td_color02%>">

<td height="19" width="110"><%'=fonte02%>Fase da obra</td>

<td width="112"><%'=fonte02%><%'=exe("fase_obra")%></td>

</tr>-->

</table>

</td>

</tr>

<tr align="center" valign="top">

<td width="266">&nbsp;</td>

<td width="232">&nbsp;</td>

</tr>

<tr align="center" valign="top">

<td width="266"><table width="239" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=table_color%>">

<tr align="center" bgcolor="<%=tit_fundo%>">

<td width="233" colspan="2"><%=fonte04%>Localiza&ccedil;&atilde;o</td>

</tr>

<tr bgcolor="<%=td_color01%>">

<td width="233" valign="top"><%=fonte02%>Local</td>

<td width="233"><%=fonte02%><%=exe("bairro")%></td>

</tr>

<tr bgcolor="<%=td_color02%>">

<td valign="top" width="76"><%=fonte02%>Rua</td>

<td width="153"><%=fonte02%>

<%If IsNull(exe("edificio")) then Response.Write "--" Else Response.Write exe("edificio") End If%>

</td>

</tr>

<tr bgcolor="<%=td_color01%>">

<td valign="top" width="233"><%=fonte02%>Endere&ccedil;o</td>

<td width="233"><%=fonte02%><%=exe("endereco")%></td>

</tr>

<tr bgcolor="<%=td_color02%>">

<td><%=fonte02%>Tipo de neg&oacute;cio</td>

<td><%=fonte02%><%=exe("tipo")%></td>

</tr>

<!--<tr bgcolor="<%'=td_color01%>">

<td valign="top" width="76"><%'=fonte02%>Andar</td>

<td width="153"><%'=fonte02%>

<%'If IsNull(exe("andar")) then Response.Write "--" Else Response.Write exe("andar") End If%>

</td>

</tr>

<tr bgcolor="<%'=td_color02%>">

<td valign="top" width="76"><%'=fonte02%>Apto.</td>

<td width="153"><%'=fonte02%>

<%'If IsNull(exe("apto")) then Response.Write "--" Else Response.Write exe("apto") End If%>

</td>

</tr>-->

</table>

</td>

<td width="232"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=table_color%>">

<tr>

<td align="center" bgcolor="<%=tit_fundo%>"><%=fonte04

%>Fotos</td>

</tr>

<tr>

<td valign="top">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc1")) Then Response.Write fonte02 & "Não possui foto." Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto1")&"')" & Chr(34) & ">"&exe("desc1")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc2")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto2")&"')" & Chr(34) & ">"&exe("desc2")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc3")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto3")&"')" & Chr(34) & ">"&exe("desc3")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc4")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto4")&"')" & Chr(34) & ">"&exe("desc4")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc5")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto5")&"')" & Chr(34) & ">"&exe("desc5")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc6")) Then Response.Write fonte02 & "Não possui foto." Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto6")&"')" & Chr(34) & ">"&exe("desc6")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc7")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto7")&"')" & Chr(34) & ">"&exe("desc7")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc8")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto8")&"')" & Chr(34) & ">"&exe("desc8")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc9")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto9")&"')" & Chr(34) & ">"&exe("desc9")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td align="center" bgcolor="<%=td_color02%>"><div align="center"><strong><%=fonte02%>

<%If IsNull(exe("desc10")) Then Response.Write fonte02 & "&nbsp;" Else Response.Write "<a href=" & Chr(34) & "java script:open_window('foto.asp?imovel="&exe("id")&"&foto="&exe("foto10")&"')" & Chr(34) & ">"&exe("desc10")&"</a>" End If%>

</strong> </div></td>

</tr>

<tr>

<td height="19" align="center" bgcolor="<%=td_color02%>"><strong><%=fonte02%>&nbsp;</strong></td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

<tr align="center" valign="top">

<td colspan="2" width="500">&nbsp;</td>

</tr>

<tr align="center" valign="top">

<td colspan="2" width="500"><table width="265" border="0" cellspacing="0" cellpadding="0" height="118">

<form name="indique" method="post" action="posindique.asp?categoria=<%=categoria%>&imovel=<%=id%>">

<tr bgcolor="<%=tit_fundo%>">

<td width="263" height="16" colspan="2">

<div align="center" class="style2">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font size="1" color="#FFFFFF" face="Arial">Indique

o im&oacute;vel</font> </div>

</td>

</tr>

<tr>

<td width="125" height="25" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font size="1" face="Arial">Seu

nome</font></p>

</td>

<td width="136" height="16" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font face="Arial" size="2"><input name="f_nome_de" type="text" id="f_nome_de" size="20" style="font-family: Arial; font-size: 11"></font></p>

</td>

</tr>

<tr>

<td width="125" height="25" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font size="1" face="Arial">Nome

do

indicado<span class="style9">:</span></font></p>

</td>

<td width="136" height="16" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font size="1" face="Arial"><input name="f_nome" type="text" id="f_nome" size="20" style="font-family: Arial; font-size: 11"></font></p>

</td>

</tr>

<tr>

<td width="125" height="25" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font size="1" face="Arial">E-mail

do

indicado<span class="style9">: </span></font></p>

</td>

<td width="136" height="16" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font size="1" face="Arial"><input name="f_email" type="text" id="f_email" size="20" style="font-family: Arial; font-size: 11"></font></p>

</td>

</tr>

<tr>

<td colspan="2" width="263" height="27" bgcolor="#EBEBEB" style="font-family: Arial; font-size: 11"><div align="center">

<p style="word-spacing: 0; line-height: 100%; margin-top: 0; margin-bottom: 0"><font face="Arial" size="1">

<input type="submit" name="Submit" value="Enviar" style="font-family: Arial; font-size: 8 pt">

</font>

</div>

</td>

</tr>

</form>

</table>

</td>

</tr>

<tr align="center" valign="top">

<td colspan="2" width="500">&nbsp;</td>

</tr>

<tr align="center" valign="top">

<td colspan="2" width="500"><%=fonte01%><a href="java script:window.history.go(-1)">Voltar</a></td>

</tr>

</table>

</td>

</tr>

</table>

</td>

<td width="154" valign="top" bgcolor="#EAEAEA">

<!--#include file="includes/menuesq.asp"-->

</td>

</tr>

<tr>

<td width="154" valign="top" bgcolor="#EAEAEA">

<!--#include file="includes/menudir.asp"-->

</td>

</tr>

</table>

</td>

</tr>

<tr>

<td height="50" valign="top"><!--#include file="includes/rodape.asp"--></td>

</tr>

</table>

</body>

<!--#include file="includes/fechabanco.asp"-->

--- Quando Clicamos na descrição da foto abre a foto maior na página foto.asp

Codigo da página foto.asp:

<!--#include file="includes/config.asp"-->

<title>Foto - <%=titulo%></title><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="576" height="432" border="0" cellpadding="0" cellspacing="0" bgcolor="<%=fundo_foto%>">

<tr>

<td align="center" valign="middle"><img src="<%=Request.QueryString("foto")%>"></td>

</tr>

</table>

Gostaria de colocar a paginação nessa página que exibe a foto grande. (foto.asp)

Me ajude ai galera já tentei de um tudo e nada

Compartilhar este post


Link para o post
Compartilhar em outros sites

Amigo,

Dê uma olhada no código abaixo, faz um tempo que fiz mas acho que pode te ajudar...

<%

'Abrindo a Conexão com o Banco

Dim caminho

Dim conexao

caminho = Server.MapPath("produtos.mdb")

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&";"

'Selecionando todos os Produtos da Tabela

Set rsBuscaProdutos = Server.CreateObject("ADODB.Recordset")

strBuscaProdutos = "SELECT * FROM TProdutos ORDER BY Produto_ID"

rsBuscaProdutos.open strBuscaProdutos, conexao, 3, 3

'Definindo o Numero de Paginas com a propriedade "PageSize" do objeto Recordset

rsBuscaProdutos.PageSize = 10

'Criamos as Validações

if rsBuscaProdutos.eof then

Mensagem = "Nenhum Registro Encontrado"

Response.End

else

'Definimos 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"))>rsBuscaProdutos.PageCount then

intpagina = rsBuscaProdutos.PageCount

else

intpagina = Request.QueryString("pagina")

end if

end if

end if

end if

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8">

<title>Tutorial de Paginação</title>

<style>

/*

Criei estas CSSs somente para melhorar o

layout da Tabela de Paginação.

*/

.TProdutos{

border: 1px solid #666666;

margin: 2px 0px 2px 0px;

background: #FFFFFF;

border-collapse:collapse;

width: 800px;

}

.TProdutos td {

border: 0px solid #666666;

border-collapse:collapse;

}

.TProdutos td#Titulo {

border: 0px solid #666666;

font: 7pt Verdana, Arial, Helvetica;

height: 17px;

background: #063d97;

color:#FFFFFF;

}

.TProdutos td#Dados {

border: 1px solid #CCCCCC;

font: 7pt Verdana, Arial, Helvetica;

height: 18px;

background: #EAEFFF;

color: #666666;

}

</style>

</head>

<body>

<table border="0" class="TProdutos">

<tr>

<td width="181" id="Titulo">Produto ID</td>

<td width="208" id="Titulo">Nome</td>

<td width="201" id="Titulo">Tipo</td>

<td width="190" id="Titulo">Categoria</td>

</tr>

<%

'Iniciamos o Loop

rsBuscaProdutos.AbsolutePage = intpagina

intrec = 0

While intrec<rsBuscaProdutos.PageSize and not rsBuscaProdutos.eof

%>

<tr>

<td id="Dados"><%=rsBuscaProdutos("Produto_ID")%></td>

<td id="Dados"><%=rsBuscaProdutos("Produro_Nome")%></td>

<td id="Dados"><%=rsBuscaProdutos("Protudo_Tipo")%></td>

<td id="Dados"><%=rsBuscaProdutos("Produto_Categoria")%></td>

</tr>

<%

rsBuscaProdutos.MoveNext

intrec = intrec + 1

if rsBuscaProdutos.eof then

response.write " "

end if

Wend

%>

<tr>

<td colspan="3" id="Dados"></td>

<td id="Dados">

<%

'Criamos as Validações para a navegação "Anterior" e "Próximo"

if intpagina>1 then

%>

<a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%

end if

if StrComp(intpagina,rsBuscaProdutos.PageCount)<>0 then

%>

<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próximo</a>

<%

end if

rsBuscaProdutos.close

Set rsBuscaProdutos = Nothing

%>

</td>

</tr>

</table>

</body>

</html>

É isso aí, espero ter ajudado...

Danilo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

×
×
  • Criar Novo...