Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ei pessoal!
Consegui modificar um código pra fazer uploads sem componentes (Dak0), mas quando eu faço 6 uploads ao mesmo tempo, as imagens ficam sem tipo, daí não dá pra visualizar as mesmas...
Podem me dar uma luz? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif
>
Códigozinho ae pra nóis X)
POST NUMERO 100 o.O
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=416906)
Daí mano!
Obrigado pelo interesse em me ajudar!
O código é do Dark0 e eu adaptei...
Segue o código de ação do upload...
ASP
[*]
[*]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
[*]<!-- #include file = "upload_funcoes.asp" -->
[*]
[*]<%
[*]
[*]' Chamando Funções, que fazem o Upload funcionar
[*]
[*]byteCount = Request.TotalBytes
[*]
[*]RequestBin = Request.BinaryRead(byteCount)
[*]
[*]Set UploadRequest = CreateObject("Scripting.Dictionary")
[*]
[*]BuildUploadRequest RequestBin
[*]
[*]
[*]
[*]' Recuperando os Dados Digitados ----------------------
[*]
[*]Titulo = UploadRequest.Item("Titulo").Item("Value")
[*]Memorando = UploadRequest.Item("Memorando").Item("Value")
[*]
[*]
[*]' Tipo de arquivo que esta sendo enviado
[*]
[*]tipo_foto1 = UploadRequest.Item("Foto1").Item("ContentType")
[*]tipo_foto2 = UploadRequest.Item("Foto2").Item("ContentType")
[*]tipo_foto3 = UploadRequest.Item("Foto3").Item("ContentType")
[*]tipo_foto4 = UploadRequest.Item("Foto4").Item("ContentType")
[*]tipo_foto5 = UploadRequest.Item("Foto5").Item("ContentType")
[*]tipo_foto6 = UploadRequest.Item("Foto6").Item("ContentType")
[*]
[*]
[*]' Caminho completo dos arquivos enviados
[*]
[*]caminho_foto1 = UploadRequest.Item("Foto1").Item("FileName")
[*]caminho_foto2 = UploadRequest.Item("Foto2").Item("FileName")
[*]caminho_foto3 = UploadRequest.Item("Foto3").Item("FileName")
[*]caminho_foto4 = UploadRequest.Item("Foto4").Item("FileName")
[*]caminho_foto5 = UploadRequest.Item("Foto5").Item("FileName")
[*]caminho_foto6 = UploadRequest.Item("Foto6").Item("FileName")
[*]
[*]
[*]' Nome dos arquivos enviados
[*]
[*]nome_foto1 = Right(caminho_foto1,Len(caminho_foto1)-InstrRev(caminho_foto1,"\"))
[*]nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))
[*]nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))
[*]nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))
[*]nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))
[*]nome_foto6 = Right(caminho_foto6,Len(caminho_foto6)-InstrRev(caminho_foto6,"\"))
[*]
[*]
[*]' Conteudo binario dos arquivos enviados
[*]
[*]foto1 = UploadRequest.Item("Foto1").Item("Value")
[*]foto2 = UploadRequest.Item("Foto2").Item("Value")
[*]foto3 = UploadRequest.Item("Foto3").Item("Value")
[*]foto4 = UploadRequest.Item("Foto4").Item("Value")
[*]foto5 = UploadRequest.Item("Foto5").Item("Value")
[*]foto6 = UploadRequest.Item("Foto6").Item("Value")
[*]
[*]' pasta onde as imagens serao guardadas
[*]
[*]pasta = Server.MapPath("flagras/")
[*]
[*]nome_foto1 = "/"&nome_foto1
[*]nome_foto2 = "/"&nome_foto2
[*]nome_foto3 = "/"&nome_foto3
[*]nome_foto4 = "/"&nome_foto4
[*]nome_foto5 = "/"&nome_foto5
[*]nome_foto6 = "/"&nome_foto6
[*]
[*]
[*]' pasta + nome dos arquivos
[*]
[*]cfoto1 = "flagras/" + nome_foto1
[*]cfoto2 = "flagras/" + nome_foto2
[*]cfoto3 = "flagras/" + nome_foto3
[*]cfoto4 = "flagras/" + nome_foto4
[*]cfoto5 = "flagras/" + nome_foto5
[*]cfoto6 = "flagras/" + nome_foto6
[*]
[*]
[*]' Fazendo o Upload do arquivo selecionado
[*]
[*]if foto1 <> "" then
[*]
[*] Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
[*]
[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1)
[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)
[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)
[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4)
[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)
[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto6)
[*]
[*] For i = 1 to LenB(foto1)
[*]
[*]
[*] MyFile.Write chr(AscB(MidB(foto1,i,1)))
[*]
[*]
[*] Next
[*]
[*] MyFile.Close
[*]
[*]end if
[*]
[*]
[*]
[*]' Conecta-se ao Banco de Dados
[*]
[*]url_conexao = Server.MapPath("banco/fixos.mdb")
[*]
[*]set conexao = Server.CreateObject("ADODB.Connection")
[*]
[]conexao.open "DRIVER={Microsoft Access Driver (.mdb)};DBQ="&url_conexao
[*]
[*]
[*]' cadastra os dados no banco de dados
[*]
[*]sql = "Insert into Flagras (Titulo,Memorando,Foto1,Foto2,Foto3,Foto4,Foto5,Foto6) values ('"& Titulo &"', '"& Memorando &"', '"& cfoto1 &"', '"& cfoto2 &"', '"& cfoto3 &"', '"& cfoto4 &"', '"& cfoto5 &"', '"& cfoto6 &"')"
[*]
[*]Conexao.Execute(sql)
[*]
[*]
[*]
[*]' Mostra Mensagem de Confirmação na Tela
[*]
[*]Response.write "<HTML><BODY><table width='46%' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='336699'><tr><td><table width='100%' border='0' cellspacing='1' cellpadding='1'><tr><td height='20'><div align='center'><font color='#FFFFFF' size='1' face='Verdana, Arial, Helvetica, sans-serif'><strong>CADASTRO REALIZADO COM SUCESSO! </strong></font></div></td></tr><tr><td bgcolor='#FFFFFF'><div align='center'><font color='#336699' size='1' face='Verdana, Arial, Helvetica, sans-serif'>Você será redirecionado em 5 segundos...</font></div></td></tr><tr><td bgcolor='#FFFFFF'><div align='center'><img src='imagens/segundos.gif' width='70' height='20'></div></td></tr></table></td></tr></table></BODY></HTML>"
[*]
[*]
[*]
[*]' Redireciona após 5 segundos
[*]
[*]response.write "<meta http-equiv='refresh' content='5; url=lista_flagras.asp'/>"
[*]
[*]%>
[*]
Caso precise do código das funções eu posto..
Grato.
ASP
[*]nome_foto1 = "/"&nome_foto1
[*]cfoto1 = "flagras/" + nome_foto1
Considerando que o nome da foto seja teste.jpg
ASP
[*]nome_foto1 = "/teste.jpg"
[*]cfoto1 = "flagras//teste.jpg"
Repare que ficam 2 Barras...
talvez seja isso!
>
ASP
[*]nome_foto1 = "/"&nome_foto1<br />cfoto1 = "flagras/" + nome_foto1
Considerando que o nome da foto seja teste.jpg
ASP
[*]nome_foto1 = "/teste.jpg"<br />cfoto1 = "flagras//teste.jpg"
Repare que ficam 2 Barras...
talvez seja isso!
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=416937)
Ei mano!
Esse não é o problema...
Depois que as fotos são enviadas, eu tento abrir no servidor, mas não dá... tipo assim: o upload estraga a foto (ela fica num tamanho menor do que a original)
Realmente eu não sei o que pode ser...
Me dê outra dica aí!
posso dar uma sugestão?rsrs deixa sem barra, deixa só o nome da pasta e depois responde aqui. t+. boa sorte!
>
posso dar uma sugestão?
rsrs deixa sem barra, deixa só o nome da pasta e depois responde aqui. t+. boa sorte!
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=416985)
Fala aí mano!
Deu o mesmo problema, como tinha dito, as fotos vão tipo estragadas (o tamanho em bytes das fotos não conferem com a original) ... pude perceber que a foto6 é uploadiada normalmente (consigo visualizar) mas as foto1, foto2, foto3... não abre.
O problema está na hora de fazer o upload.
Me ajudem aí que eu estou daqui quebrando a cabeça...
Olha só, posta ai o código das funções, derrepente tem alguma coisa lá.Nessa hora tem olhar o código todo, as vezes é só uma bobeirinha que não vemos quando estamos de cabeça cheia.
>
Olha só, posta ai o código das funções, derrepente tem alguma coisa lá.
Nessa hora tem olhar o código todo, as vezes é só uma bobeirinha que não vemos quando estamos de cabeça cheia.
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417015)
Pessoal, vai o código aí... lembrando (código fornecido pelo dark0 e adaptado por mim).
Funções:
ASP
[*]
[*]<%
[*]
[*]' Upload Sem componentes ---------------------------------------
[*]
[*]Sub BuildUploadRequest(RequestBin)
[*]
[*] on error resume next
[*]
[*]
[*]
[*] PosBeg = 1
[*]
[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
[*]
[*] boundary = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
[*]
[*] BoundaryPos = InStrB(1, RequestBin, boundary)
[*]
[*]
[*]
[*] Do Until (BoundaryPos = InStrB(RequestBin, boundary & getByteString("--")))
[*]
[*]
[*]
[*] Dim UploadControl
[*]
[*] Set UploadControl = CreateObject("Scripting.Dictionary")
[*]
[*]
[*]
[*] Pos = InStrB(BoundaryPos, RequestBin, getByteString("Content-Disposition"))
[*]
[*] Pos = InStrB(Pos, RequestBin, getByteString("name="))
[*]
[*] PosBeg = Pos + 6
[*]
[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
[*]
[*] Name = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
[*]
[*] PosFile = InStrB(BoundaryPos, RequestBin, getByteString("filename="))
[*]
[*] PosBound = InStrB(PosEnd, RequestBin, boundary)
[*]
[*]
[*]
[*] If PosFile <> 0 And (PosFile < PosBound) Then
[*]
[*] PosBeg = PosFile + 10
[*]
[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(34)))
[*]
[*] FileName = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
[*]
[*] UploadControl.Add "FileName", FileName
[*]
[*] Pos = InStrB(PosEnd, RequestBin, getByteString("Content-Type:"))
[*]
[*] PosBeg = Pos + 14
[*]
[*] PosEnd = InStrB(PosBeg, RequestBin, getByteString(Chr(13)))
[*]
[*] ContentType = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
[*]
[*] UploadControl.Add "ContentType", ContentType
[*]
[*] PosBeg = PosEnd + 4
[*]
[*] PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
[*]
[*] Value = MidB(RequestBin, PosBeg, PosEnd - PosBeg)
[*]
[*] Else
[*]
[*] Pos = InStrB(Pos, RequestBin, getByteString(Chr(13)))
[*]
[*] PosBeg = Pos + 4
[*]
[*] PosEnd = InStrB(PosBeg, RequestBin, boundary) - 2
[*]
[*] Value = getString(MidB(RequestBin, PosBeg, PosEnd - PosBeg))
[*]
[*] End If
[*]
[*]
[*]
[*] UploadControl.Add "Value", Value
[*]
[*] UploadRequest.Add Name, UploadControl
[*]
[*] BoundaryPos = InStrB(BoundaryPos + LenB(boundary), RequestBin, boundary)
[*]
[*] Loop
[*]
[*]End Sub
[*]
[*]
[*]
[*]Function getByteString(StringStr)
[*]
[*] For i = 1 To Len(StringStr)
[*]
[*] Char = Mid(StringStr, i, 1)
[*]
[*] getByteString = getByteString & ChrB(AscB(Char))
[*]
[*] Next
[*]
[*]End Function
[*]
[*]
[*]
[*]Function getString(StringBin)
[*]
[*] getString = ""
[*]
[*] For intCount = 1 To LenB(StringBin)
[*]
[*] getString = getString & Chr(AscB(MidB(StringBin, intCount, 1)))
[*]
[*] Next
[*]
[*]End Function
[*]
[*]
[*]
[*]' Fim upload sem Componentes -----------------------------------------
[*]
[*]%>
[*]
Espero que possam me ajudar! :wacko:
eu tambem uso este código mas para 1 imagem só, vou dar uma olhada.
me diz uma coisa, na pasta para onde é feito o upload você consegue visualizar a foto, tipo clicando 2 vezes p/ abrir??
>
me diz uma coisa, na pasta para onde é feito o upload você consegue visualizar a foto, tipo clicando 2 vezes p/ abrir??
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417040)
Ei marcos!
As 6 fotos estão lá, mas só abre a foto6.
Tá tenso pra adaptar esse código...
Espero que consigamos.
você teria como me mandar o programa todo? e que estou no trabalho e não tenho como montar aqui, como falei eu ja uso este script vou fazer umas junções com o meu e ver se funciona.se não tiver problema p/ você o e-mail é: carioca.marcos@gmail.comO meu script você pode ver funcionando em www.igrejabatistaelohim.com.br no link fotos.T+Marcos
Cara,
ele copia normalmente
mas ele cadastra no banco de dados como \\
e Depois pra exibir PODE dar erro,
....
>
Cara,
ele copia normalmente
mas ele cadastra no banco de dados como \\
e Depois pra exibir PODE dar erro,
....
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417101)
Ei mano!
Não é isso... eu já até acertei isso... mas não consigo visualizar as fotos nem pelo servidor... (o nome estão corretos no servidor, mas o tamanho em bytes da foto aparece como "0") conclusão... a foto não vai toda!
:unsure: soh!AS fotos vão para o diretório do servidor ?se Elas forem, Vão inteiras (com tamanho certo, etc) ?...
>
:unsure:
soh!
AS fotos vão para o diretório do servidor ?
se Elas forem, Vão inteiras (com tamanho certo, etc) ?
...
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417149)
Mano!
As fotos vão pro diretório do servidor, mas com defeito...
aparece o nome e tudo, mas clicla duas vezes e elas não abrem, aparece aquele x no lugar da imagem, sinal que não tem imagem...
o problema está no código pra fazer o upload...
mas tiozinho ta salvando o nome certo ou ta salvando sem extenção a imagem??
>
mas tiozinho ta salvanco o nome certo ou ta salvando sem extenção a imagem??
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417175)
Dae mano! Graça a Deus...
Está salvando com a extensão "jpg", inclusive a última opção de campo file do meu form, no caso a foto6 faz o upload normalmente e a vejo depois, mas o restante: foto1, foto2... etc, nada.. não aparece!
Espero sua resposta mano!
Abração!
Fabiano.
mas tiozinho todas as imagens sao jpg mesmo?? voce deve salvar com a extensao original...
>
mas tiozinho todas as imagens sao jpg mesmo?? voce deve salvar com a extensao original...
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417187)
Mas todas são jpg... aliás o código não impede isso, posso uploadiar gifs, etc.
você já viu o código?
não pois achei ele confuso...porque voce não separa o codigo que faz o upload pra ficar mais limpo o codigotipo como é feito no freeaspuploadalias este ultimo ja vem pronto pra ser usado e pra fazer quantos uploads quiser
>
não pois achei ele confuso...
porque voce não separa o codigo que faz o upload pra ficar mais limpo o codigo
tipo como é feito no freeaspupload
alias este ultimo ja vem pronto pra ser usado e pra fazer quantos uploads quiser
[](/topic/144190-n%C3%A3o-consigo-vizualizar-as-imagens-uplodiadas/?do=findComment&comment=417218)
O problema é que o código do dark0 já vem explicado como fazer com os exemplos e o freeaspupload só vem as funções, tem que fazer o resto no braço e eu sou muito iniciante em asp, já tentei e não consegui fazer upload com o free, consegui fazer somente fazer um upload simples com o código do dark0.
quem sabe você pode me ajudar com o free!
>
quem sabe você pode me ajudar com o free!
com certeza...
inicie e va postando as duvidas aqui que te ajudo
Tem um erros feios aqui:
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3) Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4) Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5)' *Tudo isso aqui acima é inútil pq logo abaixo você seta o objeto novamente.' O script criou os arquivos sem conteudo, por isso que aparecem com 0 kb Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto6) ' ***Aí você grava os binários somente uma vez**** For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close
Tente salvar um de cada vez:
If foto1<>"" Then Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto1) For i = 1 to LenB(foto1) MyFile.Write chr(AscB(MidB(foto1,i,1))) Next MyFile.Close Set MyFile=NothingEnd IFIf foto2<>"" Then Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to LenB(foto2) MyFile.Write chr(AscB(MidB(foto2,i,1))) Next MyFile.CloseEnd IF.... e assim vai
Se quiser deixar o código mais "elegante" pode armazenar os binários num array e dar um Loop.
[]s
Códigozinho ae pra nóis X)
POST NUMERO 100 o.O