Ciao a tutti,
io volevo sapere come fare per richiamare i dati contenuti in una variabile session da da un'altra pagina asp. Io ho creato un array chiamato Carrello in una variabile Session. Questa variabile Session è stata creata nella pagina asp che contiene il carrello, e volevo sapere come faccio a richiamare i dati del carrello contenuti nella variabile da un'altra pagina? Spero di essermi spiegato bene...
arr = session("pippo") ' tutto l'array
var = session("pippo")(10) ' decimo elemento
purtroppo sono alle prime armi con asp e ho delle difficoltà ad andare avanti nell'inviare i dati del carrello in una tabella ordini.
Come ho già detto ho creato il carrello nella variabile session grazie a dei tutorial trovati in rete ma non riesco ad andare avanti. Sono arrivato a questo punto:
Ho creato il carrello tramite variabile session con il seguente codice
<%
Session.Timeout=40
' Definizioni delle costanti
CONST CARTPID=0
CONST CARTPNAME=1
CONST CARTPPRICE=2
CONST CARTPQUANTITY=3
' Creazione del carrello della spesa
IF NOT isArray(Session("cart")) THEN
DIM localCart(4, 20)
ELSE
localCart=Session("cart")
END IF
' Estrazione informazioni sul prodotto
productCod=TRIM(Request("cod"))
productDesc=TRIM(Request("desc"))
productPrice=TRIM(Request("price"))
' Aggiunta dell'articolo al carrello
IF productCod <> "" THEN
foundIT = FALSE
FOR i=0 TO UBOUND(localCart)
IF localCart(CARTPID, i) = productCod THEN
localCart(CARTPQUANTITY, i)= localCart(CARTPQUANTITY, i) + 1
foundIT=TRUE
EXIT FOR
END IF
NEXT
IF NOT foundIT THEN
FOR i=0 TO UBOUND(localCart, 2)
IF localCart(CARTPID, i )="" THEN
localCart(CARTPID, i )=productCod
localCart(CARTPNAME, i )=productDesc
localCart(CARTPPRICE, i )=productPrice
localCart(CARTPQUANTITY, i )=1
EXIT FOR
END IF
NEXT
END IF
END IF
' Aggiornamento quantità nel carrello della spesa
IF Request("updateQ") <> "" THEN
FOR i=0 TO UBOUND(localCart, 2)
newQ=TRIM(Request("pq" & localCart(CARTPID, i)))
deleteProduct=TRIM(Request("pd" & localCart(CARTPID, i)))
IF newQ="" or newQ="0" or deleteProduct <> "" THEN
localCart(CARTPID, i)= ""
ELSE
IF isNumeric(newQ) THEN
localCart(CARTPQUANTITY,i)=newQ
END IF
END IF
NEXT
END IF
' Aggiornamento variabile Session con array
Session("cart")=localCart
%>
<body>
<%
orderTotal=0
%>
<%
FOR i=0 TO UBOUND(localCart, 2)
IF localCart(CARTPID, i) <> "" THEN
orderTotal=orderTotal + (localCart(CARTPPRICE, i)*localCart(CARTPQUANTITY, i))
%>
<tr id="header3">
<td width="160" height="40" bgcolor="#D5DCE9" align="center" valign="middle">
<%=Server.HTMLEncode(localCart(CARTPNAME, i))%>
</td>
<td width="70" height="40" bgcolor="#D5DCE9" align="center" valign="middle">
<%=formatCurrency(localCart(CARTPPRICE, i))%>
</td>
<td width="152" height="40" bgcolor="#D5DCE9" align="center" valign="middle">
<input name="pq<%=localCart(CARTPID, i)%>" type="text" size="4"
value="<%=localCart(CARTPQUANTITY, i)%>">
<input name="pd<%=localCart(CARTPID, i)%>" type="checkbox" value="1"> Elimina
</td>
</tr>
<%
END IF
NEXT
%>
<tr id="header3">
<td width="240" height="30" bgcolor="#FFF200" colspan="2">
<p align="right">Totale Ordine:
</td>
<td width="152" height="30" bgcolor="#FFF200" colspan="2">
<%=formatCurrency(orderTotal)%>
</td>
</tr>
Poi di seguito ci sono i pulsanti che del form 'ordina', 'continua shopping'.
Come devo fare per far sì che quando si clicca sul pulsante ordina venga richiamata una pagina nella quale venga fatto il login o la registrazione? e dopo i prodotti vengano inviati alla tabella ordini di quel dato utente?
Ringrazio in anticipo coloro che possano darmi un aiutino
Non c'è proprio nessuno che possa darmi una mano?
Permessi di invio
Rispondi quotando