Upload massimo

[Victorval]

Salve a tutti...

Ho creato uno script che mi permette di fare l'upload, il problema è che si limita a pochi kb massimi.
Si potrebbero aumentare, ma il fornitore del server non lo vuole fare per problemi di sicurezza.
Mi ha detto che, però, si potrebbero fare degli append, cioè dividere il file in più parti e poi riunirle... Ma come?

Il mio script attuale è questo, nel caso interessasse:

ByteRicevuti = Request.TotalBytes
percorso_file="../upload/"

if ByteRicevuti > 0 then
    DatiRicevuti = Request.BinaryRead(ByteRicevuti)
    For i = 1 To lenB(DatiRicevuti)
    'la funzione Mid che normalmente restituisce il numero di caratteri specificato di una stringa verrà utilizzata come MidB in modo da poterla utilizzare con i dati byte inclusi in una stringa
        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

        ' Nel caso in cui fossero presenti piu campi basta duplicare
        ' la condizione cambiando unicamente il nome del campo
        ' es.
        if instr(Intestazione,"id") > 0 then
            id = ContenutoFile
        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
            filename=NomeFile
              if NomeFile<>"" then
                Set FSO = CreateObject("Scripting.FileSystemObject")
                Upload1 = True
                DimensioneFile1 = len(ContenutoFile)
                EstensioneFile1 = right(ContenutoFile,3)
                NomeFile1 = NomeFile
                Set textStream = FSO.CreateTextFile(server.mappath(percorso_file&NomeFile1), True, False)
                textStream.Write ContenutoFile
                textStream.Close
                Set textStream = Nothing
                   Set FSO = Nothing
           end if
        end if
    next 

Come fare?
Mi ha anche consigliato di usare coldfusion, ma poi non riuscire a prelevare altri dati che arrivano dal form di partenza...

[Santino83_02]

usando l'upload di baol74 puoi caricare parecchi MB, in genere è sempre andato bene a tutti e volendo puoi anche impostare il limite di upload

lo trovi anche con google