Hallo allemaal!
Ik ben bezig een e-commerce site te maken voor school, en ik heb een shopping cart met een array gemaakt. De code is als volgt:
Deze shopping cart werkt perfect, alleen als de klant zijn bestelling definitief wil maken moet alle inhoud van de cart in een database komen(checkout.asp). En hier ligt mijn probleem. Ik weet niet hoe dit moet. (sorry, ik ben een asp virgin). Ik ben al 2 dagen aan het kloten met dit, en ik kom er gewoon niet uit! Ik hoop dat jullie me kunnen helpen, want ik wordt er helemaal gek van! Bij voorbaat dank!
Ik ben bezig een e-commerce site te maken voor school, en ik heb een shopping cart met een array gemaakt. De code is als volgt:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
| <!--#include file="beveilig.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
</HEAD>
<BODY bgcolor="#0066CC">
<%
Const Cartpid = 0
const Cartpname = 1
const cartpprice = 2
const cartpquantity = 3
if not isarray(session("cart")) then
dim localCart(4,20)
else
localCart = session("cart")
end if
productID = trim(request("pid"))
ProductName = trim(request("productName"))
ProductPrice = trim(request("productprice"))
if productID <> "" then
foundIT = false
for i = 0 to ubound(localcart)
if localcart(cartpid, i) = productID 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) = productID
localcart(cartpname, i) = productName
localcart(cartpprice, i) = productprice
localcart(cartpquantity, i) = 1
exit for
end if
next
end if
end if
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
Session("cart") = localcart
%>
<font face="Comic Sans MS" size="4" color="#CCFFFF"><i><b>Winkelwagentje</b></i></font>
<hr>
<p>
<center>
<font face="arial" size=3 color="darkgreen"
<b>Uw winkelwagentje:
</font>
<%
orderTotal = 0
%>
</p>
<form method="post" action="Winkelwagentje.asp">
<input name="updateQ" type="hidden" value="1">
<table bgcolor="lightyellow" border=1
cellpadding=4 cellspacing=0>
<tr bgcolor="lightgreen">
<th>Product</th>
<th>Prijs</th>
<th>Hoeveelheid</th>
</tr>
<%
for i = 0 to ubound(localcart,2)
if localcart(cartpid, i) <> "" then
ordertotal = ordertotal + (localcart(cartpprice, i) * localcart(cartpquantity, i))
%>
<tr>
<td>
<%=Server.HTMLEncode(localcart(cartpname, i))%>
</td>
<td>
<%=formatCurrency(localcart(cartpprice, i))%>
</td>
<td>
<input name="pq<%=localcart(cartpid, i)%>" type="text" size=4
value="<%=localcart(cartpquantity, i)%>">
<input name="pd<%=localcart(cartpid, i)%>" type="checkbox" value="1"> Verwijderen
</td>
</tr>
<%
end if
next
%>
<tr bgcolor="yellow">
<td colspan=2 align=right>
<b>Totaal bedrag bestelling:</b>
</td>
<td>
<%=formatCurrency(orderTotal)%>
</td>
</tr>
<tr>
<td colspan=3>
<table border=0>
<tr>
<td align="right">
<input type="submit" value="Winkelwagentje bijwerken">
</td>
</form>
<form method="post" action="checkout.asp">
<td>
<input type="submit" value="Bestelling definitief maken">
</td>
</form>
<form action="winkelen.asp">
<td>
<input type="submit" value="Doorgaan met winkelen">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
</center>
</BODY>
</HTML> |
Deze shopping cart werkt perfect, alleen als de klant zijn bestelling definitief wil maken moet alle inhoud van de cart in een database komen(checkout.asp). En hier ligt mijn probleem. Ik weet niet hoe dit moet. (sorry, ik ben een asp virgin). Ik ben al 2 dagen aan het kloten met dit, en ik kom er gewoon niet uit! Ik hoop dat jullie me kunnen helpen, want ik wordt er helemaal gek van! Bij voorbaat dank!
[ Voor 20% gewijzigd door Verwijderd op 21-01-2004 15:12 ]
:strip_icc():strip_exif()/u/20300/icon_shrek.jpg?f=community){kind=icon}
:strip_icc():strip_exif()/u/34616/got1.jpg?f=community)
/u/56680/gurgi.png?f=community)