Pessoal eh o seguinte... to precisando monta um esquema de album de fotos e gostaria da ajuda de vcs... Bom preciso somente saber o lógica do negócio. Vou escrever como acho q deve ser e se estiver errado me corrijam blz..
1. Cria-se uma tabela onde serão cadastrados os nomes e códigos de cada evento.
2. Cria-se outra tabela onde serão cadastrados as fotos logo após ser feito o upload ao servidor. Nesta tabela terá um campo "codevento" onde será associado com o respectivo código do evento gravado na tabela dos eventos.
3. Cria-se a página onde serão mostrados os eventos.
4. Cria-se a página que mostra as fotos e exige um "GET" da página que mostra os eventos. Abrirão somente as fotos que tiverem o msm código do evento.
Bom axo q eh isso. Se alguem souber métodos mais fáceis e práticos help-me!!
abraço a tds...
Sistema De Fotos
Started By sandino, 20/02/2005, 21:10
9 replies to this topic
#1
Posted 20/02/2005, 21:10
#2
Posted 21/02/2005, 13:03
sua logica esta certa...
porem, como seria feito o cadastro das fotos?? vc iria colocar uma por uma atraves de upload??
pq nao implementa um codigo que mostra todas as imagens que estao numa determinada pasta?? assim, vc iria apenas setar a pasta do evento... acredito que seja bem mais facil na hora de vc cadastrar...
aqui pelo forum tem bastante exemplos desse tipo...
porem, como seria feito o cadastro das fotos?? vc iria colocar uma por uma atraves de upload??
pq nao implementa um codigo que mostra todas as imagens que estao numa determinada pasta?? assim, vc iria apenas setar a pasta do evento... acredito que seja bem mais facil na hora de vc cadastrar...
aqui pelo forum tem bastante exemplos desse tipo...
#3
Posted 21/02/2005, 18:07
Eh uma boa opção tbm... ae mandaria a pasta com as fotos para o servidor e cadastraria apenas o nome do evento e indicaria o caminho ok ?
#4
Posted 21/02/2005, 19:39
sim, exatamente isso... acredito que seja bem mais pratico
#5
Posted 21/02/2005, 22:03
no q eu tava começando a fazer e depois fiquei sem tempo, seria algo assim:
- cria o evendo e grava no bd so uma referencia da pasta q teria as fotos do evento que seria enviado via ftp, ao inves d eupload e em cada pasta separada exibidas via FSO.
- no bd tb iriam dados extras e tals..
mas o principal seria esse processo msm.
um pouco diferene dos utilizados, mass pr amim seria uma forma mais pratica e funcional.
t+
- cria o evendo e grava no bd so uma referencia da pasta q teria as fotos do evento que seria enviado via ftp, ao inves d eupload e em cada pasta separada exibidas via FSO.
- no bd tb iriam dados extras e tals..
mas o principal seria esse processo msm.
um pouco diferene dos utilizados, mass pr amim seria uma forma mais pratica e funcional.
t+
> Busca On-line - A Busca que faltava na Internet! - Cadastre-se!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
---------------------------------------------------------------------------
> BRdesign.NET - Soluções em Websites e Sistemas E-Commerce.
---------------------------------------------------------------------------
> BR-ecommerce - Sua loja virtual na internet! - Apenas R$99,90 mensais (hospedagem inclusa)!
#6
Posted 21/02/2005, 23:04
olá estou com a mesma dúvida acho eu estou criando um sisteminha de galeria de fotos, e no banco estou colocando só o nome das pasta, mais não sei como fazer para exibir as imagem contida na pasta alguem pode me ajudar como posso começar a fazer isso.
ex.
crio um evento carnaval 2005 certo e a pasta é carnaval2005 e todas as fotos estão dentro dela mais como faço para exibo-las.
obrigado.
ex.
crio um evento carnaval 2005 certo e a pasta é carnaval2005 e todas as fotos estão dentro dela mais como faço para exibo-las.
obrigado.
Clayton E. Mergulhão
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#8
Posted 22/02/2005, 12:26
então amigo tenho um código que lista as img da pasta mais não estou coseguindo buscar no banco as img. segue o script.
como posso fazer para buscar no banco
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set objFSO = CreateObject("Scripting.FileSystemObject") Set objF = objFSO.GetFolder(Server.Mappath("img_p")) Set objFC = objF.Files response.write "<table border=""0"" cellpadding=""5"">" '*** LISTA OS JPG For Each f1 in objFC if instr(ucase(f1.Name), ".JPG") then response.write "<tr><td><img src=img_p/"& f1.name &"></td></tr>" response.write "</td></tr>" end if Next '*** LISTA OS GIF For Each f1 in objFC if instr(ucase(f1.Name), ".GIF") then response.write "<tr><td><b>Nome: </b>" & f1.name & "</td><td>" response.write "</td></tr>" end if Next '*** LISTA OS PNG For Each f1 in objFC if instr(ucase(f1.Name), ".PNG") then response.write "<tr><td><b>Nome: </b>" & f1.name & "</td><td>" response.write "</td></tr>" end if Next '*** LISTA OS BMP For Each f1 in objFC if instr(ucase(f1.Name), ".BMP") then response.write "<tr><td><b>Nome: </b>" & f1.name & "</td><td>" response.write "</td></tr>" end if Next response.write "</table>" set objFC = nothing set objF = nothing set objFSO = nothing '############################################## function GetBytes(flnm, offset, bytes) Dim objFSO Dim objFTemp Dim objTextStream Dim lngSize on error resume next Set objFSO = CreateObject("Scripting.FileSystemObject") ' First, we get the filesize Set objFTemp = objFSO.GetFile(flnm) lngSize = objFTemp.Size set objFTemp = nothing fsoForReading = 1 Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading) if offset > 0 then strBuff = objTextStream.Read(offset - 1) end if if bytes = -1 then ' Get All! GetBytes = objTextStream.Read(lngSize) 'ReadAll else GetBytes = objTextStream.Read(bytes) end if objTextStream.Close set objTextStream = nothing set objFSO = nothing end function function lngConvert(strTemp) lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256))) end function function lngConvert2(strTemp) lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256))) end function function gfxSpex(flnm, width, height, depth, strImageType) dim strPNG dim strGIF dim strBMP dim strType strType = "" strImageType = "(unknown)" gfxSpex = False strPNG = chr(137) & chr(80) & chr(78) strGIF = "GIF" strBMP = chr(66) & chr(77) strType = GetBytes(flnm, 0, 3) if strType = strGIF then ' is GIF strImageType = "GIF" Width = lngConvert(GetBytes(flnm, 7, 2)) Height = lngConvert(GetBytes(flnm, 9, 2)) Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1) gfxSpex = True elseif left(strType, 2) = strBMP then ' is BMP strImageType = "BMP" Width = lngConvert(GetBytes(flnm, 19, 2)) Height = lngConvert(GetBytes(flnm, 23, 2)) Depth = 2 ^ (asc(GetBytes(flnm, 29, 1))) gfxSpex = True elseif strType = strPNG then ' Is PNG strImageType = "PNG" Width = lngConvert2(GetBytes(flnm, 19, 2)) Height = lngConvert2(GetBytes(flnm, 23, 2)) Depth = getBytes(flnm, 25, 2) select case asc(right(Depth,1)) case 0 Depth = 2 ^ (asc(left(Depth, 1))) gfxSpex = True case 2 Depth = 2 ^ (asc(left(Depth, 1)) * 3) gfxSpex = True case 3 Depth = 2 ^ (asc(left(Depth, 1))) '8 gfxSpex = True case 4 Depth = 2 ^ (asc(left(Depth, 1)) * 2) gfxSpex = True case 6 Depth = 2 ^ (asc(left(Depth, 1)) * 4) gfxSpex = True case else Depth = -1 end select else strBuff = GetBytes(flnm, 0, -1) ' Get all bytes from file lngSize = len(strBuff) flgFound = 0 strTarget = chr(255) & chr(216) & chr(255) flgFound = instr(strBuff, strTarget) if flgFound = 0 then exit function end if strImageType = "JPG" lngPos = flgFound + 2 ExitLoop = false do while ExitLoop = False and lngPos < lngSize do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize lngPos = lngPos + 1 loop if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2)) lngPos = lngPos + lngMarkerSize + 1 else ExitLoop = True %> <% end if loop ' if ExitLoop = False then Width = -1 Height = -1 Depth = -1 else Height = lngConvert2(mid(strBuff, lngPos + 4, 2)) Width = lngConvert2(mid(strBuff, lngPos + 6, 2)) Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8) gfxSpex = True end if end if end function %>
como posso fazer para buscar no banco
Clayton E. Mergulhão
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
Sistema em ASP, Hospedagem de Web Site.
Email: contato@ismweb.com.br
Site: www.ismweb.com.br
#9
Posted 22/02/2005, 12:30
este codigo que vc esta utilizando nao busca as imagens de um banco, mas sim de uma determinada pasta, no seu caso vai buscar todas as imagens da pasta img_p/
para listar os campos de um banco, vc deve usar um outro codigo, aqui pelo forum ta cheio de exemplos assim, de uma olhada
para listar os campos de um banco, vc deve usar um outro codigo, aqui pelo forum ta cheio de exemplos assim, de uma olhada
#10
Posted 10/03/2007, 05:44
cara tu tem esse codigo ai pra exibir as imagens mas tipo com paginação dakele tipo: 1 - 2 -3 ....
paginação com numeros?
paginação com numeros?
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)