Advertisement
Guest User

Untitled

a guest
Sep 29th, 2017
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 0.87 KB | None | 0 0
  1. <%
  2.         'Instancia o componente
  3.         SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
  4.  
  5.             'Configura o caminho onde arquivo será salvo
  6.             SaFileUp.Path = "e:\home\LoginFTP\Web\novodir\cl_imagens\"
  7.                         'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
  8.  
  9.             'Você pode usar também o caminho relativo se preferir
  10.             'SaFileUp.Path = Server.MapPath("./upload/")
  11.  
  12.                         '## ATIVA O TRATAMENTO DE ERRO ##
  13.             'Caso o usuário não indique um arquivo para upload, informa erro.
  14.             If SaFileUp.IsEmpty Then
  15.                     response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
  16.             Else
  17.                 'Salva o arquivo no servidor
  18.                 SaFileUp.Save
  19.                 response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
  20.             End if
  21.  
  22.         Set SaFileUp = Nothing kkkkkkkkkk
  23.         %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement