During its peak popularity (early to mid-2000s), VP-ASP was popular because it offered a "full-source" code version. This allowed developers to modify the system extensively.
Session("Cart") = cart Response.Redirect("view_cart.asp") %>
If idx >= 0 And idx <= UBound(cart) Then If new_qty > 0 Then cart(idx, 3) = new_qty Else ' remove item For i = idx To UBound(cart) - 1 cart(i) = cart(i + 1) Next ReDim Preserve cart(UBound(cart) - 1) End If End If vp asp shopping cart
If you are currently running a store on VP-ASP, it is highly recommended to look into due to security risks and the obsolescence of Classic ASP technology. If you are looking to start a new store, VP-ASP is generally not recommended in the current tech landscape.
' Loop to find if product already in cart For i = 0 To UBound(cart) If cart(i, 0) = pid Then cart(i, 3) = cart(i, 3) + qty found = True Exit For End If Next During its peak popularity (early to mid-2000s), VP-ASP
id | order_id | product_id | quantity | price
If Not found Then ReDim Preserve cart(UBound(cart) + 1) cart(UBound(cart)) = Array(pid, pname, price, qty) End If If you are looking to start a new
<% cart = Session("Cart") total = 0 %> <table border="1"> <tr><th>Product</th><th>Price</th><th>Qty</th><th>Subtotal</th><th></th></tr> <% For i = 0 To UBound(cart) subtotal = cart(i, 2) * cart(i, 3) total = total + subtotal %> <tr> <td><%=cart(i,1)%></td> <td><%=FormatCurrency(cart(i,2))%></td> <td> <form method="post" action="update_cart.asp"> <input type="hidden" name="idx" value="<%=i%>"> <input type="number" name="qty" value="<%=cart(i,3)%>" min="0" style="width:60px"> <input type="submit" value="Update"> </form> </td> <td><%=FormatCurrency(subtotal)%></td> <td><a href="remove_item.asp?idx=<%=i%>">Remove</a></td> </tr> <% Next %> <tr><td colspan="3">Total</td><td><%=FormatCurrency(total)%></td><td></td></tr> </table> <a href="checkout.asp">Checkout</a>
( global.asa ):