Newsgroup: it.comp.www.asp
Titolo: Upload e timeout

facendo l'upload di un file di circa 300 kb mi esce sempre l'errore timeout
anche impostando Server.ScriptTimeout = 300
con file fino 150/200 kb nessun problema ma salendo cambia tutto, lo script
che uso č sotto riportato, vorrei sapere se ci sono altri metodi
gratuiti per rendere l'upload piů rapido o se devo modificare qualcosa nel
codice.
Grazie
 ' Scrittura file fisico
 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,"testo1") > 0 then
   testo1 = ContenutoFile
  end if
  if instr(Intestazione,"DescrCliente") > 0 then
   DescrCliente = ContenutoFile
  end if
  if instr(Intestazione,"IDCliente") > 0 then
   IDCliente = ContenutoFile
   percorso = percorso & IDCliente & "\"
  end if
  ' Qui recupero il file da uploadare (se presente) e lo scrivo
  ' sul server
  if 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")
    if fso.FolderExists(server.mappath(percorso)) then
     'Response.Write "Folder " & server.mappath(percorso) & " exists!" &
"<BR>"
    else
     'Response.Write "Creating folder " & server.mappath(percorso) & "<BR>"
     fso.CreateFolder  server.mappath(percorso)
    end if
    Upload1 = True
    DimensioneFile1 = len(ContenutoFile)
    EstensioneFile1 = right(ContenutoFile,3)
    NomeFile1 = NomeFile
    NomeFile1 = UniqueID & "_" & NomeFile1
       Set textStream = FSO.CreateTextFile(server.mappath(percorso &
NomeFile1), True, False)
    textStream.Write ContenutoFile
       textStream.Close
       Set textStream = Nothing
       Set FSO = Nothing
        end if
  end if
 next

 script che uso č sotto riportato, vorrei sapere se ci sono altri
il problema e' proprio perche' utilizzi uno script...
per risolvere il problema a monte devi utilizzare un componente che ci mette
menu di 1/10 del tempo per elaborare l'upload e non ha problemi di
timeout... purtroppo i linguaggi di scripting non sono utili per
elaborazioni troppo lunghe... anche perche' non nascono per questo ma
piuttosto come collante fra oggetti COM...
ciao
--
Lino Mari [mod - it.economia.e-commerce]
http://www.ebow.it
 - e-business on web!
http://www.dev2dev.it
 - La rete ha connesso nuove particelle - d2D004
http://corsi.aspitalia.com
 - ASP - 
ASP.NET
, riconosciuti IWA
Gli amici vanno e vengono.
Ma alcuni, i piů preziosi, rimarranno.

Strano... io ho "uppato" files ancora + grandi (500 KB) senza problemi...
Prova ad alzare ancora ScriptTimeout
Ciao!
M