[Resolvido] Inserçao de imagens

Neji · Maio 1, 2009

grrr nao da diz:

Tipo de erro:

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

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

/estagio/inserirfotos2.asp, linha 31

codigo todo

<!--#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 />
	  
		<input type="submit" value="Upload" /><br />
	  </td>
	</tr>
  </table>
  </form>
</p>

</body>
</html>

<!--#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.Path & "\" & AspUpload.Name

Set AspUpload = Nothing

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

Conexao.Execute(SQL)


Conexao.Close


%>
</html>

hargon · Maio 1, 2009

Altera o segundo código para:

<!--#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
AspUpload.Save("c:\Inetpub\wwwroot\estagio")

For Each File in AspUpload.Files
	 ficheiro= File.Path & "\" & File.Name
	 sql = "insert into fotos(imagens) values ('"&ficheiro&"')"
	 Conexao.Execute(SQL)
Next

If Err <> 0 Then
Response.Write "Erro. " & Err.Description
Else
Response.Write "Upload realizado com sucesso."
End If

Set AspUpload = Nothing

Conexao.Close
%>
</html>

Neji · Maio 1, 2009

olha uma coisa nao te esquecas que o tipo de dados da base de dados e nchar e nao image porque eu quero adicionar o texto e nao o codigo binario para que depois numa outra consulta possa aparecer numa pagina.

porque se troco de nchar para image insere o codigo binario, se fica nchar da o seguinte erro

Tipo de erro:

Microsoft OLE DB Provider for SQL Server (0x80040E57)

Dados de seqüência ou binários seriam truncados.

/estagio/inserirfotos2.asp, linha 21

hargon · Maio 1, 2009

Isso. Mas o que foi feito está correto. O problema agora parece ser o tamanho do campo no banco de dados. Aumenta o tamanho do campo para 255 e posta o resultado.

Neji · Maio 1, 2009

Tipo de erro:

Microsoft OLE DB Provider for SQL Server (0x80040E57)

Dados de seqüência ou binários seriam truncados.

/estagio/inserirfotos2.asp, linha 21

mesmo erro...

epa acho melhor deixar isto tu sabes alguma maneira de fazer o upload de uma imagem e que depois o nome fique guardado na base de dados

em que noutra pagina faça um select e me apareçam as imagens? porque senão nunca mais saímos daqui...

Neji · Maio 1, 2009

olha ja deu!

c:\Inetpub\wwwroot\estagio\JiraiyaFertig.JPG\img00

pos me isso na base de dados...

hargon · Maio 1, 2009

Altera a linha:

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

Para:

ficheiro= File.Path

Veja que já está gravando caminho físico do arquivo.

Neji · Maio 1, 2009

devolve na mesma o endereço se puser .name devolve img00

hargon · Maio 1, 2009

Se colocar ficheiro= File.Path, devolve isso, correto?

c:\Inetpub\wwwroot\estagio\JiraiyaFertig.JPG

Você quer o endereço físico ou a URL?

Neji · Maio 1, 2009

url para que depois nesta consulta:

<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">

</style>


<body>
<table width="873" border="0">
<tr>
   <td width="133"><div align="center">Data</div></td>
  <td width="521"><div align="center">
	<p>Titulo</p>
  <td width="90"><div align="center">-</div></td>
 <td width="101"><div align="center">-</div></td>
</div></td></tr>

<%
		 Set RS = Conexao.Execute("SELECT * FROM fotos")
			
			WHILE NOT RS.EOF
%>

		<td align="center" style="border:solid #FFFFFF">
			<%=RS("imagens")%>

		</td>
		
		</tr>

 


	
</div></td>
 </tr>
<%
RS.Movenext
 wend
		   
%></table>

<CENTER>
	 <label class="cor3">

	   

</body>


</html>

me apareça as imagens que inseri

hargon · Maio 1, 2009

Abaixo de ficheiro= File.Path

Coloque:

ficheiro = replace(replace(ficheiro,"\","/"),"c:/Inetpub/wwwroot/", "http://www.dominio.com/")

Posta o resultado. Não esqueça de alterar dominio.com para o endereço do seu site.

Neji · Maio 1, 2009

ficheiro = replace(replace(ficheiro,"\","/"),"c:/Inetpub/wwwroot/", "http://localhost/estagio/")

inseriu em branco

hargon · Maio 1, 2009

Você fez da forma que falei?

Abaixo de ficheiro= File.Path

Não no lugar de ...

Foi isso que fez? Manteve a linha? Se manteve, posta como está seu código agora.

Neji · Maio 1, 2009

http://localhost/estagio/hinata(5).jpg

codigo

<!--#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
AspUpload.Save("c:\Inetpub\wwwroot\estagio")

For Each File in AspUpload.Files
	ficheiro= File.Path
ficheiro = replace(replace(ficheiro,"\","/"),"c:/Inetpub/wwwroot/", "http://localhost/")
	 sql = "insert into fotos(imagens) values ('"&ficheiro&"')"
	 Conexao.Execute(SQL)
Next

If Err <> 0 Then
Response.Write "Erro. " & Err.Description
Else
Response.Write "Upload realizado com sucesso."
End If

Set AspUpload = Nothing

Conexao.Close
%>
</html>

hargon · Maio 1, 2009

Deu certo ou não? O link aparentemente está correto.

Neji · Maio 1, 2009

inseriu isto http://localhost/estagio/hinata.jpg

mas o problema e que nao mostra as imagens

sera que tenho este codigo mal?

<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<style type="text/css">

</style>


<body>
<table width="873" border="0">
<tr>
   <td width="133"><div align="center">Data</div></td>
  <td width="521"><div align="center">
	<p>Titulo</p>
  <td width="90"><div align="center">-</div></td>
 <td width="101"><div align="center">-</div></td>
</div></td></tr>

<%
		 Set RS = Conexao.Execute("SELECT * FROM fotos")
			
			WHILE NOT RS.EOF
%>

		<td align="center" style="border:solid #FFFFFF">
			<%=RS("imagens")%>

		</td>
		
		</tr>

 


	
</div></td>
 </tr>
<%
RS.Movenext
 wend
		   
%></table>

<CENTER>
	 <label class="cor3">

	   

</body>


</html>

e ja agora obrigado pela tua paciencia!

Neji · Maio 1, 2009

e que quando vou a ver essa pagina mostra http://localhost/estagio/hinata.jpg e nao apenas hinata.jpg :/ nao sei como ir apenas buscar a ultima parte do endereco

hargon · Maio 1, 2009

No lugar de: <%=RS("imagens")%>

Coloque:

Neji · Maio 1, 2009

já da!

hargon agradeço imenso a tua paciência lol e desculpa a minha ignorância xD

hargon · Maio 1, 2009

Sem problemas Neji, que bom que conseguiu. :thumbup:

Arquivado

[Resolvido] Inserçao de imagens

Recommended Posts

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

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

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