Ir para conteúdo
Fórum Script Brasil
  • 0

Duvida Com Exibição De Registros.

Carlos Rocha

Perguntado por Carlos Rocha,

 Share

Pergunta

Carlos Rocha

Carlos Rocha

Postado
Postado

Tenho uma tabela no Sql Server, que guarda dois registros

Nome e Figura.

Na hora de exibir as figuras na pagina, o que acontece, é que as figuras saem uma debaixo da

outra certo? E se tiverem muitas figuras a pagina ficará muito grande.

O que eu preciso é de um código que permita eu exibir 4 figuras por linha e não apenas 1.

Daí o espaço ocupado na vertical da pagina sera menor.

Eu tenho este código em php, tentei converter pra asp mas como to iniciando em asp, o script num deu certo.

Segue abaixo o script para da uma olhada, se puderem corrigir desde já agradeço.

Carlos Rocha.

Script em Php

<? include("../../global/funcoes.php"); ?>

<table width=100%><tr><td>

<center><b>Clike sobre o nome do cantor ou banda abaixo para ver suas musicas</b></center><p>

<?

$result = mysql_query ("Select * From cifras GROUP BY autor");

$total = mysql_num_rows($result);

$linha = 4; // Numero de imagens por linha

?>

<table width="590" border="1" align="center" topmargin=50 cellpadding="0" cellspacing="0">

<tr>

<?

for($i=0; $i<$total; $i++) {

while(list($id, $titulo, $autor, $texto) = mysql_fetch_row ($result)){

if($linha == $atual) {

echo "</tr><tr>";

$atual = 0;

}

?>

<? echo "<td valign=top width=25%><center><b><i><a href=\"cifras_conteudo_con_autor.php?autor=$autor\">".ucwords($autor)."</a></i></b></center></td>"; ?>

<?

$atual++;

}

}

?>

</tr>

</table>

</td>

</tr>

</table>

Script que tentei converter pro asp. O que saiu errado?

<!--#include file="../../global/funcoes.asp" -->

<table width=100%><tr><td>

<center><b>Clike sobre o nome do cantor ou banda abaixo para ver suas musicas</b></center><p>

<%

strSQl = "SELECT * FROM cifras ORDER BY autor"

Set Rs_cifras = server.createobject("ADODB.Recordset")

Rs_cifras.Open strSQl,Conn , 3, 3

total= Rs_cifras.recordcount

linha = "4" ' Numero de imagens por linha

%>

<table width="590" border="1" align="center" topmargin=50 cellpadding="0" cellspacing="0">

<tr>

<%

'response.write total

for i = 0 to total

Do Until Rs_cifras.EOF = True

if linha = atual then

response.write "</tr><tr>"

atual = 0

end if

%>

<td valign=top width=25%><center><b><i><a href="cifras_conteudo_con_autor.asp?autor=<%=Rs_cifras("autor")%>"><%=Rs_cifras("autor")%></a></i></b></center></td>

<%

Rs_cifras.MoveNext

Loop

next

%>

</tr>

</table>

</td>

</tr>

</table>

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
Developer

Developer

Postado
Postado

tipo... você quer assim:

_______________________________________________________________

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

----------------------|-----------------------|--------------------|--------------------|

________________|________________|______________|_______________|

Assim que você quer que exiba?

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

olha aki um exemplo que exibe 40 registros por pagina com 4 colunas por linha:

<!-- #include file="../include/top.asp" -->
<%
pagina = Request.QueryString("p")
if pagina = "" then
pagina = 1
end if
'Seta a variavel pagina como a página em questão na paginação

registros = 40
'Seta o número de registros por pagina

set RS = Server.Createobject("AdoDB.RecordSet")
set RS.ActiveConnection = conn
RS.cursortype = 3
RS.pagesize = registros

StrSQL = "select * from Items where tipo=""calca"""
RS.Open StrSQL

if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
else
RS.absolutepage = pagina
if RS.EOF then
%><font face="Arial" size="2">Sua pesquisa não retornou nenhum resultado</font><%
fim = -1
end if
xx = 0%>

<table width="776" height="55">
    <tr> 
<%
while NOT RS.EOF AND xx < RS.pagesize
xx = xx + 1
%>


      <td height="86" width="384"> 
        <form method=get action=DETALHES.ASP>
          <table width="26%" height="86" border="0">
            <tr> 
              <td width="30%" height="82" valign="middle"> 
                <div align="center"><img src="http://www.dynamus.economicojp.com/produtos/shop/uploads/<%=rs("ImageDesc")%>" width="75" height="130" border="0"></div>
              </td>
              <td width="70%" height="82"> 
                  <table width="195" border="1" align="left" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF">
                    <tr> 
                      <td bgcolor="#FFFFFF" height="10" width="187"><span class="style16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=rs("ItemName")%></font></span></td>
                    </tr>
                    <tr> 
                      <td bgcolor="#ffffff" height="18" width="187"> 
                        <p align="LEFT" class="style17"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><span class="style20"><strong><span class="style19"> 
                          <input type="HIDDEN" name="NOME" value="<%=rs("ItemName")%>">
                          <input type="HIDDEN" name="desc" value="<%=rs("Itemdesc")%>">
                          <input type="HIDDEN" name="image" value="<%=rs("ImageDesc")%>">
                          <input type="HIDDEN" name="color" value="<%=rs("cores")%>">
                          <input type="HIDDEN" name="tamam" value="<%=rs("tamanho")%>">
                          <input type="HIDDEN" name="refe" value="<%=rs("ref")%>">
                          <input type="submit" name="Submit" value="Ver Detalhes">
                          </span></strong></span> </font>
                      </td>
                    </tr>
                  </table>
              </td>
            </tr>
          </table>
        </form>
      </td>
    
<%
if xx mod 4 = 0 then%>
  </tr></table><table width="776" height="55">
    <tr>
<%end if%>
  
rs.movenext
rs.cachesize = 1
wend %>
</table>
<%end if

if fim = "" then

anterior = pagina - 1
proxima = pagina + 1

if anterior <> 0 then
%><%

end if

RS.Close
Conn.Close

%><a href="<%=request.servervariables("script_name")%>?p=<%=anterior%>">Página Anterior</a> - <%
end if

%><a href="<%=request.servervariables("script_name")%>?p=<%=proxima%>">Próxima Página</a>

Fonte: Vide tópico, só adaptei de 2 para 4 colunas

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

É.

Tipo

imagem1  imagem2  imagem3  imagem4

imagem5  imagem6  imagem7  imagem8 

imagem9  imagem8  imagem9  ...etc..

vou te passar a lógica:

response.write "<table><tr>"
x=0
Do while not RecordSet.Eof
   x=x+1
   response.write "<td>"
   response.write Recordset("imagem")
   response.write "</td>"
   if x mod 4 = 0 then
      response.write "</tr><tr>"
   end if
   RecordSet.MoveNext
loop
response.write "<tr></table>"

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado

tenta deixar seu código assim:

<!--#include file="../../global/funcoes.asp" -->
<table width=100%><tr><td>
<center><b>Clike sobre o nome do cantor ou banda abaixo para ver suas musicas</b></center><p>
<%
strSQl = "SELECT * FROM cifras ORDER BY autor"
Set Rs_cifras = server.createobject("ADODB.Recordset")
Rs_cifras.Open strSQl,Conn , 3, 3
total= Rs_cifras.recordcount
linha = "4" ' Numero de imagens por linha
%>
<table width="590" border="1" align="center" topmargin=50 cellpadding="0" cellspacing="0"> 
<tr>
<%
'response.write total
x=0
Do While not Rs_cifras.EOF 
  x=x+1
%>

  <td valign=top width=25%><center><b><i><a href="cifras_conteudo_con_autor.asp?autor=<%=Rs_cifras("autor")%>"><%=Rs_cifras("autor")%></a></i></b></center></td>
<%
  if x mod 4 = 0 then
     response.write "</tr><tr>"
  end if
  Rs_cifras.MoveNext 
Loop 
%>
</tr>
</table>
</td>
</tr>
</table>

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado
Num querendo encomodar mais enmcomodando.

no php,

ucwords (string), converte os primeiros caracteres de strings em maiúsculo.

nl2br (string) - Exibe o texto do bd com a formatação.

e no asp, quais seriam?

Quanto ao ucwords() no asp não existe uma função correspondente, voce tem que fazer na marra, pois ele só converte toda a string, entaum teria q fazer assim:

response.write Ucase(left(string,1))&lcase(mid(string,2,len(string)-1))

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...