Ciao Ragazzi,
qualcuno sa come fare l'upload di un file in locale?
mi spiego, se lo faccio sul server aruba tutto ok,funziona perfettamente, ma se cerco di farlo in locale nada...!
ecco il codice..
<%
Response.Expires=1000
Response.Buffer = true
Response.Clear
'************************************************* ********************
' UPLOAD DEL FILE
%>
<%
'Creiamo l'oggetto FileUploader ed assegnamogli il nome Uploader
Dim Uploader, File, corpoMessaggio, numeroCampi, msg
Set Uploader = New FileUploader
'Impostiamo la dimensione max del file in byte
Uploader.maxSize = 500000 'in byte
'Impostiamo il tipo di file ammessi
Uploader.fileExt = "jpg,gif,bmp,txt,doc,pdf,zip"
'Iniziamo il processo di upload
Uploader.Upload()
'------------Recupero campi del form
idUtente = Uploader.Form("id")
'------------Recupero file
'Impostiamo la cartella in cui andranno memorizzati i file di upload
'strPath = Server.MapPath("../public/curriculum/")
strPath = Server.MapPath("../public/curriculum/")
'Controlliamo se sono stati inviati dei file
If Uploader.Files.Count = 0 Then ' Nessun file inviato
If Uploader.Error Then ' file allegato non ammesso
msg = "file allegato non ammesso"
End If
Else
' Ciclo tra i file inviati...
' ...In questo esempio già so che ce ne sarà solo uno, quindi
' dichiaro un riferimento di tipo file e lo associo fuori
' dal for così lo posso usare dopo...
Dim objFSO, objFolder, objFile
Set objFSO = server.createobject("Scripting.FileSystemObject")
For Each File In Uploader.Files.Items
'Salvo il file
File.SaveToDisk strpath
dim estensioneFile
estensioneFile = right(File.FileName,4)
File.FileName
nome = "curriculum_" & idUtente & estensioneFile
if (objFSO.FileExists(strpath & nome)) then
objFSO.DeleteFile strpath & nome
end if
'response.write strpath & nome
'objFSO.moveFile strpath & "/" & File.FileName, strpath & nome
'-------------------------------------------------------------
Next
Set Uploader = Nothing
End If
if (objFSO.FileExists(strpath & nome)) then
response.write "
<p align=center><font face=verdana size=3 color=#000080>Il curriculum e' stato inserito!</font></center>"
response.write "
<p align=center><font face=verdana size=1 color=#000080>[b]torna all' elenco</font></p>"
else
response.write "
<center><font face=verdana size=3 color=#000080>Il curriculum non e' stato inserito!</font></center>"
response.write "
<p align=center><font face=verdana size=1 color=#000080>[b]<a href=javascript:history.back();>torna all' elenco</a></font></p>"
end if
'************************************************* ************
' RICORDARE DI LIBERARE LE RISORSE objfolder e objfso !
'************************************************* ************
'elimino il file temporaneo e libero le risorse
if objFile <> "" then
objFile.delete
end if
set objfolder = Nothing
set objfso = nothing
%>
Rispondi quotando
