Jump to content


Photo

Botao Anterior


  • Faça o login para participar
7 replies to this topic

#1 Reluviari

Reluviari

    Normal

  • Usuários
  • 78 posts
  • Sexo:Não informado

Posted 17/09/2003, 17:46

e ai galera


se eu estiver no 1º registro nao pode aparecer o botao de anterioralguém pode me ajudar ???

estou usando recordeset para fazer essa paginação

obrigado galera!!

#2 camarão

camarão
  • Visitantes

Posted 17/09/2003, 18:35

q tal postar o seu codigo para q possamos incrementar a ele?!

#3 KBR

KBR

    kl3b3r

  • Usuários
  • 392 posts
  • Sexo:Não informado
  • Localidade:Mauá - SP
  • Interesses:ASP // DESENVOLVIMENTO WEB // MYSQL // ACCESS // FLASH // FIREWORKS // DREAMWEAVER // REDES

Posted 17/09/2003, 18:39

Talvez seja de paginação né?!?

Se for faça o seguinte...

if pag>1 then
' seu link de "anterior"
else
end if

Qualquer dúvida... ;)

#4 Nicholas Pufal

Nicholas Pufal

    Impossível: só existe até alguém duvidar e provar o contrário.

  • Usuários
  • 1655 posts
  • Sexo:Masculino
  • Localidade:Porto Alegre

Posted 17/09/2003, 20:56

Simples..

É só usar algo como:

<% if rs.pagecount =< 1 then
proxima = 'comando..
else
prox = 'comando..
anterior = 'comando..
end if


[]'s
BLOG Touché Criação - Vamos trocar idéias? -> http://blog.touchecriacao.com.br/
// Links úteis: Busca || Regras
// Não respondo dúvidas via mensagem privada. Use o fórum para buscar ou perguntar.

#5 knoxville

knoxville

    Backdoor Man

  • Usuários
  • 951 posts
  • Sexo:Masculino
  • Localidade:Itajaí - SC

Posted 18/09/2003, 08:26

podem me ensinar ou indicar um artigo, seilah... q ensine basicamente como é que faz paginação? vlw! :P

#6 Reluviari

Reluviari

    Normal

  • Usuários
  • 78 posts
  • Sexo:Não informado

Posted 18/09/2003, 09:17

e ai camarão

como vc me disse o codigo é esse mais quero aprender como se faz também blzzz

obrigadom pela ajuda caras...


<%

id=request.QueryString("cliente")
RS = ""

Set RS = Server.CreateObject("adodb.recordset")



RS.PageSize = 1


SQL = "select * From Clientesender where cliente = '"& id &"' "

RS.Open SQL,Conn,3,3

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

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF



set RS2 = conn.execute("select * From TiposEndereco where TipoEndereco = ' "& RS("TipoEndereco") &" '")

%>


<body>

<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">

AQUI FICAM AS TABELAS ONDE MOSTRO OS DADOS

</DIV>

</BODY>
.................................AQUIE ESTAO OS BOTOES..........................

<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>">Anterior</a> -

<a class="link" href="enderecos.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima</a>


<%

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
%>
<%
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
%>
<%
END IF
%>

#7 Reluviari

Reluviari

    Normal

  • Usuários
  • 78 posts
  • Sexo:Não informado

Posted 18/09/2003, 10:42

valeu cara era isso mesmo Foi um vacilo da minha parte não visualizar onde eu colocaria isso mais Obrigado mesmo cara

Eis aki o código completo(caso alguém tenha dúvida também)

<%

id=request.QueryString("cliente")
RS = ""

Set RS = Server.CreateObject("adodb.recordset")



RS.PageSize = 1


SQL = "select * From Clientesfone where cliente = '"& id &"' "

RS.Open SQL,Conn,3,3

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

RS.AbsolutePage=intpagina

intrec=0

While intrec < RS.PageSize and not RS.EOF



set RS2 = conn.execute("select * From Tipostelefone where Tipotelefone = ' "& RS("Tipotelefone") &" '")

%>
<LINK href="css/style.css" type=text/css rel=stylesheet>

<div id="Layer1" style="position:absolute; left:150px; top:114px; height:px; z-index:5">

<table width="98%">

<tr>
<td>
<a href="dadosgerais.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_dados.gif" border="0"></a>&nbsp;
<a href="enderecos.asp?cliente=<%=request.QueryString("cliente")%>" class="Links"><img src="imagens/aba_enderecos.gif" border="0"></a>&nbsp;
</td>

<td width="17%" align="right">
<a href="java script:history.go(-1)"><img src="imagens/aba_voltar.gif" border="0"></a>
</td>

</tr>
</table>

<table width="98%">

<tr>
<td align="center" bgcolor="#336699" height="16"><font color="#EFFF00" size="2" face="Verdana"><b>Telefones</b></font></td>
</tr>

</table>


<table width="98%">

<tr class="label">
<td>Tipo de Telefone</td>
</tr>

<tr class="dados">

<%do while not RS2.eof%>
<td>
<%response.write RS2("descricao")%>
</td>
</tr>
<%RS2.movenext
loop%>

</table>

<table width="98%">

<tr class="label">
<td>Ddd</td>
<td>Telefone</td>
<td>Ramal</td>
</tr>

<tr class="dados">
<td><%response.write RS("ddd")%></td>
<td><%response.write RS("telefone")%></td>
<td><%response.write RS("ramal")%></td>
</tr>
</table>

<table width="98%">

<tr class="label">
<td>Contato</td>
</tr>

<tr class="dados">
<td><%response.write RS("contato")%></td>
</tr>



<tr>

<td align="center">
</table>

</div>
</body>


<%

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
%>
<div id="Layer1" style="position:absolute; left:45%; top:280px; height:px; z-index:5">

<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina-1%>"><< Anterior</a>
</div>

<%
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
%>

<div id="Layer1" style="position:absolute; left:55%; top:280px; height:px; z-index:5">

<a class="linkmenuglobal" href="fones.asp?cliente=<%=request.querystring("cliente")%>&pagina=<%=intpagina + 1%>">Próxima >></a>
</div>

<%
END IF
%>

#8 knoxville

knoxville

    Backdoor Man

  • Usuários
  • 951 posts
  • Sexo:Masculino
  • Localidade:Itajaí - SC

Posted 18/09/2003, 11:47

legal Reluviari... isso pode ajudar muitos users! :) (inclusive eu.. sduhfshdua) em casa vou pegar esse código pra estudar paginação, apesar de jah ter achado um artigo ótimo, mas... enfim. seilah.. sdhuhfuda flwz!




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq