select con upload

**enrico16101990** · 06-01-2014, 05:56

salve a tutti e buon anno!!!
volevo chiedervi una mano.

e da molto che sto cercando di creare un sito, ma ora mi sono bloccato in un punto morto.

vedendo su tutorial forum e quant'altro sto cercando di realizzare un upload con la lista dei prodotti.
il funzionamento della pagina dovrebbe essere quella di una lista dei prodotti in una select "qui ci siamo"
un upload che carica le immagini in una specifica cartella "anche qui ci siamo".
in file l'esito del corretto caricamento dei file e la rimozione del record nel database access "per l'esito anche qui ci siamo ma non riesco a eliminare il record"

vi spiego nel dettaglio, se per ipotesi seleziono la 5 voce della select e procedo con l'upload il procedimento funziona alla perfezione, però invece di cancellare la voce selezionata in precedentemente nella select mi cancella sempre la prima "quindi la numero 1"

invio_del_file.asp

codice:

<!-- #include file="protec.asp" --><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr">


<head>


<script language="javascript">
 <!--
  function Modulo() {
     // Variabili associate ai campi del modulo
     var Invio_del_flie = document.modulo.Invio_del_flie.value;
     var FILE1 = document.modulo.FILE1.value;


               //Effettua il controllo sul campo file
       if ((Invio_del_flie   == "") || (Invio_del_flie   == "undefined")) {
           alert("Devi selezionare un prodotto per poter continuare.");
           document.modulo.Invio_del_flie.focus();
           }
                
           //Effettua il controllo sul campo cap
        else if ((FILE1  == "") || (FILE1  == "undefined")) {
           alert("Devi inserire almeno un prodotto per effettuare l'upload.");
           document.modulo.FILE1.focus();
           }
 //INVIA IL MODULO
        else {
           document.modulo.action = "esito_upload.asp";
           document.modulo.submit();
        }
  }
 //-->
</script> 




    
</head>


<body id="top">


<div id="content-wrapper">
    <div class="center-wrapper">
        
        <div class="content" id="content-two-columns">


            <div id="main-wrapper">
                <div id="main">


                    <div class="post">




                        <!-- #include file="../stringaConnessione1033.asp" -->
<%
numeroRecord=Session("ID")
sql = "SELECT * FROM Ordini_file WHERE Id="&numeroRecord
%> 
<!-- #include file="../stringaRecordset.asp" -->




<body>


<br>


<FORM METHOD="POST" ENCTYPE="multipart/form-data" name="modulo"> 
<strong><span class="style12">Seleziona il prodotto: <span class="style11">*</span></span></strong><br>
        
        <select name="Invio_del_flie" style="width: 577px">


            <option value="">Seleziona un prodotto</option>


        <%
        do while not rs.eof
        response.write "<option value='" & rs("Numero ordine")& "'>"
                            response.write "Numero ordine"
                            response.write " "
                            response.write rs("Numero ordine")
                            response.write "  -  "
                            response.write "Prodotto"
                            response.write " "
                            response.write rs("Tipo_lavoro")
                            response.write "  -  "
                            response.write "Riferimento"
                            response.write " "
                            response.write rs("Riferimento_pubblicitario")
                            response.write "</option>"
                            rs.movenext
                            loop
                            rs.Close
                            set rs = Nothing
                            %>


            </select><br>
                                                                                            <br>
<strong><span class="style12">File 1: <span class="style11">*</span></span></strong><br>
        <INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><br>
        
        <br>
<strong><span class="style12">File 2:</span></strong><BR> <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"> <br>
        
        


        
    <BR>
    <input type="button" value="Invia" class="button" style="border: thin double #003366; width: 69px; background-color: #E4E4E4; " onClick="Modulo()">
    </FORM>


</div></div></div></div></div>
</div>


</body>
</html>

Esito_upload.asp

codice:

<!-- #include file="protec.asp" --><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" dir="ltr">


<head>
    
</head>


<body id="top">


<div id="content-wrapper">
    <div class="center-wrapper">
        
        <div class="content" id="content-two-columns">


            <div id="main-wrapper">
                <div id="main">


                    <div class="post">


                                                
                        
                    


                        </div>




                        <!-- #include file="../stringaConnessione1033.asp" -->
<%
numeroRecord=Session("ID")
sql = "SELECT * FROM Ordini_file WHERE Id="&numeroRecord
%> 
<!-- #include file="../stringaRecordset.asp" -->




<body>


<br>


<%
    Set Upload = Server.CreateObject("Persits.Upload")


    ' ATTENZIONE, PORRE IL LIMITE
    Upload.SetMaxSize 10485760, True


    ' SALVO IN MEMORIA
    Upload.Save


    ' cartella indicata dal visitatore, attenzione, sconsigliato, usare preferibilmente la soluzione *NB*
    Invio_del_flie = Upload.Form("Invio_del_flie")
    Invio_del_flie = Upload.Form("Invio_del_flie")
    
    
    ' *NB* cartella specificata a scelta del webmaster 
    'Invio_del_flie = "upload"
    'Invio_del_flie = "upload"


    ' per evitre uso malevolo, replace dei percorsi a salire ".."
    fronte = Replace(Invio_del_flie, "..", "" )
    percorso = Server.MapPath("/mdb-database/Invio_del_flie")
' per evitre uso malevolo, replace dei percorsi a salire ".."
    retro = Replace(Invio_del_flie, "..", "" )
    percorso = Server.MapPath("/mdb-database/Invio_del_flie")


    ' Imposto percorso facilitato
    'Path = "d:\inetpub\webs\demo-wincom\mdb-database\Invio_del_flie\" & Invio_del_flie
    Path = percorso & "/" & Invio_del_flie


    ' Create path, ignore "already exists" error
    Upload.CreateDirectory Path, True


    
    For Each File in Upload.Files
        File.SaveAs Path & "\" & File.FileName


        Response.Write "Ordine numero <b>" & fronte & "</b>. File </b>" & File.filename & "</b> inviato correttamente<BR>"
    Next
%>
<%
rs.delete
set rs = Nothing
set conn = Nothing
%>
                                                                                
                    </div>




                    </div>


                </div>
            </div>


        </div>


    </div>




</body>
</html>

protec.asp

codice:

<%if    (Session("Autenticato")<>"OK") then
    Response.Redirect "login.asp?errore="&Server.URLEncode("Per accedere a questa pagina bisogna effettuare il login, se non è registrato può farlo gratuitamente.")&"&paginaOriginale="&Request.ServerVariables("SCRIPT_NAME")
else
    if Session("livelloUtente") < livelloPagina then
        Session.Abandon
        Response.Redirect "login.asp?errore="&Server.URLEncode("La pagina richiesta necessita di un livello più alto di sicurezza, prego autenticarsi come altro utente abilitato")&"&paginaOriginale="&Request.ServerVariables("SCRIPT_NAME")
    end if
end if
%>

stringaConnessione1033.asp

codice:

<% 

' Definisci la connessione
Set objConn = Server.CreateObject("ADODB.Connection") 


' Definisci stringa di connessione 
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/mdb-database/ordini.mdb") 


' Apri la connessione 
objConn.Open strConn 


%>

StringaRecodset.asp

codice:

<%Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, objConn ,3,3
%>

spero di essermi spiegato bene...
mia affido nelle vostre mani

grazie a tutti anticipatamente

**optime** · 06-01-2014, 11:10

dove sarebbe la routine di cancellazione?

**enrico16101990** · 07-01-2014, 07:38

nella pagina esito_upload.asp

<%
rs.delete
set rs =Nothing
set conn =Nothing
%>

**enrico16101990** · 07-01-2014, 17:34

Nessuno può aiutarmi?

**enrico16101990** · 11-01-2014, 13:34

help

**Vincent.Zeno** · 11-01-2014, 15:29

a parte la (per me) dubbia chiarezza sulla procedura e sull'esposizione... se stampi a video numeroRecord (sia in invio_del_file.asp che in Esito_upload.asp) il valore corrisponde?

**enrico16101990** · 11-01-2014, 16:27

scusami l'ignoranza ma come faccio a stampare a video numeroRecord

**Vincent.Zeno** · 11-01-2014, 18:21

response.write numeroRecord

**enrico16101990** · 17-01-2014, 20:56

ciao, nell'invio_del_file.asp è 122, fin qui ci siamo perchè 122 è l'id del cliente
invece a esito_upload.asp è sempre 122 qui e il problema perche deve essere il numero dell'ordine selezionato cioè 2.

**enrico16101990** · 17-01-2014, 21:19

secondo me l'errore e qui, in esito_upload.asp

codice:

<%    Set Upload = Server.CreateObject("Persits.Upload")


    ' ATTENZIONE, PORRE IL LIMITE
    Upload.SetMaxSize 10485760, True


    ' SALVO IN MEMORIA
    Upload.Save


    ' cartella indicata dal visitatore, attenzione, sconsigliato, usare preferibilmente la soluzione *NB*
    Invio_del_flie = Upload.Form("Invio_del_flie")
    Invio_del_flie = Upload.Form("Invio_del_flie")
    
    
    ' *NB* cartella specificata a scelta del webmaster 
    'Invio_del_flie = "upload"
    'Invio_del_flie = "upload"


    ' per evitre uso malevolo, replace dei percorsi a salire ".."
    fronte = Replace(Invio_del_flie, "..", "" )
    percorso = Server.MapPath("/mdb-database/Invio_del_flie")
' per evitre uso malevolo, replace dei percorsi a salire ".."
    retro = Replace(Invio_del_flie, "..", "" )
    percorso = Server.MapPath("/mdb-database/Invio_del_flie")


    ' Imposto percorso facilitato
    'Path = "d:\inetpub\webs\demo-wincom\mdb-database\Invio_del_flie\" & Invio_del_flie
    Path = percorso & "/" & Invio_del_flie


    ' Create path, ignore "already exists" error
    Upload.CreateDirectory Path, True


    
    For Each File in Upload.Files
        File.SaveAs Path & "\" & File.FileName


        Response.Write "Ordine numero <b>" & fronte & "</b>. File </b>" & File.filename & "</b> inviato correttamente<BR>"
    Next
%>
<%
rs.delete
set rs = Nothing
set conn = Nothing
%>

Discussione: select con upload

Strumenti discussione

Ricerca discussione

Visualizza

select con upload

Permessi di invio