Ciao a tutti di seguito riporto la pagina che si dovrebbe occupare dell'upload delle immagini, purtroppo mi sono reso conto che non funziona sempre, se provo ad uploadare immagini grosse mi rimane in esecuzione senza mai portare a termine l'operazione, mentre con immagine piccole va bene, qualcuno sa aiutarmi?


<%

percorso = "/"

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)

' Recupero i campi se sono compilati
if instr(Intestazione,"txtTitolo") > 0 then
if ContenutoFile = "" then
Titolo=""
else
Titolo = ContenutoFile
end if
end if


if instr(Intestazione,"txtFoto") > 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("images/" & NomeFile1), True, False)
textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if

next

End if
%>

Ciao
Alessandro

Ciao,
ho un problema di timeout.
Il problema è che posso mettere anche 20 minuti x l'esecuzione dello script...che comunque mi torna l'errore.
Mi è sorto il dubbio che ci possa essere una qualche limitazione nella configurazione del server web che non permetta l'upload di file di dimensioni oltre x Kb.
(E' possibile questo?)

Quando faccio l'upload vedo che il caricamento della pagina si ferma a metà e non va' più avanti.

Purtroppo in questo server non riesco ad installare nessun componente...l'avrei già fatto se avessi potuto.

Sigh!

Ciao
alessandro

Purtroppo con file di grosse dimensioni il problema del timeout può sempre sussistere. Penso che l'unica possibilità sia di aumentare il tempo di timeout, se ne hai la possibilità

Strano. Io mi riferivo a file di grosse dimensioni (4-5 mega) ma 200K è veramente limitante. A questo punto penso non sia più un problema di script ma il server troppo lento. Lo script che uso io in puro asp regge benissimo fino a molti mb.