一个操作购物车的程序（ASP）

<%

'数据格式：商品ID|||商品数量|||其他~~~~~下一个记录

%>
<%
class shoppingCar
  public proid
  public proNum
  public other
  Private shoppingStr
  Private cars()
  Private hand
 
  public function open(str)'读入数据字符串
  shoppingStr=str
  hand=-1
  if shoppingStr="" or isNull(shoppingStr) Then
  else
     tempCar=split(shoppingStr,"~~~~~")
  ReDim cars(ubound(tempCar))
  for i=0 to ubound(tempCar)
     cars(i)=tempCar(i)
  next
  end if
  end function
 
  public function addshopping(shoppingId,shoppingNum,shoppingOther)'添加商品进入购物车
  if shoppingStr="" Then
     shoppingStr=shoppingId & "|||" & shoppingNum & "|||" & shoppingOther
  else
     do while getNext()=1
     add=1
     if proid=shoppingId and shoppingOther=Other Then
       add=0
       changeNum hand,Clng(proNum)+1
     end if
  loop
  hand=-1
  if add=1 Then
       shoppingStr=shoppingStr & "~~~~~" & shoppingId & "|||" & shoppingNum & "|||" & shoppingOther
  end if
  end if
  if shoppingStr="" or isNull(shoppingStr) Then
     else
        tempCar=split(shoppingStr,"~~~~~")
     ReDim cars(ubound(tempCar))
     for i=0 to ubound(tempCar)
       cars(i)=tempCar(i)
     next
       end if
  end function
 
  public function getNext()'进入下一条记录,并返回是否结束
    if shoppingStr="" Then
    getNext=0
 else
    hand=hand+1
    if hand>getCarLen() Then
      getNext=0
    else
      getnext=1
   tempArray=split(cars(hand),"|||")
      proId=tempArray(0)
   proNum=tempArray(1)
   Other=tempArray(2)
    end if
 end if
  end function
 
  public function delShopping(k)'按排序号删除商品
     delShopping=0
  if shoppingStr="" Then exit function
  if k<0 or k>getCarLen Then exit function
  if shoppingStr="" Then
  else
     for i=k to ubound(cars)-1
           cars(i)=cars(i+1)
        next
        redim Preserve cars(ubound(cars)-1)
        shoppingStr=join(cars,"~~~~~")
  delShopping=1
  end if
  end function
 
  public function delShoppingbyId(id)'按商品ID删除商品
     delShoppingbyId=0
  for i=ubound(car) to 0 step -1
     tempid=split(cars(i),"|||")(0)
  if tempid=id Then
      for j=i to ubound(cars)-1
      cars(j)=cars(j+1)
   next
   redim Preserve cars(ubound(cars)-1)
   shoppingStr=join(cars,"~~~~~")
   delShoppingbyId=1
  end if
  next
  end function
 
  public function changeNum(k,num)'按排序位改变商品数量
     changeNum=0
  if k<0 or k>getCarLen() Then exit function
  tempArray=split(cars(k),"|||")
  tempid=tempArray(0)
  tempNum=tempArray(1)
  tempOther=tempArray(2)
  tempNum="" & num
  cars(k)=tempid & "|||" & tempNum & "|||" & tempOther
  shoppingStr=join(cars,"~~~~~")
  changeNum=1
  end function
 
  function changeNumById(id,num)'按商品ID改变商品数量
     changeNumById=0
  if shoppingStr="" Then exit function
  for i=ubound(car) to 0 step -1
     tempArray=split(cars(k),"|||")
     tempid=tempArray(0)
     tempNum=tempArray(1)
     tempOther=tempArray(2)
  if tempid=id Then
      tempNum="" & num
         cars(k)=tempid & "|||" & tempNum & "|||" & tempOther
   shoppingStr=join(cars,"~~~~~")
   delShoppingbyId=1
  end if
  next
  end function
 
  public function getCarLen()'获得购物车长度
    if shoppingStr="" Then
   getCarLen=-1
 else
   getCarLen=ubound(cars)
 end if
  end function
 
  public function getHand()'取得当前句柄的位置
    getHand=hand
  end function
 
  public function save()'保存（读出）当前数据字符串
    save=shoppingStr
  end function
end class
%>

 

自己做的，贴出来希望大家给点意见