Ir para conteúdo

POWERED BY:

Arquivado

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

natalia

AspUpload

Recommended Posts

Oi pessoal,Como faço para alterar o nome da imagem que está gravada no banco?Tipo assim:form.asp<form ENCTYPE="multipart/form-data" name="form1" method="post" action="upload.asp"><input name="foto1" type="FILE" class="listmenu" size="28"><input type="hidden" name="foto_1" value="<%=rsSel("Foto1")%>">...</form>upload.aspSet Upload = Server.CreateObject("Persits.Upload.1")Upload.Save ("e:\home\site\imagens")Foto1 = Upload.Form("foto1")If Foto1 = "" Then Foto1 = Upload.Form("foto_1")end ifFoto2 = Upload.Form("foto2")If Foto2 = "" Then Foto2 = Upload.Form("foto_2")end if ...strUp = " UPDATE Imagem SET Titulo = '" & Titulo & "', Texto = '" & Texto & "', Foto1 = '"& Foto1 &"', "&_" Foto2 = '"& Foto2 &"', Foto3 = '"& Foto3 &"', Foto4 = '"& Foto4 &"', Foto5 = '"& Foto5 &"', "&_" WHERE Codigo_Evento = " & varCodConexao.Execute(strUp) Call Close_cn Set Upload = NothingEu não consigo recuperar o nome da imagem do campo file, no exemplo acima usando Foto1 = Upload.Form("foto1") não dá certo. Só funciona com os demais campos, como o da descrição da imagem.Alguém sabe como é?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Para recuperar o nome da imagem tente assim:Set File = Upload.Files("foto1")nome = File.ExtractFileNamePara alterar o nome da imagem tente:Upload.SaveToMemory (no lugar de Upload.Save)File.SaveAs "nome_da_foto"T+Manga

Compartilhar este post


Link para o post
Compartilhar em outros sites

Funcionou, mas ainda tenho um problema. Se nenhuma imagem for selecionada, eu preciso pegar o valor do campo hidden:Set File = Upload.Files("foto1") Foto1 = File.ExtractFileName If Foto1 = "" Then Foto1 = Upload.Form("foto_1") end if Mas dá esse erro:Microsoft VBScript runtime error '800a01a8' Object required: 'File' Se eu selecionar alguma imagem ai sim dá certo. Mas haverá campos onde não seram selecionadas nehuma imagem.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se nenhuma imagem é selecionada, o Objeto File não é criado. Então tente verificar isso assim:Set File = Upload.Files("foto1")If Not File Is Nothing ThenFoto1 = File.ExtractFileNameElseFoto1 = Upload.Form("foto_1")End If

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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