01.<%@ codepage="874" %>
02.<% Option Explicit %>
03.<%
04.CONST CARTPID=0
05.CONST CARTPNAME=1
06.CONST CARTPPRICE=2
07.CONST CARTPQUANTITY=3
08.
09.
10.Dim foundIt, i, pid, pname, pprice, newQ, deleteProduct
11.
12.
13.If Not IsArray(Session("cart")) Then
14. Dim localCart(4,20)
15.Else
16. localCart = Session("cart")
17.End If
18.
19.
20.pid = Trim(Request.Form("pid"))
21.pname = Trim(Request.Form("pname"))
22.pprice = Trim(Request.Form("pdiscount"))
23.
24.
25.If IsNumeric(pprice) Then pprice = CDbl(pprice)
26.
27.
28.If pid <> "" Then
29. foundIt = False
30.
31. For i = 0 To Ubound(localCart,2)
32. If localCart(CARTPID, i) = pid Then
33. localCart(CARTPQUANTITY, i) = localCart(CARTPQUANTITY, i) + 1
34. foundIt = True
35. Exit For
36. End If
37. Next
38.
39. If Not foundIt Then
40. For i = 0 To Ubound(localCart, 2)
41. If localCart(CARTPID,i) = "" Then
42. localCart(CARTPID,i) = pid
43. localCart(CARTPNAME,i) = pname
44. localCart(CARTPPRICE,i) = pprice
45. localCart(CARTPQUANTITY,i) = 1
46. Exit For
47. End If
48. Next
49. End If
50.End If
51.
52.
53.If Request.Form("updateQ") <> "" Then
54. For i = 0 To Ubound(localCart,2)
55. newQ = Trim(Request.Form("pq" & localCart(CARTPID,i)))
56. deleteProduct = Trim(Request.Form("pd" & localCart(CARTPID,i)))
57. If newQ = "" Or newQ = "0" Or deleteProduct <> "" Then
58. localCart(CARTPID,i) = ""
59. Else
60. If IsNumeric(newQ) Then
61. localCart(CARTPQUANTITY,i) = newQ
62. End If
63. End If
64. Next
65.End If
66.
67.Session("cart") = localCart
68.Response.Redirect "ssviewcart.asp"
69.%>
