eliminare un prodotto dal carrello

**oliweb** · 20-01-2008, 03:42

salve, ho il seguente carrello:

codice:

  <%

	Set rsArticoli = Server.CreateObject("ADODB.RecordSet")
	
	'prendo dalla tabella prodotti tutti quelli che hanno il codice inserito nell'array DO
	RsArticoli.open "select * from prodotti where id in(" & codici & ")",conn
	
	Set campi=rsArticoli.fields
	
   	while not rsArticoli.eof
   		qta=carrello(cstr(campi("id"))) 'prendo la quantita dall'array DO
%>
                <tr valign=top> 
                  <td class="chiaro"><input type="checkbox" name="elimina" value="<%=campi("id")%>"></td>
                  <td class="chiaro"> <%=campi("titolo")%><input type=hidden name=id value="<%=campi("id")%>"></td>
                  <td class="chiaro" align="center"><input type=text size=3 name=qta value="<%=qta%>"></td>
                  <%totale=totale+campi("prezzo")*qta%>
                  <td class="chiaro" align="right"><%response.write "&euro; "&Formatnumber(campi("prezzo")*qta,2)%></td>
                </tr>
                <%rsArticoli.MoveNext
			    	  wend%>
                  <tr> 
                    <td colspan=4 align=right bgcolor="#E89466" class="scuro"> Totale:&euro; 
                      <%=formatnumber(totale,2,,,-1)%>
                  </tr>
                <%
	RsArticoli.Close
	Set RsArticoli=nothing
%>

vorrei sostituire il checkbox per eliminare i prodotti dal carrello, con la "x" ed eliminarli!
come è adesso devo selezionare il checkbox e cliccare u aggiorna, vorrei farlo di rettamente cliccando dulla "x".
ora come ora il prodotto si elimina con questo codice:

codice:

<script runat=server language=vbscript>

sub aggiungiArticolo()

'Questa routine aggiunge un nuovo articolo al carrello


  prodotto=cstr(request("articolo"))
			
	'Verifico se l elemento non sia già presente
	if not carrello.exists(prodotto) then
			
		carrello.add prodotto,1 'prodotto è la chiave, 1 è il contenuto dell'elemento (la quantità)
		
	else
	
		carrello(prodotto)=cint(carrello(prodotto))+1
		
	end if
	
end sub

sub cancellaArticoli()
 'Questa routine elimina un articolo dal carrello
 'con il metodo DO.Remove
 
  tmp=replace(request("elimina")," ","")
  articoli=split(tmp,",")
    
  for k=0 to ubound(articoli)
  
	if carrello.exists(articoli(k)) then carrello.remove articoli(k)
	
  next
  
end sub

sub aggiornaDati()

'Questa routine modifica le quantità degli articoli scelti dall'utente

	for k=1 to request("id").count
		id=request("id")(k)
		carrello(id)=request("qta")(k)
	next
	
end sub

</script>

<% 
	
	'ANALISI DELLE RICHIESTE
	
	'controllo se l'array carrello esiste già se no lo creo
	if not isObject(session("carrello")) then
		set carrello=server.createobject("scripting.dictionary")
		presenti=0
	else
		set carrello=session("carrello")
		presenti=carrello.count
	end if
	
	'Verifico l'azione scelta dall'utente
	if request("action")="Aggiorna carrello" then
		
		'Verifico se l'utente ha eliminato degli articoli o variato alcune quantità
		cancellaArt=request("elimina").count
		if cancellaArt>0 then
			cancellaArticoli
		else
			aggiornaDati
		end if
	end if
	
	if request("action")="Svuota carrello" then
		carrello.removeall
		presenti=0
	else
		'se in request articoli c'è qualcosa ->arrivo dalla pagina catalogo e ho selezionato un articolo
	
		if request("articolo")<>"" then aggiungiArticolo

	end if
	
	presenti=carrello.count
	
	
	if presenti=0 then	 	
		vuoto="ok"
	 else
		
		codici=join(carrello.keys,",")
	end if
		
%>

come posso modificarlo sostituendo il checkbox con un pulsante ed eliminare il rpodtto direttamente senza passare da "Aggiorna carrello"?!

grazie

**skyline.81** · 20-01-2008, 13:24

ciao,

se non ho capito male la tua richiesta hai bisogno di un pulsante "x" accanto ad ogni articolo e cliccando su questo l'articolo deve essere eliminato senza aggiornare l'intero carrello. giusto?

se è così puoi predisporre un form su ogni riga con il pulsante ed uno o più campi nascosti che facciano in modo da eliminare solo quel record dal db.

spero di essere stato esaustivo.

**oliweb** · 20-01-2008, 18:36

si vorrei mettere la x ad ogni articolo (al posto del checkbox), ma non so come fare!

grazie

**oliweb** · 20-01-2008, 19:20

ho provato a fare questo quelsante per eliminare i prodotti:

codice:

<input name="elimina" type="image" value="<%=campi("id")%>" onClick="location.href='carrellofra.asp?action=Aggiorna carrello'" src="/img/carrello_elimina_grande.gif" alt="elimina articolo">

ma non c'è niente da fare non mi elimina l'articolo!

chi mi sa aiutare?

grazie

**skyline.81** · 21-01-2008, 02:01

però scusa... così non vai da nessuna parte... sostanzialmente hai detto al tuo bottone "ogni volta che vieni cliccato vai alla pagina aggiorna carrello"...

secondo me su ogni riga dovresti fare:

codice:

<form method="[metodo]" action="[pagina]">
<input type="hidden" name="[nome variabile]" value="[valore]" />
<input type="submit" (o "image") ... />
</form>

poi tutto dipende da come è sviluppato il resto.

ciao

**oliweb** · 21-01-2008, 02:17

ciao skyline.81 di seguitoo trovi il codice della pagina del carrello! puoi dargli un'occhiata e dirmi dove e come fare le modifiche?

codice:

 
<%
Dim original
original = SetLocale(1040)

'controllo correttezza quantità
	for k=1 to request("qta").count
		if request("qta")(k)="" or isNumeric(request("qta")(k))=false then 
			response.redirect "carrellofra.asp"
		end if
	next
%>
<html>
<head>
<title>carrello negozio</title>
<SCRIPT language="JavaScript">
function movepic(img_name,img_src) {
document[img_name].src=img_src;
}
</SCRIPT>
<link rel="stylesheet" href="../principale.css" type="text/css">
<style>
BODY {scrollbar-base-color: #dedede;} 
.Stile1 {color: #E89466}
</style>

</head>
<body bgcolor=#FFFFFF>

<script runat=server language=vbscript>

sub aggiungiArticolo()

'Questa routine aggiunge un nuovo articolo al carrello


  prodotto=cstr(request("articolo"))
			
	'Verifico se lelemento non sia già presente
	if not carrello.exists(prodotto) then
			
		carrello.add prodotto,1 'prodotto è la chiave, 1 è il contenuto dell'elemento (la quantità)
		
	else
	
		carrello(prodotto)=cint(carrello(prodotto))+1
		
	end if
	
end sub

sub cancellaArticoli()
 'Questa routine elimina un articolo dal carrello
 'con il metodo DO.Remove
 
  tmp=replace(request("elimina")," ","")
  articoli=split(tmp,",")
    
  for k=0 to ubound(articoli)
  
	if carrello.exists(articoli(k)) then carrello.remove articoli(k)
	
  next
  
end sub

sub aggiornaDati()

'Questa routine modifica le quantità degli articoli scelti dall'utente

	for k=1 to request("id").count
		id=request("id")(k)
		carrello(id)=request("qta")(k)
	next
	
end sub

</script>

<% 
	
	'ANALISI DELLE RICHIESTE
	
	'controllo se l'array carrello esiste già se no lo creo
	if not isObject(session("carrello")) then
		set carrello=server.createobject("scripting.dictionary")
		presenti=0
	else
		set carrello=session("carrello")
		presenti=carrello.count
	end if
	
	'Verifico l'azione scelta dall'utente
	if request("action")="Aggiorna carrello" then
		
		'Verifico se l'utente ha eliminato degli articoli o variato alcune quantità
		cancellaArt=request("elimina").count
		if cancellaArt>0 then
			cancellaArticoli
		else
			aggiornaDati
		end if
	end if
	
	if request("action")="Svuota carrello" then
		carrello.removeall
		presenti=0
	else
		'se in request articoli c'è qualcosa ->arrivo dalla pagina catalogo e ho selezionato un articolo
	
		if request("articolo")<>"" then aggiungiArticolo

	end if
	
	presenti=carrello.count
	
	
	if presenti=0 then	 	
		vuoto="ok"
	 else
		
		codici=join(carrello.keys,",")
	end if
	
%> 



<center>
  <table width="855" cellspacing="0" cellpadding="0" border="0">
    <TD>
		
      </TD>
  </table>
  <table width="855" cellspacing="0" cellpadding="0" border="0">
      <TD width=244 align=left valign="top">
	  
	  
	  
	  </TD>
    <td width="10"> </td>
        <TD width="570" valign=top align="center">
		
		<form name=form2 method=post action="carrellofra.asp">  
		
          <table width="560" border="0" cellspacing="2" cellpadding="4">
            <tr align="center"> 
              <td colspan=3> <span class="titoloP Stile1">CARRELLO ACQUISTI</span>

                <table border="0" align=center width="590" cellpadding="2" cellspacing="2">
                  <%if vuoto="ok" then%>
                  <tr> 
                  <td colspan="4" class="chiaro" align=center> 

                    IL CARRELLO E' VUOTO.

                    

                    Per visualizzare un prodotto, seleziona un listino dalla pulsantiera 
                    di sinistra.

                    

                     </td>
                </tr>
                <%else%>
                <tr> 
                  <td width="50" bgcolor="#E89466" class="scuro">Elimina</td>
                  <td width="250" bgcolor="#E89466" class="scuro">Prodotto</td>
                  <td width="50" bgcolor="#E89466" class="scuro">Quantità</td>
                    <td width="100" align="right" bgcolor="#E89466" class="scuro">Prezzo</td>
                </tr>
                <%

	Set rsArticoli = Server.CreateObject("ADODB.RecordSet")
	
	'prendo dalla tabella prodotti tutti quelli che hanno il codice inserito nell'array DO
	RsArticoli.open "select * from prodotti where id in(" & codici & ")",conn
	
	Set campi=rsArticoli.fields
	
   	while not rsArticoli.eof
   		qta=carrello(cstr(campi("id"))) 'prendo la quantita dall'array DO
%>
                <tr valign=top> 
                  <td class="chiaro"><input name="elimina" type="image" value="<%=campi("id")%>" onClick="location.href='carrellofra.asp?action=Elimina'" src="/img/carrello_elimina_grande.gif" alt="elimina articolo"></td>
                  <td class="chiaro"> <%=campi("titolo")%> 
                    <input type=hidden name=id value="<%=campi("id")%>">
                  </td>
                  <td class="chiaro" align="center"> 
                    <input type=text size=3 name=qta value="<%=qta%>">
                  </td>
                  <%totale=totale+campi("prezzo")*qta%>
                  <td class="chiaro" align="right">
				  <%response.write "&euro; "&Formatnumber(campi("prezzo")*qta,2)%> 
                  </td>
                </tr>
                <%rsArticoli.MoveNext
			    	  wend%>
                  <tr> 
                    <td colspan=4 align=right bgcolor="#E89466" class="scuro"> Totale:&euro; 
                      <%=formatnumber(totale,2,,,-1)%>
                  </tr>
                <%
	RsArticoli.Close
	Set RsArticoli=nothing
%>
                <tr valign="top"> 
                  <td colspan=3> [img]../../Img/trasparente.gif[/img]

                    <input type=button value="Ordina" onClick="location.href='pagamento.asp'" name="button">
                   
                    <input type=submit name="action" value="Aggiorna carrello">
                     

                     </td>
                  <td align="right"> [img]../../Img/trasparente.gif[/img]

                    <input type=submit name="action" value="Svuota carrello" onClick="return confirm('Sei sicuro di voler eliminare il contenuto del carrello ?')" >
                  </td>
                </tr>
	          <%end if%>
              </table>	
<%	'Riassegno all'oggetto Session il contenuto aggiornato del DO
	set session("carrello")=carrello
%>
              PER ORDINARE ALTRI ARTICOLI SELEZIONA UN LISTINO DALLA PULSANTIERA 
              LATERALE </td>
        </tr>
      </table>

		</form>
		
		</td>
  </table>
  
</center>

grazie

Ciao

Discussione: eliminare un prodotto dal carrello

Strumenti discussione

Ricerca discussione

Visualizza

eliminare un prodotto dal carrello

Permessi di invio