[Resolvido] Inserçao de imagens

Neji · Abril 30, 2009

boas gente,

e assim tenho a dar tudo direito ao fazer o upload da imagem mas o problema e que nao sei como depois mete na base de dados o nome da imagem sem ter que ser o utilizador a por.

aqui esta o código

<!--#include file="conn.asp" --><html><head><title>AspUpload : Upload Simples</title></head><body><h4>AspUpload</h4><b>Select 1, 2 or 3 files, then click the Upload button. Images (.gif, .jpg, .png) will be automatically displayed.</b><p>  <form name="MyForm" method="post" enctype="multipart/form-data" action="inserirfotos2.asp">  <table cellspacing="0" cellpadding="3" border="1">	<tr>	  <td bgcolor="#FFFFCC">		<input type="file" size="40" name="img00" /><br />		Digite o Nome da Foto <input type="text" size="40" name="img" /><br />		<input type="submit" value="Upload" /><br />	  </td>	</tr>  </table>  </form></p></body></html>

e tambem

<!--#include file="conn.asp" --><html><head><title>AspUpload : Upload Simples</title></head><%' Cria uma instância do controleSet AspUpload = Server.CreateObject("Persits.Upload.1")' Não sobrevescrever ficheirosAspUpload.OverwriteFiles = FalseOn Error Resume Next ' Limita o tamanho máximo do ficheiro em 1MBAspUpload.SetMaxSize 1048576' Salva o ficheiroCount = AspUpload.Save("c:Inetpubwwwrootestagio")' Tira o objeto da memóriaSet AspUpload = NothingIf Err <> 0 Then  Response.Write "Erro. " & Err.DescriptionElse  Response.Write "Upload realizado com sucesso."End Ifimg1=request.form("img")sql = "insert into fotos(imagem) values ('"&img1&"')"Conexao.Execute(SQL)Conexao.Close%></html>

ao fazer

sql = "insert into fotos(imagem) values ('"&img1&"')"

Conexao.Execute(SQL)

Conexao.Close

deu me na tabela fotos do campo imagens da base de dados o seguinte: BINARY DATA

e nao me aparece a imagem Imagem Postada

alguem ajuda?

Mário Monteiro · Maio 1, 2009

no db voce quer armazenar a imagem mesmo ou apenas o seu caminho?

Neji · Maio 1, 2009

o caminho

hargon · Maio 1, 2009

AspUpload.ExtractFileName 'pega nome do arquivo

AspUpload.ExtractFolderName 'pega diretório do arquivo

É só você juntar...

Neji · Maio 1, 2009

substituio o request.form pelo AspUpload.ExtractFileName?

hargon · Maio 1, 2009

Isso... mas esse que você citou informa só o nome do arquivo.

Outra coisa, tem que colocar antes da linha Set AspUpload = Nothing

Neji · Maio 1, 2009

nao da...

<%



' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever ficheiros
AspUpload.OverwriteFiles = False

On Error Resume Next 


' Limita o tamanho máximo do ficheiro em 1MB
AspUpload.SetMaxSize 1048576
' Salva o ficheiro
Count = AspUpload.Save("c:\Inetpub\wwwroot\estagio")


' Tira o objeto da memória
Set AspUpload = Nothing

If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else




  Response.Write "Upload realizado com sucesso."
End If

Set AspUpload = Nothing 

AspUpload.ExtractFolderName
ficheiro=AspUpload.ExtractFileName

sql = "insert into fotos(imagens) values ('"&ficheiro&"')"

Conexao.Execute(SQL)


Conexao.Close


%>

hargon · Maio 1, 2009

Você leu meu último post com atenção? Falei para fazer justamente o contrário e unir os dois... ¬¬

Set AspUpload = Nothing

AspUpload.ExtractFolderName
ficheiro=AspUpload.ExtractFileName

Faz assim:

ficheiro= AspUpload.ExtractFolderName & "\" & AspUpload.ExtractFileName
Set AspUpload = Nothing

Posta o resultado, pq não sei se ele retorna a barra para direta ou esquerda. Dependendo terá que inverter ela.

Neji · Maio 1, 2009

<%



' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever ficheiros
AspUpload.OverwriteFiles = False

On Error Resume Next 


' Limita o tamanho máximo do ficheiro em 1MB
AspUpload.SetMaxSize 1048576
' Salva o ficheiro
Count = AspUpload.Save("c:\Inetpub\wwwroot\estagio")


' Tira o objeto da memória
Set AspUpload = Nothing

If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else




  Response.Write "Upload realizado com sucesso."
End If

ficheiro= AspUpload.ExtractFolderName & "\" & AspUpload.ExtractFileName
Set AspUpload = Nothing

sql = "insert into fotos(imagens) values ('"&ficheiro&"')"

Conexao.Execute(SQL)


Conexao.Close


%>
</html>

inseriu um campo vazio na base de dados :/

hargon · Maio 1, 2009

Altera essa linha

ficheiro= AspUpload.ExtractFolderName & "\" & AspUpload.ExtractFileName

para

ficheiro= AspUpload.Path & "\" & AspUpload.Name

Posta o resultado.

Neji · Maio 1, 2009

voltou a inserir vazio...

nao tem nada a ver com o enctype="multipart/form-data"?

hargon · Maio 1, 2009

Você tem que informar quando fizer upload.

Você está setando Nothing duas vezes. Remova a primeira linha que faz isso.

Tira o "On Error Resume Next" por enquanto também, pq está dando erro e não está sendo exibido.

Neji · Maio 1, 2009

Objecto necessário

/estagio/inserirfotos2.asp, linha 39

nomeadamente ficheiro= AspUpload.Path & "\" & AspUpload.Name

hargon · Maio 1, 2009

Posta como está seu código agora.

Neji · Maio 1, 2009

<!--#include file="conn.asp" -->

<html>

<head>

<title>AspUpload : Upload Simples</title>

</head>

<%

' Cria uma instância do controle

Set AspUpload = Server.CreateObject("Persits.Upload.1")

' Não sobrevescrever ficheiros

AspUpload.OverwriteFiles = False

' Limita o tamanho máximo do ficheiro em 1MB

AspUpload.SetMaxSize 1048576

' Salva o ficheiro

Count = AspUpload.Save("c:\Inetpub\wwwroot\estagio")

' Tira o objeto da memória

Set AspUpload = Nothing

If Err <> 0 Then

Response.Write "Erro. " & Err.Description

Else

Response.Write "Upload realizado com sucesso."

End If

ficheiro= AspUpload.ExtractFolderName & "\" & AspUpload.ExtractFileName

Set AspUpload = Nothing

sql = "insert into fotos(imagens) values ('"&ficheiro&"')"

Conexao.Execute(SQL)

Conexao.Close

%>

</html>

hargon · Maio 1, 2009

Como disse anteriormente, remova essas linhas:

' Tira o objeto da memória
Set AspUpload = Nothing

Execute e poste o resultado.

Neji · Maio 1, 2009

da o mesmo erro na linha onde tem

ficheiro= AspUpload.ExtractFolderName & "\" & AspUpload.ExtractFileName

* Tipo de erro:

Erro em tempo de execução do Microsoft VBScript (0x800A01A8)

Objecto necessário

/estagio/inserirfotos2.asp, linha 33

* Page:

POST 29891 bytes para /estagio/inserirfotos2.asp

* Dados POST

error '80020009'

Ocorreu uma excepção.

/iisHelp/common/500-100.asp, line 224

hargon · Maio 1, 2009

Posta como está seu código agora.

Neji · Maio 1, 2009

esquece ja da outro erro tinha me engando a remover o ' Tira o objeto da memória

Set AspUpload = Nothing e tirei o de baixo

agora da

Tipo de erro:

Erro em tempo de execução do Microsoft VBScript (0x800A01B6)

O objecto não suporta esta propriedade ou método: 'ExtractFolderName'

/estagio/inserirfotos2.asp, linha 31

<!--#include file="conn.asp" -->

<html>
<head>
<title>AspUpload : Upload Simples</title>
</head>


<%


' Cria uma instância do controle
Set AspUpload = Server.CreateObject("Persits.Upload.1")
' Não sobrevescrever ficheiros
AspUpload.OverwriteFiles = False


' Limita o tamanho máximo do ficheiro em 1MB
AspUpload.SetMaxSize 1048576
' Salva o ficheiro
Count = AspUpload.Save("c:\Inetpub\wwwroot\estagio")


If Err <> 0 Then
  Response.Write "Erro. " & Err.Description
Else

  Response.Write "Upload realizado com sucesso."
End If

ficheiro= AspUpload.ExtractFolderName & "\" & AspUpload.ExtractFileName

Set AspUpload = Nothing

sql = "insert into fotos(imagens) values ('"&ficheiro&"')"

Conexao.Execute(SQL)


Conexao.Close


%>
</html>

hargon · Maio 1, 2009

Havia pedido que você colocasse:

ficheiro= AspUpload.Path & "\" & AspUpload.Name

...

Coloca e posta o resultado.

Arquivado

[Resolvido] Inserçao de imagens

Recommended Posts

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Neji 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64