UC知道求救~~~~asp建购物车,看看错在哪里??
来源：百度知道 编辑：UC知道 时间：2024/06/15 23:42:49
Class UserCart
Sub CreateCart()
内容省略
End Sub
'检查购物车
Public Function CheckCart()
IF IsArray(Session("UserCart")) THEN
CheckCart = true
ELSE
CheckCart = false
END IF
End Function
'检查购物车是否为空
Function CheckEmtpy()
dim mCart
mCart=Session("UserCart")
For i =LBound(mCart,2) to UBound(mCart,2)
if mCart(0,i)<>"" then
CheckEmtpy=false
Exit Function
end if
next
CheckEmtpy=True
End Function
'添加商品
@@@@@@@@@@就是这个函数@@@@@@@
Function AddItem(aID,aName,aPrice1，aCount)
dim mCart
AddItem=false
if CheckItem(aID)=false then
'无此商品
mCart=Session("Us
Sub CreateCart()
内容省略
End Sub
'检查购物车
Public Function CheckCart()
IF IsArray(Session("UserCart")) THEN
CheckCart = true
ELSE
CheckCart = false
END IF
End Function
'检查购物车是否为空
Function CheckEmtpy()
dim mCart
mCart=Session("UserCart")
For i =LBound(mCart,2) to UBound(mCart,2)
if mCart(0,i)<>"" then
CheckEmtpy=false
Exit Function
end if
next
CheckEmtpy=True
End Function
'添加商品
@@@@@@@@@@就是这个函数@@@@@@@
Function AddItem(aID,aName,aPrice1，aCount)
dim mCart
AddItem=false
if CheckItem(aID)=false then
'无此商品
mCart=Session("Us
<!--#INCLUDE file="config.inc" -->
<%'用cookies记录用户选取的商品
' 接收传递的参数，即用户选中商品的信息。这些参数通过URL传递，因此需要用Form的Querystring来接收
productid=trim(request.querystring("productid"))
productname=trim(request.querystring("productname"))
price=trim(request.querystring("price"))
photo=trim(request.querystring("photo"))
if photo="" then photo="noimage.gif"
' 获取当时服务器的时间和日期，作为此次交易开始的时间
moment=date()&" " &time()
' Session("insert")是记录交易定单操作的变量。如果刚刚进行了一次定单操作，则该变量值就不为空，需要首先清空购物车
if session("insert")=session.sessionid then
session("insert")=false
for each key in request.cookies("itembuy")
response.cookies("itembuy")(key)=""
next
end if
response.cookies("itembuy")(productid)=productid '将这个商品的id加入到cookie 字典itembuy中
' 下面显示出用