UPLOAD ASP: Problemi di grandezza file?

schizzechea

Nuovo Utente
6 Mar 2004
29
0
0
45
www.schizzechea.it
Salve!!
qualcuno di buon cuore sa se uilizzando lo script per l'upload su server Aruba ci sono limitazioni sulla grandezza del file da scaricare o se ci sono delle limitazione dell' l'oggetto: Request.TotalBytes

Ho un applicazione su server aruba dove si effettuano degli Upload tramite form e codice Asp, riesco a scaricare file non superiori a circa 1,2 MB come è possibile??

Grazie
:hammer:
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
Aruba dovrebbe avere delle DLL ad hoc per l'upload che non soffrono dei limiti della procedura pura du upload... controlla!

Comunque si, ci sono dei limiti di pochissimi mega...
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
col 56 kb puoi avere anche il miglior sistema di upload del mondo, ma 2 mb, ad esempio, sono sempre 2 mb :)

per questo si può aumentare il timeout dello script...

dai mi piace sta discussione sull'upload in asp! quanto lo odio :D
 

lukeonweb

Utente Attivo
5 Mar 2003
5.177
10
38
43
Napoli
www.lucaruggiero.it
tempo fa usai lo script di cui all'articolo su freeasp di html.it e sul loro forum mi diedero un paio di funzioni da integrare allo script per risolvere problemi di gigantismo dei file da uploadare

posto il codice completo del file asp che esegue l'upload

(c) html.it

-------------------------------------------------

<%
dim Upload1
dim nomeFilemio
dim nomeDescrittivo

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



Upload1=false
percorso=Server.MapPath("allegati/download")
ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
DatiRicevuti = Request.BinaryRead(ByteRicevuti)
FileBinario = RSBinaryToString(DatiRicevuti)
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)

if instr(Intestazione,"testo1") > 0 then
testo1 = ContenutoFile
end if

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

'mioInizio = instr(ArrPezzi(2),"" & vbCrLf & "" & vbCrLf)
'mioIntestazione = left(ArrPezzi(2),mioInizio-1)
'mioInizio = mioInizio + len("" & vbCrLf) + len("" & vbCrLf)
'mioContenutoFile = mid(ArrPezzi(2),mioInizio,len(ArrPezzi(2))-mioInizio-1)


mioInizioDescr = instr(ArrPezzi(2),"" & vbCrLf & "" & vbCrLf)
mioIntestazioneDescr = left(ArrPezzi(2),mioInizioDescr-1)
mioInizioDescr = mioInizioDescr + len("" & vbCrLf) + len("" & vbCrLf)
mioContenutoFileDescr = mid(ArrPezzi(2),mioInizioDescr,len(ArrPezzi(2))-mioInizioDescr-1)
nomeDescrittivo=mioContenutoFileDescr

if i<>0 then
Set FSO = CreateObject("Scripting.FileSystemObject")
Upload1 = True
DimensioneFile1 = len(ContenutoFile)
'EstensioneFile1 = right(ContenutoFile,3)
EstensioneFile1 = right(NomeFile,4)
'if mioContenutoFile<>"" then
'NomeFile1 = mioContenutoFile
'else
NomeFile1 = left(NomeFile,len(NomeFile)-4)
'end if
'Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)

Set textStream = FSO.CreateTextFile(Server.MapPath("allegati/download") & "/"&NomeFile1&EstensioneFile1, True, False)

textStream.Write ContenutoFile
textStream.Close
Set textStream = Nothing
Set FSO = Nothing
end if
end if
next
End if
%>
 
Discussioni simili
Autore Titolo Forum Risposte Data
L Modifica file upload in ASP Classic ASP 1
S [ASP.Net] [ASP] Upload Image ASP.NET 6
M [ASP] Upload file da form controllo Classic ASP 5
T [ASP] upload file Classic ASP 3
M modifica persist asp upload Classic ASP 7
P asp upload image con resize peso senza componenti? Classic ASP 0
A Aiuto per upload asp e/o html Classic ASP 10
voldemort ASP Upload Classic ASP 4
V Problema con Pure Asp Upload Classic ASP 4
PoLe Upload ASP.NET non funziona con IE8 ASP.NET 2
voldemort Upload asp senza dll Classic ASP 1
M Upload con ASP.Net ASP.NET 1
U upload delle immagini con ASP Classic ASP 5
A asp upload immagine Classic ASP 2
T upload asp Classic ASP 23
M asp: errore nell'upload di file di grandi dimensioni Classic ASP 3
T UpLoad in puro .asp Classic ASP 0
Cosina Creare bottone delete in form upload PHP 4
Cosina Creare bottone delete in form upload PHP 1
Cosina Upload multiplo con invio allegati per email PHP 0
Cosina Upload multiplo con archiviazione in cartella PHP 16
P Script upload immagini jQuery 0
L upload image tramite url e cache PHP 10
W Non fa l'upload PHP 0
L Upload di un'immagine all'interno di un database usando php PHP 6
S Upload file senza doverlo selezionare PHP 2
P Upload foto cover e profilo jQuery 0
G Upload file error Apache 0
R Modifica codice per l'upload di più file PHP 0
S [PHP] Upload stesso file PHP 14
max1974 [Javascript] dropzone upload to server Javascript 0
F [PHP] Informazioni upload PHP 11
G [PHP] upload file in server: percorso cartella PHP 2
M Upload 4 file php PHP 11
D [PHP] Upload intera cartella PHP 2
felino [PHP] Uploadify: upload immagini PHP 0
M [PHP] Nome file, upload e rinominare PHP 2
R Configurazione upload ftp su dvr IP Cam e Videosorveglianza 3
M [PHP] upload di un file esistente overwrite PHP 1
N [PHP] Test per l'upload di file attraverso un bot Telegram PHP 2
L [PHP] problema con upload e javascript (upload multiplo) Javascript 2
L [PHP] upload con errore PHP 2
V [PHP] Upload Excel in db PHP 0
jailbait [PHP] Upload immagine e stampa a schermo PHP 0
G PHP upload dati ed immagine PHP 7
F [PHP] Validare form prenotazione appuntamento tattoo con upload image PHP 0
D [PHP] Upload encrypt image PHP 0
C [PHP] Problema upload file (multiplo) PHP 1
P [PHP] Upload multiplo PHP 4
N [PHP] Problema upload immagini wordpress PHP 2

Discussioni simili