Sistema de Upload - Ideal para álbum

[asp.net 0]

Sistema de upload para envio de arquivos .jpg, salvando o endereço do arquivo no banco de dados, ideal para um álbum digital.

 

 

<span style='color:blue'>[b]==================CODIGO========================[/b]</span><span style='color:red'>==========FORMULÁRIO DE SELEÇÃO DO ARQUIVO</span><form action="enviandofoto2.asp" method="post" [b]<span style='color:red'>enctype="multipart/form-data</span>[/b]"> ' <span style='color:red'>INFORMAÇÃO OBRIGATÓRIA, POIS DETERMINA QUE SERÃO ENVIADAS INFORMAÇÕES BINÁRIAS.</span><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr> <td><input name="foto" type="file"> </td><td> </td></tr><tr> <td> </td><td></td></tr><tr> <td><input type="submit" name="Submit" value="Cadastrar Foto"></td><td> </td></tr></table></form> <span style='color:red'>==================ENVIANDO O ARQUIVO PARA O SERVIDOR</span><%Server.ScriptTimeOut=10000000%> 'AUMENTA O TEMPO PARA O ENVIO DO ARQUIVOSet UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")UploadFoto.AllowedFilesList="jpg" ' DETERMINA O TIPO DE ARQUIVO QUE PODE SER ENVIADOUploadFoto.DeniedFilesList = "bmp,tif,cdr,png" ' DETERMINA O TIPO DE ARQUIVO QUE NÃO PODE SER ENVIADOUploadFoto.MaxFileSize = 50000 ' DETERMINA O TAMANHO MÁXIMO DO ARQUIVOUploadFoto.TotalMaxFileSize =50000'nomefoto=UploadFoto.Files.Foto.Name ' PEGA O NOME DO ARQUIVO QUE ESTÁ SENDO ENVIADO.UploadFoto.Upload'IntCount = UploadFoto.Save("d:\imagens\")IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\")IF Err Thenresponse.Write("<B>Ocorreu um erro</>::" &Err.Description)elseFor Each file In UploadFoto.Filesnomefoto=File.FileNamenextresponse.redirect("enviandofoto3.asp?idfoto="&nomefoto&"")end if<span style='color:red'>==========================SALVANDO ENDEREÇO/NOME DO ARQUIVO EM UM BANCO DE DADOS</span>idtfoto=Request.QueryString("idfoto")Obrecordset.Open "fotos", Conexao, adOpenKeyset, adLockOptimisticObrecordset.AddNewObrecordset("foto")="fotos/"&idtfotoObrecordset("nome")=idtfotoObrecordset.UpdateFechar()response.redirect("album.asp")

[bufalino 0]

aproveitando esse codigo q envia a foto num diretorio,. Como fazer pra enviar tambem o nome do arquivo num banco de dados em access ??

[asp.net 0]

Este script acima também adiciona o endereço do arquivo num banco de dados.

[naoliveira 0]

Oi people,quando, numa form, se usa o enctype="multipart/form-data" não se pode usar uma text box ou checkbox ou elemento da form sem see o o file? É que eu preciso enviar umas fotos para o servidor é o utilizador que indica a directoria onde vão ficar as pastas, por exemplo, todas as fotos ficam em /fotos/(variavel)/aaa.jpg.Como faço para pedir ao utilizador esse directoria?Cumps,Nuno

[leozeferino 0]

Olá. Vi sua matéria e achei interessante. Tenho uma pergunta.Gostaria de fazer um formulário normal redirecionando ao meu e-mail mas gostaria que a pessoa através do formulario me mandasse algum arquivo. Acho que nem utiliza asp e acho que nem precisa do servidor. Voce sabe como faz isso?Espero resposta.Valewss!

[ricardo coelho designer 0]

Boa Tarde!!

Meu nome é Ricardo, estou começando no asp e gostaria de saber se tem essa versão para download pois acabei apanhando desse tutorial pois deu um erro que apareceu os seguintes textos...

 

'AUMENTA O TEMPO PARA O ENVIO DO ARQUIVO Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload") UploadFoto.AllowedFilesList="jpg" ' DETERMINA O TIPO DE ARQUIVO QUE PODE SER ENVIADO UploadFoto.DeniedFilesList = "bmp,tif,cdr,png" ' DETERMINA O TIPO DE ARQUIVO QUE NÃO PODE SER ENVIADO UploadFoto.MaxFileSize = 50000 ' DETERMINA O TAMANHO MÁXIMO DO ARQUIVO UploadFoto.TotalMaxFileSize =50000 'nomefoto=UploadFoto.Files.Foto.Name ' PEGA O NOME DO ARQUIVO QUE ESTÁ SENDO ENVIADO. UploadFoto.Upload 'IntCount = UploadFoto.Save("d:\imagens\") IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\") IF Err Then response.Write("Ocorreu um erro::" &Err.Description) else For Each file In UploadFoto.Files nomefoto=File.FileName next response.redirect("enviandofoto3.asp?idfoto="&nomefoto&"") end if

no corpo da pagina 2... poderia me ajudar pois este codigo é muito importante....

[romulorasec 0]

aproveitando esse codigo q envia a foto num diretorio,. Como fazer pra enviar tambem o nome do arquivo num banco de dados em access ??

Amigo gostaria que explica-se um pouco melhor esse tutorial, de como fazer u up da img, e gravar no bd. Se puder colocar para download

[Superwagtel 1]

Por favor, me explica este trecho onde é feito o UpLoad:

 

'IntCount = UploadFoto.Save("d:\imagens\")

IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\fotos\")

 

 

 

Por que repete?

Este seria o enderêço da pasta de imagens no servidor?

por exemplo

C:\Inetpub\wwwroot\hardware\pasta\

 

Em que trecho deste código é inserido o nome da imagem no banco access?

Como faço para que a imagem mude de nome para que não ocorra repetição?

[estranho.com 0]

<%

sub verificaPasta(caminho)

dim FSO, fa

set FSO = Server.CreateObject ("Scripting.FileSystemObject")

if not FSO.FolderExists(caminho) then

set fa = FSO.CreateFolder(caminho)

set fa = nothing

end if

set FSO = nothing

end sub

 

call verificaPasta(caminhoFisico)

%>

 

criar pasta se nao tiver... te mais