Ciao
ho notato un paio di errori così al volo, e te li correggo, così poi riprovi e ci fai sapere:
Codice PHP:
<%
Dim objFS,objFolder,objFile
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
percorso = Server.MapPath("/public/profilo/")
Set objFolder = objFS.GetFolder(""&percorso&"")
Set Upload = Server.CreateObject("Persits.Upload")
Upload.ProgressID = Request.QueryString("PID")
Count = Upload.Save (percorso)
' This is needed to enable the progress indicator
Set File = Upload.Files("file1")
If Not File Is Nothing Then
filename=File.FileName
estensione=file.ext
estensione_ammessa=".jpg"
' questa riga >> if lcase(estensione_ammessa)<>estensione_ammessa then
'diventa
if lcase(estensione)<>estensione_ammessa then
file.delete
%>
<p align="center"><font face="Tahoma" size="2">[b]Il file ha un'estensione non ammessa![/b]</font></p><p align="center"><FORM action="caricaimmagine.asp?id=<%=request.querystring("id")%>" method="post"><p align="center"><input type="submit" value="Torna indietro"></font></p></form></p>
<%
else
nuovo_filename="profilo_"& request.querystring("id") & file.ext &""
' e questa riga >>if objFS.FileExists(Server.MapPath("/public/profilo/"&nuovo_filename&"")) then
'diventa
if objFS.FileExists(Server.MapPath("/public/profilo/"&nuovo_filename&""))=true then
objFS.DeleteFile (Server.MapPath("/public/profilo/"&nuovo_filename&""))
end if
'anche se in teoria non servirebbe, perché dovrebbe già aver cancellato il file la riga "file.delete"
'qui ti ho messo objFS al posto di FSO che usavi
if objFS.MoveFile (Server.MapPath("/public/profilo/"&filename&""))=true and objFS.MoveFile (Server.MapPath("/public/profilo/"&nuovo_filename&""))=false then
objFS.MoveFile (Server.MapPath("/public/profilo/"&filename&"")), (Server.MapPath("/public/profilo/"&nuovo_filename&""))
end if
Set fsoMyFile = nothing
Response.redirect("caricaOK.asp?id=" & request.querystring("id") &"&file="&nuovo_filename&"")
end if
end if
%>
Nel controllo dell'estensione c'era solo una svista...non mettevi la variabile "estensione" che contiene l'estensione del file caricato..
E poi nel controllo per poi eliminare il file con FSO, non mettevi la condizione:
lo elimini se esiste, quindi devi mettere "=true"
Lo stesso per quando lo rinomini, fai il doppio controllo: se esiste il file di origine e se non esiste nel percorso di destinazione, allora lo sposti.
Infine ti ho eliminato le righe dove riutilizzavi FSO ma valorizzando un'altra variabile inutilmente.
Prova
Rispondi quotando