Limitare le dimensioni di un allegato

[vincenza]

Ciao

vorrei poter limitare le dimensioni di un allegato (sia in Kb che in px ... che ne so per le foto vorrei poter dire 'max 200x150' ...)

tempo fa mi consigliarono questo codice (per limitare il file a max 100 Kb)

file = Request.Form("file_da_allegare")
Set objFSO = Server.CreatObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(file)
dimensione = Round(objFileSize/1000,0)
If dimensione > 100 Then
'scrivi avviso che non è possibile caricare
Else
'codice per caricare il file
End If


'objFile.Size indica i valori in byte quindi 12000 equivale a circa 12 Kb ....

ma questo codice

1. ha caricato lo stesso un file di 1 megabyte!!!!

2. lo ha caricato al di fuori della mia root sul server ... cioé, avendo io uno spazio a pagamento, ha caricato il file al difuori del mio spazio e i gestori hanno dovuto cancellarmelo ... ( )

qualcuno conosce metodo migliore e, soprattutto, SICURO?

enza

[viki1967]

if (Dimensione*0.001) < 100 then

[vincenza]

ok ... e per la questione che scrive fuori dalla cartella?

io per l'upload uso questo codice

dim Upload, comodofile, conn, url
 
Set Upload = Server.CreateObject("Persits.Upload.1") 


set conn=server.createobject("ADODB.Connection")

conn.open("DRIVER={microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("../../dati/utente.mdb"))

Upload.Save "D:\enza.medina.name\enza.medina.name\LCMS\www\upload"

comodofile=Upload.Files(1).FileName

Upload.Files.Item(1).SaveAs(server.MapPath("../upload/" &comodofile)) 

url = comodofile
	
conn.execute("UPDATE profili SET foto='"& url &"' WHERE idiscritto="& session("id") &"")

conn.close

set conn=nothing

set Upload=nothing

enza

[viki1967]

Non conosco lo script che utilizzi... dovresti provare a farti stampare il percorso... tipo:

response.write Upload.Files.Item(1).SaveAs(server.MapPath("../upload/" &comodofile)):response.end

e vedere in realtà qual'è il reale percorso dove viene caricato il file...

[vincenza]

ok, provo

enza