Upload

[angus 0]

Como fazer um sistema de upload?

[Salgado 4]

Tipo assim, do zero?

Ou você tem algum componente de upload?

Se for do zero você tera que saber/ler algo sobre FSO.

Acho que tenho uns quardados que peguei na NET.

Se for por componente tem que saber qual.

 

 

Valeu?

[asp.net 0]

To enviando abaixo o código (seperado por páginas) utilizando o ASPSmartUpload.

 

==================CODIGO========================

 

==========FORMULÁRIO DE SELEÇÃO DO ARQUIVO

<form action="enviandofoto2.asp" method="post" enctype="multipart/form-data"> ' INFORMAÇÃO OBRIGATÓRIA, POIS DETERMINA QUE SERÃO ENVIADAS INFORMAÇÕES BINÁRIAS.

 

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

 

==================ENVIANDO O ARQUIVO PARA O SERVIDOR

 

<%Server.ScriptTimeOut=10000000%> '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("<B>Ocorreu um erro</>::" &Err.Description)

else

For Each file In UploadFoto.Files

nomefoto=File.FileName

next

response.redirect("enviandofoto3.asp?idfoto="&nomefoto&"")

end if

 

==========================SALVANDO ENDEREÇO/NOME DO ARQUIVO EM UM BANCO DE DADOS

 

idtfoto=Request.QueryString("idfoto")

 

Obrecordset.Open "fotos", Conexao, adOpenKeyset, adLockOptimistic

Obrecordset.AddNew

Obrecordset("foto")="fotos/"&idtfoto

Obrecordset("nome")=idtfoto

Obrecordset.Update

Fechar()

response.redirect("album.asp")