Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

rodrigo-es

Upload de imagens cliente-servidor

Por , em ASP Clássico

Recommended Posts

rodrigo-es    0

rodrigo-es
Postado

Olá, Preciso colocar em meu site um campo (form - type=file) para armazenar imagens (pequenas até 50 k) em uma pasta chamada "images" no servidor. Como realizo esse tipo de upload em ASP? Alguém tem esse código? Sem utilizar componente nem arquivos dll.Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

asp.net    0

asp.net
Postado

formulário;;;;;;;;;;;;;;;;;;;;;;;;;;<form action="enviandofoto2.asp" method="post" enctype="multipart/form-data"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> </td> <td> </td> </tr> <tr> <td><font color="#FF0000" size="2" face="Tahoma, Verdana, Arial Unicode MS"><strong>Para enviar uma foto sua para o álbum da Valeu Boi, basta clicar no botão procurar, achar a foto que você deseja enviar para nós e clicar depois em cadastrar foto. As fotos só serão aceitas no formato JPGE (.jpg) e com tamanho máximo de 60 kb. É necessário o usuário ser cadastrado para enviar as fotos.</strong></font></td> <td> </td> </tr> <tr> <td> </td> <td> </td> </tr> <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> Upload;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;Set UploadFoto=Server.CreateObject("aspSmartUpload.SmartUpload")UploadFoto.AllowedFilesList="jpg,gif"UploadFoto.DeniedFilesList = "bmp,tif,cdr,png,exe,zip,png,txt"UploadFoto.MaxFileSize = 100000'nomefoto=UploadFoto.Files.Foto.NameUploadFoto.Upload'IntCount = UploadFoto.Save("d:\imagens\")IntCount = UploadFoto.Save("d:\web\valeuboi\htdocs\classificados\imagens\")IF Err Then response.Write("<B>Ocorreu um erro</>::" &Err.Description)else 'response.redirect("cadfotobanco.asp?idcarro="&Request.QueryString("id_carro_foto")&"&idfoto="&nomefoto&"") sql_buscacarrofoto="Select id, foto from veiculo where id="&id_carro_foto ObjConCarros.Open sql_buscacarrofoto if Not(ObjConcarros.BOF and ObjConCarros.EOF) then For each file in UploadFoto.Files ObjconCarros("foto")="d:\imagens\"&File.FileName next end if ObjConCarros.Update ObjConCarros.Closeend ifCADASTRO NO BANCO DE DADOS;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Dim ft, caminhofoto caminhofoto=ft&Trim(request.form("caminhoft")) ft=Trim(request.form("nomeft")) Obrecordset.CursorLocation = adUseServer Obrecordset.CursorType = adOpenKeySet Obrecordset.LockType = adLockOptimistic ObRecordset.Open "fotos", Conexao, , ,adCmdTable ObRecordset.Addnew ObRecordset("foto")=caminhofoto Obrecordset("nome")=ft ObRecordset.Update ObRecordset.Close Set Con=nothing Set ObRecordset=nothing%> <html>Nome da Foto: <%=ft%><br>Caminho da Foto:<%=caminhofoto%></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

asp.net    0

asp.net
Postado

Geralmente os provedores já disponibilizam para os clientes códigos de exemplos, veja junto ao seu provedor se existe algum código de ASPUpload. Ou então procure no codigolivre.com.br superasp.com.br freecode.com.br, aspbrasil.com.br um exemplo.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito