Upload sem componentes

shumi · Março 10, 2007

verifique se você tem a pasta que o arquivo está setando! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

cabecinha · Março 12, 2007

oi,qual pasta? a pasta imagens?tenho que criar uma tabela com os campos nome, email, foto, efoto2 e uma pasta chamada imagens? é isso?valeucabecinha

vcdias · Março 12, 2007

Tenho tentado utilizar estes uploads atrelados ao meu form, mas não funciona.

Estou usando este abaixo e copio e colo o nome do arquivo enviado para o local apropriado.

Tentei usar o PureUpload (http://www.imasters.com.br/artigo/3689/asp/upload_pelo_dreamweaver), mas não funcionou. Dá sempre erro.

default.asp

<%response.buffer = "true"%><script Language="JavaScript"><!--//Verifica se foi digitado algo no campo function ValidaPagina(form){	if(CampoBranco(form.blob)==true)	{		alert("Escolha o arquivo a ser enviado.");		form.blob.focus();		return false;	}}function CampoBranco(campo){	if (campo.value == "")		return true;	else		return false;}--></script><HTML><HEAD>	<title>Enviar imagem</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="style.css" rel="stylesheet" type="text/css"></HEAD><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="CENTER">  <tr> 	<td height="20" align="CENTER" bgcolor="#eeeeee"> <div align="right"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="java script:top.close(self);">Fechar</a></font></b> 	  </div></td>  </tr></table><FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="outputFile.asp" onsubmit="return ValidaPagina(this);" name="billform">  <table width="366" border="0" align="CENTER" height="116">	<tr> 	  <td height="34" colspan="2"> <div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Procure 		  a imagem desejada e clique em "enviar"</font></b></div></td>	</tr>	<tr> 	  <td width="77" height="42"> <div align="right"><font face="Verdana, Arial" size="2"><b>Localizar: 		  </b> </font></div></td>	  <td width="269" height="42"> <input name="blob" type="file" class="input" size="35"> </td>	</tr>	<tr> 	  <td colspan="2" height="32"> <p align="center"> 		<input name="Submit" type="submit" class="input" value="Enviar">	  	  </td>	</tr>  </table></FORM></BODY></HTML>

outpufile.asp

<%Response.Expires=0Response.Buffer = TRUEResponse.ClearbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Dim UploadRequestSet UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest  RequestBincontentType = UploadRequest.Item("blob").Item("ContentType") filepathname = UploadRequest.Item("blob").Item("FileName") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) value = UploadRequest.Item("blob").Item("Value") Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14		  Set MyFile = ScriptObject.CreateTextFile("enndereço físico\"&filename)   'Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&"\"&filename)  For i = 1 to LenB(value) 	 MyFile.Write chr(AscB(MidB(value,i,1))) Next MyFile.Close%><title>Enviar imagem</title><link href="style.css" rel="stylesheet" type="text/css"><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="100%" border="0" cellspacing="0" cellpadding="0" align="CENTER">  <tr> 	<td height="19" align="CENTER" bgcolor="#eeeeee"> 	  <div align="right"><strong><b> <b><a href="default1.asp">Enviar 		outro Arquivo</a></b> </b>|</strong><b><a href="java script:top.close(self);" ('fechar','','../imagens/fechar2.jpg',1)">Fechar</a></b>		 </div></td>  </tr></table><p>  <%codigo = PasswordTemp%>  <%session("codigo1")= codigo %></p><table width="100%" border="0" align="center">  <tr bgcolor="#FFFFFF"> 	<td> 	  <div align="center"><p><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">A imagem 		  foi enviada com sucesso!</font></b></p>		<p><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Nome 		  da imagem:<br>		  <font color="#990000"><%= filename%> </font> 		  <%session("filename1")= filename %>		  <br>		  </font></b><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>		  Copie e cole no lugar apropriado no formulário.</font></p>	  </div>	</td>  </tr></table><!--#include file="upload.asp"-->

upload.asp

<%Sub BuildUploadRequest(RequestBin) 	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))			'Add filename to dictionary object			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			'Loop  		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)	LoopEnd Sub Function getByteString(StringStr) For i = 1 to Len(StringStr) 	char = Mid(StringStr,i,1)	getByteString = getByteString & chrB(AscB(char)) NextEnd Function Function getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin)	getString = getString & chr(AscB(MidB(StringBin,intCount,1)))  NextEnd Function%>

vcdias · Março 13, 2007

Consegui utilizar o PureUpload junto com o insert do Dreamweaver.

Eis os passos que todos devem seguir para obter o exito:

[*]Criar o formulário;

[*]Aplicar o PureUpload através da aba "Aplication";

[*]Aplicar o "Insert" na aba "Aplication".

Depois que você aplica o PureUpload, o comando "Insert" o reconhece e associa. Caso contrário, acontecerá o que estava acontecendo comigo, o upload envia o arquivo ou imagem, mas não grava o nome do arquivo no banco de dados.

Chakan · Março 15, 2007

Oi gente.Eu adorei esse script do upload sem componentes. Estou usando ele e está tudo ok.Mas eu estou com uma dúvida, como eu altero ele para que ele, ao inves de inserir os dados, altere os dados dentro da tabela do bd?To tentando fazer aqui mas ainda nao tive sucesso.

Touche · Abril 12, 2007

Utilizo esse upload pra fotos e ele funciona blza... agora estou precisando para arquivos e ele ta "upando" legal porem na hora de recuperar o nome do arquivo e salvar no banco ele da esse erro, dando um response.write(SQL) eu percebi que o arquivo vai assim ???? e da erro.

Microsoft OLE DB Provider for SQL Server error '80040e14' Unclosed quotation mark before the character string '????'. /ins_cadastro.asp, line 48

Alguem pode me dizer o q ta de errado?

Marcello-Master · Abril 12, 2007

Galera apareceu o seguinte erro no momento de enviar o arquivo....

Erro de tempo de execução do Microsoft VBScript erro '800a0046' Permissão negada /teste/upload_form2.asp, line 35

E essa é a minha linha 35

if foto <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)For i = 1 to LenB(foto)MyFile.Write chr(AscB(MidB(foto,i,1)))NextMyFile.Closeend if

<!-- #include file = "upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------nome = UploadRequest.Item("nome").Item("Value")email = UploadRequest.Item("email").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("imagens/")nome_foto = "/"&nome_foto' pasta + nome dos arquivoscfoto = "imagens/lojas" + nome_foto         ' Fazendo o Upload do arquivo selecionado         if foto <> "" then         Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")         Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)         For i = 1 to LenB(foto)         MyFile.Write chr(AscB(MidB(foto,i,1)))         Next         MyFile.Close         end if' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("bd.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dadossql = "Insert into lojas (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')"Conexao.Execute(sql)' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"' Redireciona após 5 segundosresponse.write "<br><br>você será redirecionado em 5 segundos..<br>"response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"%>

Alguem saberia me dizer o que está de errado por favor....

Touche · Abril 12, 2007

Esse erro eh que você tem q dar permissão de escrita na pasta onde vai enviar os arquivos!

Marcello-Master · Abril 12, 2007

Eu já procurei verificar e essa com permição total...O engraçado que ele fala logo na linha 35

Touche · Abril 12, 2007

Respirei fundo e ajeite meu codigo o erro era: ao inves de pegar o nome do arquivo (nome_foto) eu pega ele (foto) ai ia pro banco todo criptografado...

jrcardozo · Abril 12, 2007

altere a linhanome_foto = "/"&nome_fotoparanome_foto = "\"&nome_foto

Marcello-Master · Abril 19, 2007

Valew era isso mesmo a barra estava sendo o problema

Obrigado deu certinho http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

ewb · Junho 18, 2007

COMO FAÇO PARA LISTAR AS IMAGENS GRAVADAS ?

O que há de errado no código abaixo ?

Por que não esta listando as imagens que são gravadas ?

<%

Dim sql

Dim rs

Dim conn

Dim userID,str

Set conn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.Recordset")

Conn.Open "DBQ=" & Server.Mappath("banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

str = "SELECT foto FROM tabela"

rs.Open str, conn,3,3

'Response.ContentType = "image/jpg"

Do While NOT RS.EOF

Response.ContentType = "image/jpeg"

Response.BinaryWrite rs("foto")

RS.MoveNext

Loop

rs.Close

conn.Close

set rs = Nothing

set conn = Nothing

%>

------------------------------------------------------------------------------------------------------------------

dark0 disse:

Olá pessoal.

Vou mostrar pra vcs como fazer upload sem componentes.

Eu precisei usar isso em um sistema que estou desenvolvendo, e, como sofri um pouco pra achar algo que funcionasse, vou postar aqui pra vocês como fazer.

Eu usei aqui 3 páginas pra isso.

Uma delas continha funções, usadas para fazer o upload.

Outra tinha o form, com campos texto e campos file.

E outra, com o código que cadastra no banco de dados, e que faz o upload.

Página Upload_funcoes.asp

Citar

<%

' 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 -----------------------------------------

%>

Pagina Upload_form.asp

Citar



<table>

<form name="form1" action="upload_form2.asp" method="post" enctype="multipart/form-data">

[tr]

<td>Nome:</td>

<td><input type="text" name="nome" size="20"></td>

[/tr]

[tr]

<td>E-mail:</td>

<td><input type="text" name="email" size="20"></td>

[/tr]

[tr]

<td>Foto:</td>

<td><input type="file" name="foto" size="14"></td>

[/tr]

[tr]

<td colspan="2">

<input type="submit" name="submit" value="Enviar">

</td>

[/tr]

</form>

</table>

Pagina upload_form2.asp

Citar



<%

' 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 ----------------------

nome = UploadRequest.Item("nome").Item("Value")

email = UploadRequest.Item("email").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos

cfoto = "imagens/lojas" + nome_foto

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("banco.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 lojas (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos

response.write "

você será redirecionado em 5 segundos..

"

response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"

%>

Bem. Se mudarem o nome dos arquivos. Vejam nos includes, no começo do código, e alterem para o nome alterado.

Para adicionar mais campos, é só seguir essa lógica aí.

Eu testei aqui, antes de postar, e funcionou beleza.

Eu testei isso, em Windows XP, rodando IIS.

Qualquer duvida, podem postar aí

Grande abraço,

Dark0!

Editando..

Como esse tópico cresceu bastante, é interessante darem uma lida em todo ele, pois tem muito mais conteúdo lá pra metade dele e pro final tb.

Mas, pra ajudar, estou colocando aqui, link para os posts interessantes.

- Passo a passo de como enviar mais de 1 arquivo ao mesmo tempo.

http://forum.imasters.com.br/index.php?s=&...st&p=417368

- Enviando e-mail após o upload, com o anexo que foi upado, com o Componente CDONTS/ASPMAIL.

http://forum.imasters.com.br/index.php?s=&...st&p=470918

Funções javascript para Verificar Extensões e Tamanho de Arquivo antes de enviar

http://forum.imasters.com.br/index.php?s=&...st&p=425468

Novo

Fazendo UPLOAD + Enviando E-mail com o anexo recem enviado pro servidor

http://forum.imasters.com.br/index.php?s=&...st&p=658611

Como listo as imagens gravadas ????

banditnunes · Junho 21, 2007

Ola galera bem achei muito bom este script mais estou com um problema aqui minhas imagens so estão sendo gravadas no c:/ sendo q em nenhum momento eu fiz referencia ao mesmo eu queria saber qual parte de meu codigo eu altero este destino

nome = UploadRequest.Item("nome").Item("Value")email = UploadRequest.Item("email").Item("Value")telefone = UploadRequest.Item("telefone").Item("Value")comentario = UploadRequest.Item("comentario").Item("Value")cel = UploadRequest.Item("cel").Item("Value")niver= UploadRequest.Item("niver").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("file").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("file").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("file").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("tio/")nome_foto = "/"&nome_foto' pasta + nome dos arquivoscfoto = "tio" + nome_foto' Fazendo o Upload do arquivo selecionadoif foto <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(tio & nome_foto) 'neste trecho tive q mudar o nome de pasta para tio pois dava a msg de erro caminho não encontrado)For i = 1 to LenB(foto)MyFile.Write chr(AscB(MidB(foto,i,1)))NextMyFile.Closeend if' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("contato.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao' cadastra os dados no banco de dadossql = "Insert into contato (nome,telefone,email,comentario,cel,niver,foto) values ('"&nome&"','"&telefone&"','"&email&"','"&comentario&"','"&cel&"','"&niver&"','"&cfoto&"')"Conexao.Execute(sql)' Mostra Mensagem de Confirmação na TelaResponse.write "Dados Cadastrados com Sucesso!"' Redireciona após 5 segundosresponse.write "<br><br>você será redirecionado em 5 segundos..<br>"response.write "<meta http-equiv='refresh' content='5; url=sucesso.asp'/>"%>

Boris · Agosto 10, 2007

Galera eu peguei esse codigo aqui e estou tendo o seguinte problema.

No momento que eu faço o envio aparece a seguinte mensagem.

Erro de tempo de execução do Microsoft VBScript erro '800a0046'

Permissão negada

/teste/upload_form2.asp, line 35

Citar



<%

' 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 ----------------------

nome = UploadRequest.Item("nome").Item("Value")

email = UploadRequest.Item("email").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos

cfoto = "imagens/lojas" + nome_foto

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(fotos & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("bd\bd.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 album (nome,email,foto) values ('"& nome &"', '"& email &"', '"& cfoto &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos

response.write "<br><br>você será redirecionado em 5 segundos..<br>"

response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"

%>

Alguem sabe o porque disso ...

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

jrcardozo · Agosto 10, 2007

você deve dar permissões de gravação na pasta que voc~e deseja salvar as imagens e que está setada no caminho do upload

Boris · Agosto 10, 2007

Eu já dei permissão total na pasta, mas não está rolando ...continua dando o mesmo erro;

filipescoob · Agosto 14, 2007

Galera ja estou respondendo e tirando uma duvida. Onde esta este include que esta no codigo 

Agora a resposta do Boris

Neste mesmo topico tem um erro parecido com este e éra referente ai barra...

Postado por: Jonathan Cardozo

altere a linhanome_foto = "/"&nome_fotoparanome_foto = "\"&nome_foto

Verifica ai ( A variavel Fotos tambem não achei no codigo. [red]Set MyFile = ScriptObject.CreateTextFile(fotos & nome_foto)[/red]

Abraços

Editado

Galera achei o arquivo no post abaixo

Codigo aqui

filipescoob · Agosto 14, 2007

Galera beleza... Copiei este mesmo codigo porem não funcionou alguem sabe me dizer o porque ?

filipescoob · Agosto 15, 2007

Consegui outro obrigado

Arquivado

Upload sem componentes

Recommended Posts

shumi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

cabecinha 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vcdias 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

vcdias 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Chakan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Touche 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcello-Master 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Touche 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcello-Master 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Touche 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marcello-Master 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

ewb 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

banditnunes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Boris 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1