用ASP设计购物推车(2)


createcart设计:
请看程序代码:
class cartkit rem 开始类cartkit的定义
sub createcart()
 if isarray(session("cart")) = false then
  dim mudcart(19,1)
  session("cart") = mudcart
 end if
end sub
其中:session("cart")保存的就是推车的内容。如果推车不存在,我们就定义一个二维数组mudcart来表达推车,并将它保存到session("cart")中。
checkcart设计:
本函数判断cart是否已经创建。比较简单。
function checkcart()
if isarray(session("cart")) then
  checkcart=true
 else
  checkcart=false
 end if
end function
checkitem设计:
请看代码:
function checkitem(id)
if checkcart=true then
  varmudcart = session("cart")
  for i = lbound(varmudcart)to ubound(varmudcart)
 if varmudcart(i,0) = id then
  checkitem=true
 exit function
 elseif varmudcart(i,0) <> id then
  checkitem=false
 end if
  next
 end if
end function
首先判断推车是否存在。然后将商品的编号id和购物推车中的商品编号逐一比较。如果有相等的,返回真。否则为假。
additem(id,qty)设计:
请参考本文的附件cartkit.asp,这里介绍的函数我们把它们封装到一个名为cartkit的class中。下面的代码段首先创建了一个cartkit对象,然后检查推车是否已经存在。如果不存在,就创建推车并新增商品;否则,检查商品编号是否已经存在于cart中。如果是,就更新数量;否则,新增商品。


function additem(id, qty)
set cartobj = new cartkit
varcartstatus = cartobj.checkcart
 if varcartstatus=false then
  cartobj.createcart
  mudcart=session("cart")
  mudcart(0,0)=id
  mudcart(0,1)=qty
  session("cart")=mudcart
   exit function
 elseif varcartstatus=true then
 if cartobj.checkitem(id) = true then
  cartobj.updateitem id,qty
 elseif cartobj.checkitem(id) = false then
  mudcart = session("cart")
 for i = lbound(mudcart) to ubound(mudcart)
 if mudcart(i,0) = "" then
  mudcart(i,0) = id
  mudcart(i,1) = qty
  session("cart") = mudcart
 exit function
 end if
 next
 end if
 end if
end function
updateitem设计:
function updateitem(id, qty)
mudcart = session("cart")

 for i = lbound(mudcart) to ubound(mudcart)
  if mudcart(i,0) = id then
   mudcart(i,1) = qty
   session("cart")=mudcart
   exit function
  end if
 next
end function
viewitem设计:
function viewitem()
mudcart=session("cart")
if isarray(mudcart) then
%>

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3437.html