📄 addprod.asp
字号:
<%@ Language=VBScript %>
<% Option Explicit %>
<%
'shopping cart code on this page -
'generates session variables with order items
'a.shopKart - (c)1999 Katrien De Graeve - katrien@URLogy.com
%>
<!-- #include file="db.inc" -->
<%
Dim prodid, quantity, arrCart, scartItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart = Session("MyCart")
scartItem = Session("cartItem")
If scartItem = "" Then
Response.Redirect "error.asp?msg=" & Server.URLEncode ("We noticed you do not accept cookies. Please enable cookies to shop.")
End If
If prodid <> "" Then
If scartItem < maxCartItems Then
scartItem = scartItem + 1
End If
Session("cartItem") = scartItem
dim rsItem
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open "products", dbc, adOpenForwardOnly,adLockReadOnly,adCmdTable
rsItem.Filter = "catalogID = " & prodid
If Not rsItem.EOF Then
arrCart(cProductid,scartItem) = rsItem("catalogID")
arrCart(cProductCode,scartItem) = rsItem("ccode")
arrCart(cProductname,scartItem) = rsItem("cname")
arrCart(cQuantity,scartItem) = CInt(quantity)
arrCart(cUnitPrice,scartItem) = rsItem("cprice")
Session("MyCart") = arrCart
rsItem.Close
dbc.Close
End If
Else
Dim strAction
strAction = UCase(Left(Request.Form("action"),5))
Select Case strAction
Case "CONTI"
Response.Redirect "Default.asp"
Case "RECAL"
For i = 1 To scartItem
Dim tquantity
tquantity = Request.Form("Quantity" & Cstr(i))
arrCart(cQuantity,i) = CInt(tquantity)
Next
For i = 1 to scartItem
Dim confirm
confirm = Request.Form("selected" & CStr(i))
If confirm <> "yes" Then
scartItem = scartItem - 1
Dim x
For x = 1 to UBound(arrCart,1)
arrCart(x,i) = ""
Next
Dim n
n = i
while n < UBound(arrCart,2)
For x = 1 to UBound(arrCart,1)
arrCart(x,n) = arrCart(x,n + 1)
arrCart(x,n + 1) = ""
Next
n = n + 1
wend
end If
Next
Session("cartItem") = scartItem
Session("MyCart") = arrCart
Case "PROCE"
Response.Redirect "customer.asp"
End Select
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>Shopping cart items</title>
</HEAD>
<BODY>
<h3><font face="Arial">Shopping Cart Items:</font></h3>
<FORM action="addprod.asp" method="POST">
<TABLE border=0 cellPadding=3 cellSpacing=2 width=100%>
<TR bgColor=darkblue>
<TD><FONT color=white face=""
style="BACKGROUND-COLOR: #00008b">Product
code</FONT></TD>
<TD><FONT color=white face=""
style="BACKGROUND-COLOR: #00008b">Product name</FONT></TD>
<TD><FONT color=white face=""
style="BACKGROUND-COLOR: #00008b">Quantity</FONT></TD>
<TD><FONT color=white face="" style="BACKGROUND-COLOR: #00008b">Unit
Price</FONT></TD>
<TD><FONT color=white face=""
style="BACKGROUND-COLOR: #00008b">Total</FONT></TD></TR>
<%
Dim isubtotal, i
isubtotal = 0
For i = 1 to scartItem
%>
<TR bgColor=navajowhite>
<TD><INPUT name=selected<%= Cstr(i)%> type=checkbox value="yes" checked><%= arrCart(cProductCode,i) %></TD>
<TD><%= arrCart(cProductname,i) %></TD>
<TD><INPUT type="text" name=quantity<%= CStr(i) %> value="<%= arrCart(cQuantity,i) %>"></TD>
<TD><%= FormatCurrency(arrCart(cUnitPrice,i),2) %></TD>
<TD><%= FormatCurrency(arrCart(cUnitPrice,i) * arrCart(cQuantity,i),2) %></TD></TR>
<%
isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i))
Next
%>
<TR>
<TD></TD>
<TD></TD>
<TD></TD>
<TD bgColor=darkblue><FONT color=white face="" style="BACKGROUND-COLOR: #00008b">Total</FONT></TD>
<TD bgColor=lightgoldenrodyellow><%= FormatCurrency(isubtotal,2) %></TD></TR></TABLE></P>
<P><INPUT name="action" type=submit value="Continue shopping">
<INPUT name=action type=submit value="Recalculate"> <br>
<INPUT name=action type=submit value="Proceed to check out">
</P></FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -