upload di file pesanti

[scura]

Dovrei fare uploadare file molto pesanti , fino a 3 Mb in un data , io ho il solito script per uplodare i file copiato, capito e scordato (scherzo) da freeASP, solo che credo bisogna aumentare il tempo massimo di esecuzione dello script solo perchè ne ho sentito parlare , ma non so assolutamente come si fa

Chia mi sa rispomdere?

[kalosjo]

oldtimeout=session.timeout
session.timeout=99



......



session.timeout=oldtimeout



La prima parte a inizio pagina, la seconda a fine per ripristinare le cose

[lukeonweb]

Aggiungi queste due funzioni all'inizio della pagina che esegue l'upload

Function RSBinaryToString(xBinary)
  Dim Binary
  If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary
  
  Dim RS, LBinary
  Const adLongVarChar = 201
  Set RS = CreateObject("ADODB.Recordset")
  LBinary = LenB(Binary)
  
  If LBinary>0 Then
    RS.Fields.Append "mBinary", adLongVarChar, LBinary
    RS.Open
    RS.AddNew
      RS("mBinary").AppendChunk Binary 
    RS.Update
    RSBinaryToString = RS("mBinary")
  Else
    RSBinaryToString = ""
  End If
End Function

Function MultiByteToBinary(MultiByte)
  Dim RS, LMultiByte, Binary
  Const adLongVarBinary = 205
  Set RS = CreateObject("ADODB.Recordset")
  LMultiByte = LenB(MultiByte)
  If LMultiByte>0 Then
    RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte
    RS.Open
    RS.AddNew
      RS("mBinary").AppendChunk MultiByte & ChrB(0)
    RS.Update
    Binary = RS("mBinary").GetChunk(LMultiByte)
  End If
  MultiByteToBinary = Binary
End Function

[scura]

1000 grazie....
ma tu come fai a rispondere a tutte le discussioni? Veramente rispondi anche a questo sono curiosa!

[lukeonweb]

Non credo ci sia un perchè, quando so come fare qualcosa lo dico, tutto qui

[scura]

ma tu lavori mentre fai questo?

[lukeonweb]

Si

ed anche parecchio... oggi ho un sacco di problemi

Li risolverò :sexpulp:

[scura]

Mitico!!!! chissà magari un giorno anche io potrò aiutare qualche utente Junior in difficoltà ..Per il momento ringrazio tutti quelli come te.
Baciotti e buon lavoro

[lukeonweb]

Anche a te