Pagina 2 di 3 primaprima 1 2 3 ultimoultimo
Visualizzazione dei risultati da 11 a 20 su 28

Discussione: upload file multiplo

  1. #11
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Nulla purtroppo


    • Tipo di errore:
      Errore di run-time di Microsoft VBScript (0x800A01B6)
      Proprietà o metodo non supportati dall'oggetto: 'key'
      /miei/cswm/salvamultiplo.asp, line 83
    • Tipo di browser:
      Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.112 Safari/537.36
    • Pagina:
      POST 11991 bytes to /miei/cswm/salvamultiplo.asp
    • POST Data:
      error '80020009'


    Comunque hai capito esattamente il mio problema.
    Avendo questo campo ho risolto


  2. #12
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,021
    posta lo script intero

  3. #13
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Response.Write "FormKey: " & Uploader.key

    Non funziona


    • Tipo di errore:
      Errore di run-time di Microsoft VBScript (0x800A01B6)
      Proprietà o metodo non supportati dall'oggetto: 'key'
      /miei/cswm/salvamultiplo.asp, line 83
    • Tipo di browser:
      Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/49.0.2623.112 Safari/537.36
    • Pagina:
      POST 11991 bytes to /miei/cswm/salvamultiplo.asp
    • POST Data:
      error '80020009'

  4. #14
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Questa è la pagina Upload.asp che ho trovato e devo per forza utilizzare

    <%
    '***************************************
    ' File: Upload.asp
    ' Author: Jacob "Beezle" Gilley
    ' Email: avis7@airmail.net
    ' Date: 12/07/2000
    ' Comments: The code for the Upload, CByteString,
    ' CWideString subroutines was originally
    ' written by Philippe Collignon...or so
    ' he claims. Also, I am not responsible
    ' for any ill effects this script may
    ' cause and provide this script "AS IS".
    ' Enjoy!
    '****************************************


    Class FileUploader
    Public Files
    Private mcolFormElem


    Private Sub Class_Initialize()
    Set Files = Server.CreateObject("Scripting.Dictionary")
    Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
    End Sub

    Private Sub Class_Terminate()
    If IsObject(Files) Then
    Files.RemoveAll()
    Set Files = Nothing
    End If
    If IsObject(mcolFormElem) Then
    mcolFormElem.RemoveAll()
    Set mcolFormElem = Nothing
    End If
    End Sub


    Public Property Get Form(sIndex)
    Form = ""
    If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))
    End Property


    Public Default Sub Upload()
    Dim biData, sInputName
    Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos
    Dim nPosFile, nPosBound


    biData = Request.BinaryRead(Request.TotalBytes)
    nPosBegin = 1
    nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

    If (nPosEnd-nPosBegin) <= 0 Then Exit Sub

    vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)
    nDataBoundPos = InstrB(1, biData, vDataBounds)

    Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))

    nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))
    nPos = InstrB(nPos, biData, CByteString("name="))
    nPosBegin = nPos + 6
    nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
    sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
    nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))
    nPosBound = InstrB(nPosEnd, biData, vDataBounds)

    If nPosFile <> 0 And nPosFile < nPosBound Then
    Dim oUploadFile, sFileName
    Set oUploadFile = New UploadedFile

    nPosBegin = nPosFile + 10
    nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))
    sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
    oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))


    nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))
    nPosBegin = nPos + 14
    nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))

    oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))

    nPosBegin = nPosEnd+4
    nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
    oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)

    If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile
    Else
    nPos = InstrB(nPos, biData, CByteString(Chr(13)))
    nPosBegin = nPos + 4
    nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2
    If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))
    End If


    nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)
    Loop
    End Sub


    'String to byte string conversion
    Private Function CByteString(sString)
    Dim nIndex
    For nIndex = 1 to Len(sString)
    CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
    Next
    End Function


    'Byte string to string conversion
    Private Function CWideString(bsString)
    Dim nIndex
    CWideString =""
    For nIndex = 1 to LenB(bsString)
    CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1)))
    Next
    End Function
    End Class


    Class UploadedFile
    Public ContentType
    Public FileName
    Public FileData

    Public Property Get FileSize()
    FileSize = LenB(FileData)
    End Property


    Public Sub SaveToDisk(sPath)
    Dim oFS, oFile
    Dim nIndex

    If sPath = "" Or FileName = "" Then Exit Sub
    If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"

    Set oFS = Server.CreateObject("Scripting.FileSystemObject")
    If Not oFS.FolderExists(sPath) Then Exit Sub

    Set oFile = oFS.CreateTextFile(sPath & FileName, True)

    For nIndex = 1 to LenB(FileData)
    oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))
    Next


    oFile.Close
    End Sub

    Public Sub SaveToDatabase(ByRef oField)
    If LenB(FileData) = 0 Then Exit Sub

    If IsObject(oField) Then
    oField.AppendChunk FileData
    End If
    End Sub


    End Class
    %>

  5. #15
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Questa la pagina che riceve

    If Uploader.Files.Count = 0 Then
    Response.Write "File NON salvato"
    Else
    ' Loop through the uploaded files
    For Each File In Uploader.Files.Items

    'Response.Write "ddd: " & File

    If Uploader.Form("saveto") = "disk" Then

    set rsSelectContatore = Conn.Execute ("SELECT CONTATORE FROM TB_CLASSE WHERE CODICE = 'MAGA_'")
    intContatore = rsSelectContatore.Fields("CONTATORE").Value + 1
    set rsUpdateContatore = Conn.Execute ("UPDATE TB_CLASSE SET CONTATORE = " & intContatore & " WHERE CODICE = 'MAGA_'")


    'Save the file
    File.SaveToDisk Server.MapPath ("public\")

    Response.Write "FormKey: " & Uploader.key

    'Response.Write "FileName: " & File.FileName
    'Response.Write "<br>FILE1: " & FILE1

    if File.FileName = NomeFile1 then
    Response.Write "<br>FileName1: " & File.FileName
    Response.Write "<br>Contatore: " & contatorefile
    end if

    if File.FileName = NomeFile2 then
    Response.Write "<br>FileName2: " & File.FileName
    Response.Write "<br>Contatore: " & contatorefile
    end if

    if File.FileName = NomeFile3 then
    Response.Write "<br>FileName3: " & File.FileName
    Response.Write "<br>Contatore: " & contatorefile
    end if



    estensionefile = fso.GetExtensionName ("public\" & File.FileName)
    fso.MoveFile Server.MapPath ("public\" & File.FileName), Server.MapPath ("public\MAGA_" & intContatore & "." & estensionefile)



    contatorefile = contatorefile + 1

    end if


    Next
    End If

  6. #16
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Altra cosa molto particolare.

    Dalla pagina che effettivamente effettua il salvataggio volevo recuperare il valore dei campi type="file"

    FILE1_file = Uploader.Form("FILE1")
    FILE2_file = Uploader.Form("FILE2")
    FILE3_file = Uploader.Form("FILE3")
    FILE4_file = Uploader.Form("FILE4")
    FILE5_file = Uploader.Form("FILE5")


    Mi risultato vuoti

    Questo HTML della pagina di inserimento immagini
    <div class="form-group">
    <h1>File1</h1>
    <input type="file" class="form-control" name="FILE1"> <input type="text" name="file1_text" />
    </div>

    <div class="form-group">
    <h1>File2</h1>
    <input type="file" class="form-control" name="FILE2"> <input type="text" name="file2_text" />
    </div>

    <div class="form-group">
    <h1>File3</h1>
    <input type="file" class="form-control" name="FILE3"> <input type="text" name="file3_text" />
    </div>

    <div class="form-group">
    <h1>File4</h1>
    <input type="file" class="form-control" name="FILE4"> <input type="text" name="file4_text" />
    </div>

    <div class="form-group">
    <h1>File5</h1>
    <input type="file" class="form-control" name="FILE5"> <input type="text" name="file5_text" />
    </div>



    Ho deciso, quanto meno temporaneamente di copiare in fase di submit (javascript) il contenuto del type="files" dentro allo speculare file type="text"

    document.frmsite.file1_text.value = document.frmsite.FILE1.value;
    document.frmsite.file2_text.value = document.frmsite.FILE2.value;
    document.frmsite.file3_text.value = document.frmsite.FILE3.value;
    document.frmsite.file4_text.value = document.frmsite.FILE4.value;
    document.frmsite.file5_text.value = document.frmsite.FILE5.value;

    Ultima cosa.
    Ho provato ad inserire questo
    Response.Write "<br><br>FormKey: " & Uploader.Files("FILE1")
    non restituisce errore, ma non fa vedere nulla

  7. #17
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Ciao,
    ci sono novità per questa annosa problematica che mi sta facendo impazzire ?

  8. #18
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,100
    Premesso che non sviluppo più in asp da 15 anni. E che voler usare un linguaggio abbandonato da 20 anni lo trovo abbastanza assurdo. Così Uploader.item(“FILE1”).item(“Value”) per recuperare il nome l’hai provato?
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  9. #19
    Utente di HTML.it
    Registrato dal
    Mar 2021
    Messaggi
    15
    Quote Originariamente inviata da cavicchiandrea Visualizza il messaggio
    Premesso che non sviluppo più in asp da 15 anni. E che voler usare un linguaggio abbandonato da 20 anni lo trovo abbastanza assurdo. Così Uploader.item(“FILE1”).item(“Value”) per recuperare il nome l’hai provato?
    Si provato.

    Purtroppo sono costretto ad usarlo. Le pagine sono tutte in ASP classic.

    Caspita mi basterebbe capire quale sia il l'oggetto file che passa nel ciclo.

  10. #20
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,021
    la disquisizioni sul linguaggio in quanto tale non sono argomento del thread, ovviamente.

    @cirmas: più tardi forse riesco a dare un'occhiata migliore per aiutarti sul problema

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2021 vBulletin Solutions, Inc. All rights reserved.