Visualizzazione dei risultati da 1 a 10 su 10
  1. #1

    Upload File con aspSmartUpload.dll e rinonima dei file

    Salve
    devo caricare immagini su un server con aspSmartUpload; in pratica ho una rubrica multi utenza e ogni utente può caricare un'immagine di un contatto. Questo è il form che utilizzo per la scelta del file:

    <FORM METHOD="Post" enctype="multipart/form-data" ACTION="upload.asp">
    <INPUT TYPE="file" NAME="file">
    <INPUT TYPE="submit" NAME="Enter" value="Upload">
    </FORM>

    questa è la pagina upload.asp

    <%
    On Error Resume Next
    Dim objUpl
    Set objUpl = Server.CreateObject("aspSmartUpload.SmartUpload")
    objUpl.AllowedFilesList = "jpg,gif,jpeg"
    objUpl.MaxFileSize = 1000000
    objUpl.Upload
    objUpl.Save("/Stagista/Sito/upload")
    Set objUpl = Nothing
    If Err.Number = 0 Then
    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Stagista\Sito\Database\Rubrica.accdb;Per sist Security Info=False; "
    Conn.Open strConn
    dim idRubrica
    dim nomefile
    idRubrica = session("idcontatto")
    sql = "SELECT IDRUBRICA,PERCORSOIMM FROM Immagini WHERE IDRUBRICA = " & idRubrica & " "
    set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,Conn,1
    if rs.eof then
    sql = "SELECT * FROM Immagini "
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,Conn,3,3
    ' Preparazione e scrittura nuovo record
    rs.addnew
    rs("IDRUBRICA") = idRubrica
    nomefile = request.form("file")
    rs("PERCORSOIMM") = nomefile
    rs.update
    end if
    Response.Write "Upload eseguito con successo!"
    Else
    Response.Write "Errore in fase di upload, riprova!"
    End If
    %>


    Il problema è che qualsiasi file io voglia caricare, mi compare sempre la schermata di errore "Errore in fase di upload,riprova!"

    Inoltre vorrei che il nome del file da caricare corrispondesse con l'id del contatto che corrisponde a un campo della tabella del database. è possibile rinominare il file prima di caricarlo sul server?
    Ultima modifica di ondes_giaco; 18-02-2014 a 18:43

  2. #2
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Ciao e benvenuto.
    Immagino di si ma non lo conosco e non l'ho mai usato (essendo un componente aggiuntivo non tutti gli hosting lo usano o ne permettono l'istallazione) comunque qui dovresti trovare indicazioni in merito.
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  3. #3
    Grazie per il benvenuto e per la risposta cavicchiandrea.
    aspsmartupload.net lo avevo gia consultato comunque ho effettuato delle modifiche al codice e il problema è l'upload, cioè mi segnala sempre la scritta di errore "Errore in fase di upload,riprova!" anche se metto file di estensione specificate nell'AllowedFilesList. Ecco il codice:
    <%
    On Error Resume Next
    Dim objUpl
    Set objUpl = Server.CreateObject("aspSmartUpload.SmartUpload")
    objUpl.AllowedFilesList = "jpg,gif,jpeg,png"
    objUpl.MaxFileSize = 1000000
    dim idRubrica
    dim file
    dim nomefile
    idRubrica = session("idcontatto")
    objUpl.Upload
    objUpl.Save("/Stagista/Sito/upload")
    Set objUpl = Nothing
    If Err.Number = 0 Then
    for each file in ubjUpl.Files
    if not file.isMissing then
    file.SaveAs("/Stagista/Sito/upload/"& file.FileName)
    nomefile = file.FileName & file.FileExt
    end if
    Set Conn=Server.CreateObject("ADODB.Connection")
    strConn="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Stagista\Sito\Database\Rubrica.accdb;Per sist Security Info=False; "
    Conn.Open strConn
    sql = "SELECT IDRUBRICA,PERCORSOIMM FROM Immagini WHERE IDRUBRICA = " & idRubrica & " "
    set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,Conn,1
    if rs.eof then
    sql = "SELECT * FROM Immagini "
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,Conn,3,3
    ' Preparazione e scrittura nuovo record
    rs.addnew
    rs("IDRUBRICA") = idRubrica
    rs("PERCORSOIMM") = nomefile
    rs.update
    else
    sql = "SELECT IDRUBRICA,PERCORSOIMM FROM Immagini WHERE IDRUBRICA = " & idRubrica & " "
    set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql,Conn,3,3
    rs("PERCORSOIMM") = nomefile
    rs.Update
    end if
    next
    Response.Write "Upload eseguito con successo!"
    Else
    Response.Write "Errore in fase di upload, riprova!"
    End If
    %>

  4. #4
    La dll non l'ho registrata in quanto mi dava questo errore "Chiamata a dllRegisterServer non è riuscita codice di errore 0x80004005" cosi ho spostato la libreria sul server in cui la utilizzo. Non avendo i permessi devo per forza registrarla?

  5. #5
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Quote Originariamente inviata da ondes_giaco Visualizza il messaggio
    La dll non l'ho registrata in quanto mi dava questo errore "Chiamata a dllRegisterServer non è riuscita codice di errore 0x80004005" cosi ho spostato la libreria sul server in cui la utilizzo. Non avendo i permessi devo per forza registrarla?
    Non saprei non avedolo mai usato, ma hai delle necessità particolari per dover usare questo upload, il persistUpload per esempio (credo sia free) è più diffuso e trovi sicuramente più notizie in rete
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  6. #6
    Amministratore L'avatar di Vincent.Zeno
    Registrato dal
    May 2003
    residenza
    Emilia-Romagna (tortellini und cappelletti land!)
    Messaggi
    20,780
    Quote Originariamente inviata da cavicchiandrea Visualizza il messaggio
    il persits Upload... (credo sia free)
    non è free, ma diversi provider lo acquistano e lo mettono a disposizione.
    se ne ha notizia nelle specifiche dell'offerta di hosting

  7. #7
    Quote Originariamente inviata da cavicchiandrea Visualizza il messaggio
    Non saprei non avedolo mai usato, ma hai delle necessità particolari per dover usare questo upload, il persistUpload per esempio (credo sia free) è più diffuso e trovi sicuramente più notizie in rete
    Si devo usare per forza questo upload, comunque non riesco a capire se l'upload non va per errori nel codice o per altro

  8. #8
    Moderatore di Annunci siti web, Offro lavoro/collaborazione, Cerco lavoro L'avatar di cavicchiandrea
    Registrato dal
    Aug 2001
    Messaggi
    26,133
    Per capire dov'è l'errore re-installa il codice originale (solo upload, togliendo le query al database), ricontrollando passo passo il processo d'installazione
    Cavicchi Andrea
    Problemi con javascript, jquery, ajax clicca qui

  9. #9
    Quote Originariamente inviata da cavicchiandrea Visualizza il messaggio
    Per capire dov'è l'errore re-installa il codice originale (solo upload, togliendo le query al database), ricontrollando passo passo il processo d'installazione
    Grazie per il consiglio. Ho provato il codice originale e si verifica sempre l'errore in fase di upload. Credo proprio quindi che il problema sia nella dll

  10. #10
    In effetti quando ho scaricato la libreria c'erano due file: aspSmartUpload.dll e aspSmartUploadUtil.dll e io avevo preso in considerazione solo la prima. Ho caricato sul server pure la seconda e ho cercato di registrarla ma mi da questo allert di errore "Il modulo D:\Stagista\Sito\bin\aspSmartUploadUtil.dll è stato caricato, ma il punto di ingresso DllRegisterServer non è stato trovato. Accettarsi che D:\Stagista\Sito\bin\aspSmartUploadUtil.dll sia un file OCX o DLL valido, quindi riprovare" In pratica non può essere registrata? Devo mettere i due file nella cartella system32 di Windows?

Tag per questa discussione

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 © 2025 vBulletin Solutions, Inc. All rights reserved.