Ir para conteúdo

Arquivado

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

celi

Galeria de fotos

Por , em ASP Clássico

Recommended Posts

celi    0

celi
Postado

Pessoal, preciso de uma ajuda de vcs. Queria saber como posso montar uma galeria de fotos, preciso começar do zero. Se possivel os nomes dos dados a serem inseridos no bd.

Tipo:

 

Criar galeria

Postar as fotos em determinada galeria. Alguem pode ajudar?!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Acho que o basico seria:

id

nome (da foto)

autor (ou quem postou)

data

hora

tamanho (pode ser uma possibilidade, depende do propósito)

 

Se quiser separar por temas, pode colocar também um campo tema e uma tabela com id, nome (do tema) para ficar mais fácil as filtragens.

 

Terá de fazer uma área de exibição das galerias que podem ser ordenadas por data, hora, autor, tema, nome, etc... e uma área para upload (que se tiver login/senha será melhor, pois poderá identificar aqueles que não cumpriram as regras de uso)

 

É bom colocar regras de uso, seja limitando o tamanho do arquivo ou o conteudo postado, senão poderá ter problemas mais a frente, seja com conteudos de outro autor/ inapropriados, seja com espaço de armazenamento no host.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma pesquisada no fórum que coloquei alguns ótimos exemplos de galeria (thumbsnail)

Compartilhar este post

Link para o post
Compartilhar em outros sites

celi    0

celi
Postado

Respondendo ao xanburzum: já até procurei, porém não consegui entender as coisas que vi.

 

Ao Vinicius: como posso saber que determinida foto, pertence ao determinado evento?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

existem galerias muito boas feitas em JQuery

Compartilhar este post

Link para o post
Compartilhar em outros sites

celi    0

celi
Postado

No caso do bd eu teria que fazer tipo duas tabelas? Mais ou menos assim:

 

Tabela galeria

id

evento

autor

data

hora

 

Tabela fotos:

id

 

Veja se estou correto, eu cadastro um evento cujo id = 1. Quando for inserir as fotos na tabela fotos teria que tipo inserir cinco fotos no id = 1. Seria isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Pode ser sim, relacionando a foto com o evento da forma que fez no ultimo post, porem precisa colocar também o nome da foto.

 

Usar o fso também é uma possibilidade, pode-se criar uma pasta para cada evento no momento que um novo evento é cadastrado, assim as fotos relacionadas a esse evento ficam numa pasta própria, deixando mais organizado e mais facil de fazer outras coisas como zipar todas as fotos do evento y para mandar para alguem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

olha este exemplo em jquery

 

e aqui uma simples galeria

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
' Este arquivo deve estar no diretório que contenham subdiretorios com as imagens a serem exibidas ´só imagens(jpg, gif).
' Você pode criar um arquivo texto chamado imagens.txt para cada pasta
' sendo que o titulo de cada linha irá ser exibido na pagina
' defina o tamanho da borda para um valor maior que zero se quiser bordar ao redor da imagem
tamanho_borda = "5"
cor_borda = "aqua"
%>
<html>
<head>
<title>Galeria de Imagens</title>

<!--define o estilo a ser aplicado na página	-->
<style type="text/css">
	body {
	font-family: verdana;
	text-align: center;
		}
</style>

</head>
<a name="top"></a>
<h2>Galeria de Imagens</h2>
<body>
<%
'define as constantes usadas pelo objeto FileSystemObject usadas  no projeto
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

'recebe o diretório da requisição como 'f'
diretorio = request.querystring("f")

if diretorio = "" then

	pastaEspecifica = server.mappath(".")

	Set arquivoSistema = CreateObject("Scripting.FileSystemObject") 
	Set exemplo = arquivoSistema.GetFolder(pastaEspecifica) 
	Set colecaoPastas = exemplo.SubFolders

	For Each subPastas in colecaoPastas
		tamanhoPasta = left((subPastas.size/1000000), 3)
	    listaPasta = listaPasta & "<a href='?f=" & subPastas.name & "'><strong title='view'>»</strong> " & subPastas.Name & " </a><small> (" & tamanhoPasta & " MB)</small>" & vbcrlf
	    listaPasta = listaPasta & "<BR>"  
	Next

	set arquivoSistema = nothing
	Response.Write listaPasta

else

caminhoArquivo = server.mappath(".") & "\" & diretorio
tituloArquivo = caminhoArquivo & "\imagens.txt"

Set arquivoSistema = CreateObject("Scripting.FileSystemObject")

Dim Vetor()

	If arquivoSistema.FileExists(tituloArquivo) then
		set file = arquivoSistema.GetFile(tituloArquivo)
		Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)
		contaTitulo = 0

		Do While Not TextStream.AtEndOfStream
			Linha = TextStream.readline
			ReDim Preserve Vetor(contaTitulo)
			Vetor(contaTitulo) = Linha
			'response.write contaTitulo & " " & Vetor(contaTitulo) & "<br>"
			contaTitulo = contaTitulo + 1
			'Response.write Linha
		Loop

		textStream.close

	end if

	Set exemplo = arquivoSistema.GetFolder(caminhoArquivo) 
	Set colecaoArquivos = exemplo.Files
	contaArquivo = 0
	
	For Each file in colecaoArquivos
	
		Ext = UCase(Right(File.Path, 3)) 
	
		If Ext = "JPG" OR Ext = "GIF" Then
	        on error resume next
	    	dados = Vetor(contaArquivo)
		    on error goto 0
		    caminhoReferencia = diretorio & "/" & file.name
		    caminhoImagem = "<strong>" & dados & "</strong><br><a href='" & caminhoReferencia & "' title='Galeria de Imagens' border=0><img src='" & caminhoReferencia & "' border='" & tamanho_borda & "' title=""" & dados & """ style='border-color: " & cor_borda & ";'></a><br>"
	        encheLista = encheLista & caminhoImagem & vbcrlf
	        encheLista = encheLista & "<BR>"
		    contaArquivo = contaArquivo + 1
		    dados = ""
		end if
	Next
	set arquivoSistema = Nothing
	encheLista = encheLista & "<br><small><a href='http://www.teste.net/indasp.htm' target='_blank'>Galeria de Imagens</a></small>"
%>

<h3><a href="." title="up one level">«</a>
 <%=diretorio%></h3>

<p><%=encheLista%></p>

<% end if %>
<p style="font-size: xx-small;"><a href="#top" title="retorna ao topo">topo da página</a></p>
</body>
</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

celi    0

celi
Postado

eu consegui achar este exemplo na net:

 

<%
Set FSO = Server.CreateObject ( "Scripting.FileSystemObject" )

Set Rs = Server.CreateObject ( "ADODB.RecordSet" )
Rs.Fields.Append "nome", 200, 255
Rs.Fields.Append "data", 7
Rs.Fields.Append "size", 200, 255
Rs.Fields.Append "type", 200, 255
Rs.Fields.Append "attributes", 3
Rs.Fields.Append "obs", 200, 255

'Quantidade de Regsitro por pagina!
rs.PageSize = 5

Rs.Open

%>
<html>
<head>
<link href="css/estilo_.css" type="text/css" rel="stylesheet" />
<style>
.cls_link {
        color: 000000;
        font-height: bold;
        padding: 3px;
        background: cccccc;
        border: 000000;
        text-decoration: underline;
}
.cls_link a {
        color: 000000;
        font-height: bold;
        text-decoration: none;
}
</style>
</head>
<body>
<table border="0" width="70%">
  <tr> 
    <td class="td" width="326"> </td>
  </tr>
  <%
        if fso.FolderExists("admin/fotos") then
                Set pasta = fso.GetFolder("admin/fotos") 
        else
                Response.Write "Não existe o diretorio" 
                Response.End 
        end if
        For Each Arquivo In Pasta.Files
                Rs.AddNew
                Rs.Fields("nome").Value = Arquivo.Name
                Rs.Fields("data").Value = Arquivo.DateCreated 
                Rs.Fields("size").Value = Arquivo.Size  
                Rs.Fields("type").Value = Arquivo.Type
                Rs.Fields("attributes").Value = Arquivo.Attributes
        Next
        Rs.Sort = "data desc"
        
        If rs.Eof Then
                Response.Write("")
        Else
                PaginaAtual = cdbl(Request.QueryString("Pages"))

                If PaginaAtual = 0 Then PaginaAtual = 1 End If

                rs.AbsolutePage = PaginaAtual
                Num = rs.PageCount
        
        While Not Rs.EoF and rs.AbsolutePage = PaginaAtual
        %>
  <tr> 
    <td align="center" width="326"><a href="admin/fotos/<%=rs.fields("nome").value%>"><img src="admin/fotos/<%=rs.fields("nome").value%>" width="100" height="60" border="0"></a></td>
  </tr>
  <%
        rs.MoveNext : Wend
                Anterior = PaginaAtual - 1
                Proximo = PaginaAtual + 1

                If Anterior <= 0 Then
                Anterior = 1
        End If
        If Proximo > rs.PageCount Then  Proximo = rs.PageCount  End If
        %>
  <tr> 
    <td align="center"> 
      <%
                Jo = 1
                While Jo <= rs.PageCount

                If PaginaAtual = Jo Then
                        Response.Write(""&Jo&"  ")
                Else
                        Response.Write("<a href=""listando_diretorio_paginado.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")
                End If
                Jo = Jo + 1
                Wend
                End If
                %>
    </td>
  
</table>

</body>
</html>
<%
Rs.Close
Set Rs = Nothing

Set Pasta = Nothing
Set FSO = Nothing
%>
como posso colocar o efeito lightbox?

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