Upload de imagem

[Gi@ 0]

Oi Pessoal, sou nova aqui no fórum e estou precisando de uma ajudinha.

 

Preciso fazer upload de uma imagem e salvar o nome dela no bd.

É um sistema de notícia que adiciono uma img para cada uma.

 

Consegui fazer o upload para a pasta de fotos, mas não consegui salvar a imagem na notícia correspondente. Veja o código abaixo: (arquivo_capa é o nome do campo da tabela notícias onde deverá salvar o nome da img enviada e o campo único de identificação da notícia é id).

 

<!--#include file="../Connections/conexao.asp" --><%	pastadefotos = Server.MapPath("..\imageBank\noticias")		On Error Resume Next	Dim objUpload	Set objUpload = server.CreateObject("Dundas.Upload.2")	objUpload.MaxFileSize = 9048576	objUpload.UseUniqueNames = false	objUpload.Save(pastadefotos)		If Err <> 0 Then		Response.Write Err.Description & " " & Err.Number & "<br>"		Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </font>"	End If		Set fsobj = Server.CreateObject("Scripting.FileSystemObject")	Set objpasta = fsobj.GetFolder(pastadefotos)		for each objfile in objpasta.Files	FOTO = "imageBank\noticias\" & objFile.Name	Next			Set objUpload = nothing	SQL_FOTO = ("INSERT INTO noticias (arquivo_capa) VALUES ('" & FOTO  & "')")   	CALL ABRIRDB		CONNDB.EXECUTE(SQL_FOTO)		  	CALL FECHARDB		Response.Redirect("noticias_listar.asp")%>

 

 

Obrigada. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ted k' 126]

Qual o erro que apresenta, ou simplesmente não salva?

[Gi@ 0]

Qual o erro que apresenta, ou simplesmente não salva?

Só não está salvando....

[jrcardozo 4]

altere isso pra ver se aparece o erro colocando response.end para parar o script

If Err <> 0 Then		Response.Write Err.Description & " " & Err.Number & "<br>"		Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </font>"response.end()	End If

outra coisa, não teria que ter uma barra(\) no final do caminho da pasta

pastadefotos = Server.MapPath("..\imageBank\noticias\")

[Gi@ 0]

altere isso pra ver se aparece o erro colocando response.end para parar o script

If Err <> 0 Then		Response.Write Err.Description & " " & Err.Number & "<br>"		Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </font>"response.end()	End If

outra coisa, não teria que ter uma barra(\) no final do caminho da pasta

pastadefotos = Server.MapPath("..\imageBank\noticias\")

Não apareceu erro algum....redirecionou p/ a próxima página normalmente e a imagem continua salvando na pasta de notícias e nd de salvar o nome no bd.Também acrescentei a barra \Obrigada por me ajudar....

[jrcardozo 4]

possivelmente a variavel está chegando vazia, vamos fazer os teste

SQL_FOTO = ("INSERT INTO noticias (arquivo_capa) VALUES ('" & FOTO  & "')")response.write sql_fotoresponse.end

[Gi@ 0]

possivelmente a variavel está chegando vazia, vamos fazer os teste

SQL_FOTO = ("INSERT INTO noticias (arquivo_capa) VALUES ('" & FOTO  & "')")response.write sql_fotoresponse.end

Apareceu isso: INSERT INTO noticias (arquivo_capa) VALUES ('..\imageBank\noticias\tomadas_padrao3pinos.jpg')Não está identificando o id da notícia, pegou uma imagem qualquer da pasta notícias ....como faço para recuperar id correpondente?

[Carlos Moreira 0]

Eu uso esse Gi@ é excelente e roda certinho!

 

se ajudar esta ai!

 

' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------categoria1 = UploadRequest.Item("categoria1").Item("Value")titulo = UploadRequest.Item("titulo").Item("Value")referencia = UploadRequest.Item("referencia").Item("Value")'cores = UploadRequest.Item("cores").Item("Value")descricao = UploadRequest.Item("descricao").Item("Value")valor = UploadRequest.Item("valor").Item("Value")usuario = UploadRequest.Item("usuario").Item("Value")capa = UploadRequest.Item("capa").Item("Value")aprovado = UploadRequest.Item("aprovado").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_imagem1 = UploadRequest.Item("imagem1").Item("ContentType") 'imagem1' Caminho completo dos arquivos enviadoscaminho_imagem1 = UploadRequest.Item("imagem1").Item("FileName") ' imagem1' Nome dos arquivos enviadosnome_imagem1 = Right(caminho_imagem1,Len(caminho_imagem1)-InstrRev(caminho_imagem1,"\"))nome_imagem1 = Right(nome_imagem1, len(nome_imagem1)-Instr(nome_imagem1,".")+1)Novo_nome = Replace(date, "/","")&Hour(time)&Minute(time)&second(time)&"_prod1"  'novo nome do arquivo (imagem1)nome_imagem1 = novo_nome&nome_imagem1' Conteudo binario dos arquivos enviadosimagem1 = UploadRequest.Item("imagem1").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("../imagens/uploads/"&nome_imagem1&"")' Fazendo o Upload do arquivo selecionadoif imagem1 <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta)For i = 1 to LenB(imagem1)MyFile.Write chr(AscB(MidB(imagem1,i,1)))NextMyFile.Closeend if'------------------------------------------- Condição sem imagem1Call abre_conexao(ConnString,Conn)sql = "Insert Into noticias (imagem) VALUES ('" & nome_imagem1 & "')"Conn.Execute(sql)Call fecha_conexao() Response.Redirect "produtolist.asp"

[filipescoob 1]

Salve Carlos Moreira,

 

Estava Olhando seu post acima e vi estas linhas e não entendi para que servem. Alguem pode me ajudar a entender ?

 

' Recuperando os Dados Digitados ----------------------categoria1 = UploadRequest.Item("categoria1").Item("Value")titulo = UploadRequest.Item("titulo").Item("Value")referencia = UploadRequest.Item("referencia").Item("Value")'cores = UploadRequest.Item("cores").Item("Value")descricao = UploadRequest.Item("descricao").Item("Value")valor = UploadRequest.Item("valor").Item("Value")usuario = UploadRequest.Item("usuario").Item("Value")capa = UploadRequest.Item("capa").Item("Value")aprovado = UploadRequest.Item("aprovado").Item("Value")

O que preciso fazer é copiar 4 arquivos para pastas distintas no servidor tentei o usar o CopyFile porem da permissão negada e tenho que fazer o upload mas não rola e não sei o que fazer.

 

Os 4 arquivos estarão sempre na mesma pasta e irão para a pasta selecionado pelo usuario.

 

Valeu galera.

[rodrigovetorix 0]

Gi,

 

Não querendo te atrapalhar, mas tem um tutorial bala aqui

 

Abraço

[Gi@ 0]

Gi,Não querendo te atrapalhar, mas tem um tutorial bala aquiAbraço

Rodrigo,Ainda estou fazendo testes.....obrigada pela dica, vou testar esse tb.