Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

fevalini

Galeria com Array preenchida com dados do db

Por , em ASP Clássico

Recommended Posts

fevalini    0

fevalini
Postado

Olá pessoal, boa tarde.

Gostaria de uma ajuda dos programadores de plantão.

 

Talvez meu problema seja simples de resolver mas por enquanto minha capacidade técnica em se tratando de asp é pouca.

 

Vamos lá. Tenho um slideshow ótimo. Sempre uso em meus projetos.

Mas desta vez necessito trazer as informações de uma tabela no bd.

 

Está ai minha dúvida como trazer essas informações e preencher o array com elas.

 

Agradeço imensamente quem puder me ajudar.

 

 

segue o código já com o recordset que utilizo.

 

 

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conexao.asp" -->
<%
Dim atletas
Dim atletas_cmd
Dim atletas_numRows

Set atletas_cmd = Server.CreateObject ("ADODB.Command")
atletas_cmd.ActiveConnection = MM_bdados_STRING
atletas_cmd.CommandText = "SELECT id, apelido, posicao, imagem FROM atletas" 
atletas_cmd.Prepared = true

Set atletas = atletas_cmd.Execute
atletas_numRows = 0
%>

<html>

<head>


<style>
.Caption {
font-family: Arial;
font-weight: bold;
color:      #123456;
}
body {
	background-color: #000000;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
</style>

<script>


// Set the slideshow speed (in milliseconds)
var SlideShowSpeed = 3000;

// Set the duration of crossfade (in seconds)
var CrossFadeDuration = 3;

var Picture = new Array();
var Caption = new Array(); 
var Position = new Array();

// Specify the image files...

Picture[1]  = 'atletas/marcelo.gif';
Picture[2]  = 'atletas/robson.gif';


// Specify the Captions...

Caption[1]  = "Marcelo";
Caption[2]  = "Robson";


Position[1]  = "Goleiro";
Position[2]  = "Zagueiro";


var tss;
var iss;
var jss = 1;
var pss = Picture.length-1;

var preLoad = new Array();
for (iss = 1; iss < pss+1; iss++){
preLoad[iss] = new Image();
preLoad[iss].src = Picture[iss];}

function runSlideShow(){
if (document.all){
document.images.PictureBox.style.filter="blendTrans(duration=2)";
document.images.PictureBox.style.filter="blendTrans(duration=CrossFadeDuration)";
document.images.PictureBox.filters.blendTrans.Apply();}
document.images.PictureBox.src = preLoad[jss].src;
if (document.getElementById) document.getElementById("CaptionBox").innerHTML= Caption[jss];
if (document.getElementById) document.getElementById("PositionBox").innerHTML= Position[jss];
if (document.all) document.images.PictureBox.filters.blendTrans.Play();
jss = jss + 1;
if (jss > (pss)) jss=1;
tss = setTimeout('runSlideShow()', SlideShowSpeed);
}

</script>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>


<body onload=runSlideShow()>



<table border=0 align="center" cellpadding=0 cellspacing=0>
  <tr>
    
    <td width=150 height=152>
    <img src=atletas/fundo.gif name=PictureBox width=150 height=152>    </td>
  </tr>
  <tr>
    
    <td id=CaptionBox class=Caption align=center bgcolor=#fedcba>.    </td>
  </tr>
  <tr>
    <td id=PositionBox class=Caption align=center bgcolor=#fedcba> </td>
  </tr>
</table>

</body>

</html>
<%
atletas.Close()
Set atletas = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existem exemplos de galeria no lab. de script, pode te ajudar

olha este exemplo:

 

[CODE]<%
' Descrevendo caminho do seu banco de dados
strCon = "DBQ=c:\inetpub\wwwroot\img\bd\BD.mdb;Driver={Microsoft Access Driver (*.mdb)};"

' Abrindo conexão e record set para chamar informações da Tabela com o nome das fotos.
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 0
objRS.LockType = 1
strSQL = "SELECT * FROM TB_FOTOS"
objRS.Open strSQL, strCon
%>
<html>
<head>
<title>Mostrando Imagens</title>
<%
'Chamando arquivos para CSS e javascript para utilização do script.
%>
<link rel="stylesheet" href="css/lightbox.css" type="text/css" media="screen" /> 
<script src="js/prototype.js" type="text/javascript"></script>
<script src="js/scriptaculous.js?load=effects" type="text/javascript"></script>
<script src="js/lightbox.js" type="text/javascript"></script>
<style type="text/css">
.texto {
 font-family: Verdana;
 font-size: 10px;
 color: #000000;
}
</style>
</head>
<body scroll="auto">
<table width="265" border="0" align="center" cellpadding="15" cellspacing="1" bgcolor="#D4D0C8">
  <tr>
    <td align="center" bgcolor="#F7F5F4"><span class="texto"><strong>Galeria de Imagens</strong></span></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#FDFDFD"><table width="0" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FAF9F8">
      <tr></tr>
      <tr>
<% 
'Iniciando variável contador e loop para exibir em colunas
i = 1 
Do While Not objRS.EOF 
%>
        <td align="center" bgcolor="#D4D0C8" class="texto"><a href="fotos/<%=objRS("foto")%>" rel="lightbox[roadtrip]"><img src="fotos/<%=objRS("foto")%>" border="0" width="100"height="80"></a></td>
        <%
'Define quantidade de colunas
If i = 2 Then 
i = 0 
Response.Write "</TR><TR>" 
End If 
i = i + 1 
objRS.MoveNext 
Loop 
%>
      </tr>
      <tr></tr>
    </table></td>
  </tr>
  <tr>
    <td align="center" bgcolor="#F7F5F4"><span class="texto"><strong>Desenvolvido por</strong>: 
Alexandre de Luccia </span></td>
  </tr>
</table>
</body>
</html>
<%
objRS.close
%>[/CODE]

Compartilhar este post

Link para o post
Compartilhar em outros sites

fevalini    0

fevalini
Postado

Obrigado meu amigo por tentar ajudar...

Mas esse ainda não é solução para meu problema.

Oq necessito realmente é implementar ao meu script

um array preenchido com os dados do bd.

 

Está ai minha dúvida como carregar o array do meu código

com dados vindos do bd.

 

Fico no aguardo. E agradeço muito pela colaboração.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado 

<%

"A conexão é feita normalmente

Set DBConnection = Server.CreateObject("adodb.connection")

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "

DSN = DSN & "DBQ=" & Server.Mappath("pasta/database.mdb")

DSN = DSN & ";PWD=senha"

DBConnection.Open DSN

 

Response.Write "Base de Dados aberta <br>"

 

"Criara uma Query

SQL = "Select * From Customers Where Country = "Mexico""

"Pega o Record Set

Set RS = DBConnection.Execute(SQL)

 

Select Case RS.eof

Case False

RSArray = RS.getrows

"RSArray(Field, Record)

Numero_de_Campos = Cdbl(UBound(RSArray, 1))

Numero_de_Registros = Cdbl(UBound(RSArray, 2))%>

<table border="1" width="300">

<%For R = 0 to Numero_de_Registros

Response.Write "<tr>"

For F = 0 to Numero_de_Campos

Response.Write "<td> " & RSArray(F, R) & "</td> "

Next

Response.Write "</tr>"

Next

Response.Write "</table>"

Case True

Response.Write "Não há registros!"

End Select

 

"Agora destruiremos o recordset (RS)

Set RS = Nothing

Response.Write "<br>Base de dados fechada <br>"

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito