ciao a tutti, io uso uno script che mi fa un upload di un file.Lo script funziona solo che vorrei controllare le dim del file prima di fare un upload.
Se supera esempio 50 kb vorrei inserire un response.redirect.
Questo è un pezzo di uno script di lorenzo pascucci dal sito webmastepoint..
--------------------------------------
'controllo tipo immagine
tipo = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"."))
'cambiare la scrita zip e gz qui sotto per inserire la sigla di un altro tipo di file
'Se si vuole permettere l'upload di qualsiasi tipo di file cancellare o commentare
'le successive 4 linee di codice e l'ultimo END IF della pagina upload.asp
If tipo <> "zip" AND tipo <> "gz" then
Response.Write ("Errore Upload. Non è possibile fare upload di un file ." & tipo)
Response.End
else
' calcolo del peso della immagine
'imposta qui, il peso max. 9000 vuol dire 9 Kb circa
IF byteCount > 9000 THEN
Response.Write ("Errore Upload. File troppo grande!")
Response.End
else
---------------------------
Questo sotto invece è la parte vitale dello script che uso io al quale non so come inserire un controllo file..
-------------------------------
ByteRicevuti = Request.TotalBytes
if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
For i = 1 To lenB(DatiRicevuti)
FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next
FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
ArrPezzi = split(FileBinario,FirmaFile)
for item = 1 to ubound(ArrPezzi)-1
Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
Intestazione = left(ArrPezzi(item),Inizio-1)
Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)
f instr(Intestazione,"file1") > 0 then
i = instr(Intestazione,"filename=")
j = instr(i + 10,Intestazione,chr(34))
NomeUpload = mid(Intestazione,i + 10,j-i-10)
i = instrRev(NomeUpload,"\")
if i<>0 then
NomeFile = mid(NomeUpload,i + 1)
else
NomeFile = NomeUpload
end if
if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
EstensioneFile1 = right(ContenutoFile,3)
NomeFile1 = NomeFile
Set textStream = FSO.CreateTextFile(server.mappath("fotocampernuovi ")&"\"&nomefile1)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
next
---------------------------------
Mi potete dare una mano a unire le 2 cose?
Grazie ciao
Rispondi quotando
