E:
/
home
/
kbcomunicacao1
/
Web
/
sistema
/
filemanager
/
Upload File
HOME
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> <% Dim fileUpload Set fileUpload = Server.CreateObject("SoftArtisans.FileUp") fileUpload.Path = "e:\home\kbcomunicacao1\Web\destaques\" fileUpload.MaxBytes = 50000000 If IsObject(fileUpload.Form("nicImage")) Then If Not fileUpload.Form("nicImage").IsEmpty Then fileUpload.Form("nicImage").Save Response.Write "O arquivo foi salvo em: " &_ fileUpload.Form("nicImage").ServerName & " <br />" Response.Write "A descrição para essa foto é: " &_ fileUpload.Form("descrip") Else Response.Write "Nenhum arquivo foi selecionado" End If Else End If response.Redirect("index.php") %> </body> </html>