shopfeatures.asp

来自「ASP+SQL Server动态网站开发从基础到实践教程」· ASP 代码 · 共 31 行

<%
'******CartAddItem
dim mycolor
Sub CartAddItem(id, rc)
' Return 0 if added, 4 if product does not exist
' Get from datbase and add to instorage array
	dim scartitem
	Dim arrCart
	Dim TotalOptionPrice
	Dim Optionname
	CartGetProduct Id, rc
	if rc = 0 then
		arrCart = Session("MyCart")
		scartItem = Session("cartItem")
		scartitem=scartitem+1
		Session("cartItem")=scartitem
		arrCart(cProductid,scartItem) = lngcatalogID
		arrCart(cProductCode,scartItem) = strccode
		arrCart(cProductname,scartItem) = strcname
		If isnumeric(quantity) then
			arrCart(cQuantity,scartItem) = CInt(quantity)
		else
			arrCart(cQuantity,scartItem) = 1
		end if
		arrCart(cUnitPrice,scartItem) = curCprice + TotaloptionPrice
		Session("MyCart")=arrCart
	end if
end sub
%>