Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%
- 'Instancia o componente
- SET SaFileUp = Server.CreateObject("SoftArtisans.FileUp")
- 'Configura o caminho onde arquivo será salvo
- SaFileUp.Path = "e:\home\LoginFTP\Web\novodir\cl_imagens\"
- 'Para Revenda substitua o caminho físico para E:\vhosts\SEU_DOMINIO_COMPLETO\httpdocs\
- 'Você pode usar também o caminho relativo se preferir
- 'SaFileUp.Path = Server.MapPath("./upload/")
- '## ATIVA O TRATAMENTO DE ERRO ##
- 'Caso o usuário não indique um arquivo para upload, informa erro.
- If SaFileUp.IsEmpty Then
- response.write "<center>Por favor, indique um arquivo para upload.</center><br>"
- Else
- 'Salva o arquivo no servidor
- SaFileUp.Save
- response.write "<center>Total de Bytes Enviados: " & SaFileUp.TotalBytes & "</center>"
- End if
- Set SaFileUp = Nothing kkkkkkkkkk
- %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement