Categorias

  Todas as Categorias
  Configuração de E-mails
  Google Adwords
  Hospedagem de Sites
  Painel de Controle
  Registro de Domínios
  Segurança
  Serviços
  Stream de Áudio e Vídeo
  Suporte Técnico
  Webmail
  Fazer upload de arquivos sem uso de componentes

  13/12/2014  

Com este código é possível realizar o Upload do arquivo, da máquina do cliente para o servidor web sem a necessidade de um componente especial para isso.

O único componente requerido, mas que já é padrão nos servidores IIS que rodam ASP é o FileSystemObject.

  1. <!Crie uma página que contém o formulário onde existem os elementos do tio "File" como abaixo: >
  2.  
  3. <html>
  4. <head>
  5. 	<title>Upload sem componente</title>
  6. </head>
  7.  
  8. <body>
  9.  
  10. <form action="upload.asp" method="post" enctype="multipart/form-data">
  11. E-mail: <input type="text" name="txtEmail"><br>
  12. Arquivo 1: <input type="file" name="txtArquivo1"><br>
  13. Arquivo 2: <input type="file" name="txtArquivo2"><br>
  14. <input type="submit" name="Enviar" value="Enviar">
  15. </form>
  16.  
  17. </body>
  18. </html>
  19.  
  20. <!O formulário estará chamando a página upload.asp, especificada no atributo action do elemento FORM.
  21. Segue abaixo o código da página upload.asp. >
  22. <%@ Language=VB %>
  23. <%
  24. Dim Contador, Tamanho
  25. Dim ConteudoBinario, ConteudoTexto
  26. Dim Delimitador, Posicao1, Posicao2
  27. Dim ArquivoNome, ArquivoConteudo, PastaDestino
  28. Dim objFSO, objArquivo
  29.  
  30. PastaDestino = Server.MapPath("/temp/upload")
  31.  
  32. 'Determina o tamanho do conteúdo
  33. Tamanho = Request.TotalBytes
  34.  
  35. 'Obtém o conteúdo no formato binário
  36. ConteudoBinario = Request.BinaryRead(Tamanho)
  37.  
  38. 'Transforma o conteúdo binário em 
  39. For Contador = 1 To Tamanho
  40.   ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1)))
  41. Next 
  42.  
  43. 'Determina o delimitador de campos
  44. Delimitador = Left(ConteudoTexto, InStr(ConteudoTexto, vbCrLf) - 1)
  45.  
  46. 'Percorre a  procurando os campos
  47. 'identifica os arquivo e grava no disco
  48. Set objFSO