Come posso impostare il limite massimo di upload a 5mb con l'oggetto persists?
Con eventuale errore se il file sia maggiore di 5 mb, nonchè ho notato che con questo script cui ho messo l'estensione obbligatoria : jpg, sono riuscito a caricare anche un file bmp????
Potete aiutarmi per entrambi le situazioni?
ecco lo script che utilizzo:
codice:
<% 

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" 
if lcase(estensione_ammessa)<>estensione_ammessa then 
file.delete

%>
 





<p align="center"><font face="Tahoma" size="2">Il file ha un'estensione non ammessa!</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 &"" 

if objFS.FileExists(Server.MapPath("/public/profilo/"&nuovo_filename&"")) then 
objFS.DeleteFile (Server.MapPath("/public/profilo/"&nuovo_filename&"")) 
end if

Dim fsoMyFile 
Set fsoMyFile = Server.CreateObject("Scripting.FileSystemObject") 
fsoMyFile.MoveFile (Server.MapPath("/public/profilo/"&filename&"")), (Server.MapPath("/public/profilo/"&nuovo_filename&"")) 
Set fsoMyFile = nothing 


    Response.redirect("caricaOK.asp?id=" & request.querystring("id") &"&file="&nuovo_filename&"") 
end if 
end if 
%>
Grazie
G.