Paginação

Super_Zica_Man · Fevereiro 3, 2006

Editando.....

Peguei um outro scrip no imasters deu meiu q certu mas abre todo banco de dados queria q abrisse so o com o id selecionado....

E q abrisse dentru da tabela q já existe...

bareta · Fevereiro 6, 2006

é so modificar o select ..... e p-ra encaixar na table... ache o loop e ajuste-o

crucifier · Fevereiro 6, 2006

se voce não souber como...posta o codigo que nós ajudamos

Super_Zica_Man · Fevereiro 6, 2006

Codigo da seção produtos...

http://rapidshare.de/files/12686251/produtos.asp.html

bareta · Fevereiro 6, 2006

eu ia edita seu tópico e acabei respondendo no seu post.... ve ali se melhorou

Super_Zica_Man · Fevereiro 7, 2006

bareta coloca aki de novo eu não vi q tu tinha editado pesei q tinha dado pau no peu post dai coloqquei o link e apaguei aquilo dpois vi teu post desculpa ai

Super_Zica_Man · Fevereiro 7, 2006

Estava fuçando no codigo e fiz algo pelo menos....Nos produtos deu certo ate so tem um problema quando vai em proxima pagina o banco de dados inteiro não so a seçao..

Codigo produtos.asp
[CODE]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
td img {display: block;}
.style1 {font-size: 9px}
.style3 {font-size: 12px}
</style>

</head>



</form>

<body>
<table width="100%" height="100%" align="center">
<tr>
<td align="center" valign="center" border="0">

<table width="760px" height="540px"><tr><td>

<table bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" width="799">
  <!-- fwtable fwsrc="topo com site.png" fwbase="site.gif" fwstyle="Dreamweaver" fwdocid = "156370661" fwnested="0" -->
  <tr>
    <td><img src="Imagens/spacer.gif" width="118" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="168" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="68" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="104" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="54" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="161" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="55" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="58" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="13" height="1" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="1" border="0" alt="" /></td>
  </tr>
  <tr>
    <td rowspan="2" colspan="2"><img name="metade_banner" src="Imagens/metade_banner.gif" width="286" height="129" border="0" id="metade_banner" alt="" /></td>
    <td colspan="7"><img name="metade_banner_2" src="Imagens/metade_banner_2.gif" width="513" height="120" border="0" id="metade_banner_2" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="120" border="0" alt="" /></td>
  </tr>
  <tr>
    <td rowspan="2"><a href="default.asp"><img name="topo_home" src="Imagens/topo_home.gif" width="68" height="19" border="0" id="topo_home" alt="" /></a></td>
    <td rowspan="2"><a href="cadastro.asp"><img name="topo_cad" src="Imagens/topo_cad.gif" width="104" height="19" border="0" id="topo_cad" alt="" /></a></td>
    <td rowspan="2"><a href="login.asp"><img name="topo_log" src="Imagens/topo_log.gif" width="54" height="19" border="0" id="topo_log" alt="" /></a></td>
    <td rowspan="2"><a href="carrinho.asp"><img name="topo_car" src="Imagens/topo_car.gif" width="161" height="19" border="0" id="topo_car" alt="" /></a></td>
    <td rowspan="2"><a href="ajuda.asp"><img name="topo_ajd" src="Imagens/topo_ajd.gif" width="55" height="19" border="0" id="topo_ajd" alt="" /></a></td>
    <td rowspan="2"><a href="mailto:caui@cauirs.com.br"><img name="topo_email" src="Imagens/topo_e-mail.gif" width="58" height="19" border="0" id="topo_email" alt="" /></a></td>
    <td><img name="complemento_banner" src="Imagens/complemento_banner.gif" width="13" height="9" border="0" id="complemento_banner" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="9" border="0" alt="" /></td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#ffffff"><img src="Imagens/spacer.gif" width="286" height="10" border="0" alt="" /></td>
    <td rowspan="19" bgcolor="#ffffff"><img src="Imagens/spacer.gif" width="13" height="590" border="0" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="10" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><img name="menu_sob" src="Imagens/menu_sob.gif" width="118" height="22" border="0" id="menu_sob" alt="" /></td>
    <td rowspan="18" colspan="7" bgcolor="#ffffff"><p align="center" class="style1"><a href="busca.asp"></a>
       <iframe src="busca.asp" name="busca" width="608" height="100" scrolling="no"></iframe></p>
   
<% 
dim c1,r1,count
dim Conn
dim RS
Const intPageSize=20 'Tamanho da página - você pode alterar se quiser
dim intCurrPage
dim a 
set rs=server.CreateObject("adodb.recordset")
set c1=server.createObject("adodb.connection")
set r1=server.createObject("adodb.recordset")

c1.CursorLocation=3 'AdUseClient

'Na linha acima, definimos que o cursor do banco de dados
'Deve estar no cliente. Com isso, podemos usar as propriedades
'de paginação.

 c1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(".") & "\Dados\Dados.mdb;" 
  set r1=c1.execute("select * from produtos where ID  like '%" & request.querystring("produtos") & "%'  ")


intCurrPage=cint(Request.QueryString("CurrPage"))
'Pega a próxima página (que foi chamada através dos links definidos mais abaixo)

if intCurrPage=0 then intCurrPage=1
'Se chamamos essa página na primeira vez 
'definimos que a página atual será a página 1
'Caso contrário, é usado o valor que foi retornado
'pela QueryString
r1.PageSize=intPageSize

r1.AbsolutePage=intCurrPage 

'No Loop abaixo, contamos de 1 até o Tamanho da página
'(no nosso caso, 3).
'O registro 1 é o primeiro registro da página atual,
'e não o do recordset

a=0 
while a < intPageSize and not r1.EOF
a=a+1

Response.Write r1.Fields("PRODUTO").Value & "<BR>" 
r1.MoveNext 
wend

Response.Write "<BR>"
for a = 1 to r1.PageCount
if a <> intCurrPage then 
'Se "a" for diferente da página atual,
'Mostramos um link para a página(com o valor de a)
Response.Write "<a href=""produtos.asp?Currpage=" & a & """>" & a & "</a>&nbsp;"
else
Response.Write a & "&nbsp;"
end if
next
Response.Write "<BR>"
if intCurrPage > 1 then
'Caso exista uma próxima página...
Response.Write "<a href=""produtos.asp?Currpage=" & intCurrPage-1 & """>Página Anterior</a>"
end if
Response.Write "&nbsp;"
if intCurrPage < r1.PageCount then
'Caso exista uma página anterior...
Response.Write "<a href=""produtos.asp?Currpage=" & intCurrPage+1 & """>Próxima Página</a>"
end if


%> 
<td><img src="Imagens/spacer.gif" width="1" height="22" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="default.asp"><img name="menu_home" src="Imagens/menu_home.gif" width="118" height="19" border="0" id="menu_home" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="19" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="empresa.asp"><img name="menu_emp" src="Imagens/menu_emp.gif" width="118" height="21" border="0" id="menu_emp" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="21" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="sistemas.asp"><img name="menu_sist" src="Imagens/menu_sist.gif" width="118" height="31" border="0" id="menu_sist" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="31" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><img name="menu_prod" src="Imagens/menu_prod.gif" width="118" height="36" border="0" id="menu_prod" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="36" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=A"><img name="menu_acessorios" src="Imagens/menu_acessorios.gif" width="118" height="19" border="0" id="menu_acessorios" alt="" /></a></td>
    <td><img src="\Imagens\spacer.gif" width="1" height="19" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=b"><img name="menu_energia" src="Imagens/menu_energia.gif" width="118" height="20" border="0" id="menu_energia" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="20" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=c"><img name="menu_hd" src="Imagens/menu_hd.gif" width="118" height="20" border="0" id="menu_hd" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="20" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=d"><img name="menu_impressora" src="Imagens/menu_impressora.gif" width="118" height="21" border="0" id="menu_impressora" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="21" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=e"><img name="menu_memoria" src="Imagens/menu_memoria.gif" width="118" height="19" border="0" id="menu_memoria" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="19" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=f"><img name="menu_midia" src="Imagens/menu_midia.gif" width="118" height="20" border="0" id="menu_midia" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="20" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=g"><img name="menu_plmae" src="Imagens/menu_pl.mae.gif" width="118" height="21" border="0" id="menu_plmae" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="21" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=h"><img name="menu_processador" src="Imagens/menu_processador.gif" width="118" height="22" border="0" id="menu_processador" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="22" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="produtos.asp?produtos=i"><img name="menu_plvideo" src="Imagens/menu_pl.video.gif" width="118" height="30" border="0" id="menu_plvideo" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="30" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><img name="menu_suporte" src="Imagens/menu_suporte.gif" width="118" height="33" border="0" id="menu_suporte" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="33" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="ajuda.asp"><img name="menu_ajuda" src="Imagens/menu_ajuda.gif" width="118" height="19" border="0" id="menu_ajuda" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="19" border="0" alt="" /></td>
  </tr>
  <tr>
    <td><a href="mailto:caui@cauirs.com.br"><img name="menu_contato" src="Imagens/menu_contato.gif" width="118" height="32" border="0" id="menu_contato" alt="" /></a></td>
    <td><img src="Imagens/spacer.gif" width="1" height="32" border="0" alt="" /></td>
  </tr>
  <tr>
    <td bgcolor="#ffffff"><img src="Imagens/spacer.gif" width="118" height="175" border="0" alt="" /></td>
    <td><img src="spacer.gif" width="1" height="175" border="0" alt="" /></td>
  </tr>
  <tr>
    <td colspan="9"><img name="rodape.gif" src="Imagens/rodape.gif" width="799" height="81" border="0" id="rodape" alt="" /></td>
    <td><img src="Imagens/spacer.gif" width="1" height="81" border="0" alt="" /></td>
  </tr>
</table>
</td></tr></table>

</td>
</tr>
</table>
</body>
</html>

E outra coisa gostaria de colocar os produtos,preço,marca dentro dessa tabela...

<table width="600" border="1" align="center" cellspacing="1" bordercolor="#808000">
<tr>
            <th width="278" style="background-color: #cccccc" bordercolor="#CCCCCC" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Produto</i></font></strong></th>
            <th width="83" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Marca</i></font></strong></th>
            <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Preço</i></font></strong></th>
            
            <th width="93" style="background-color: #cccccc" bordercolor="#cccccc" bordercolorlight="#808000" bordercolordark="#cccccc"><strong><font face="Tahoma" size="2"><i>Comprar</i></font></strong></th>
</tr>
<tr> 

<%
	Do While Not   r1.eof 
  %>


          
<th width="400" style="background-color: "#FFFFFF"  bordercolor="#000066" bordercolorlight="#808000" bordercolordark="#cccccc">  <span class="style3"><%= r1.Fields("PRODUTO")%></a></th></span></td>
            <th width="83" style="background-color: "#cccccc"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"> <span class="style3"><%= r1.Fields("MARCA")%></th></span></td>
            <th width="93" style="background-color: "#FFFFFF"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF" > <span class="style3"> R$ <%= formatNumber(r1.Fields("preço").Value,2) %></th></span></td>
      <th width="93" style="background-color: "#FFFFFF"  bordercolor="#FFFF00" bordercolorlight="#808000" bordercolordark="#FFFFFF"><a href="detalhes.asp?id=<%=r1("id") %>">        <input type="image" src="Imagens/carrinho.jpg" ONclick= "window.open('detalhes.asp?id=<%=r1("id")%>','principal')" >       </th>
</tr>
       <% r1.MoveNext
     count=count+1 
	Loop%>
	<% r1.close
	c1.close
	set r1=nothing
	set c1=nothing %>
</table>

Entrar

Paginação

Pergunta

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

crucifier

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

Super_Zica_Man

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades