购物车

castclass.asp

<%
Class ShopBag

 '放商品的空间
 Private ProSpace

 '商品信息个数
 Private ItemsCout

'=============================================================
'                     共有的
'=============================================================

 '方法名:PutAPro
 '参数:一个存有商品信息的数组--ProData
 '作用:将一个商品放入购物车
 '返回值：
 '成功放入商品，返回true
 '商品存在,返回false    
 Public Function PutAPro(ByRef ProData)
 'size:'最后一个
 dim size,result,flag
 ItemsCout = ubound(ProData)  '商品信息个数
 GetPro

 if CreateSpace then
 '有商品需要检测商品是否存在
 MyPrint "有商品需要检测商品是否存在"
  flag = CheckProExists(ProData(0)) 
 else
  flag = false '购物车没有商品
  MyPrint "购物车没有商品"
 end if

 if not flag then

   size = Ubound(ProSpace)

   for i = 0 to ItemsCout
    ProSpace(size,i) = ProData(i)
   next
   MyPrint "放入一个商品....<br>"
   SavePro
   result = true
 else
 result = false
 end if

 PutAPro = result  
 End Function
 '----------------------------------------------
 

 '得到所有商品
 Public Function GetAllPro(ByRef ProList)
  ProList  = Session("ProID")
 End Function
 '----------------------------------------------

 '更新产品个数
 Public Function UpdatePro(ByRef ProNumList)

 dim ProNumData
 GetPro
  ProNumData = split(ProNumList,",")

  for i =0 to Ubound(ProNumData)
   ProSpace(i,3) = Cint(trim(ProNumData(i)))
  next  
 SavePro
 MyPrint "更新了所有商品个数"
 End Function

 '删除一个商品
 Public Function DeleteAPro(id)
 MyPrint "准备删除一个商品"
 dim count
 GetPro
 count = UBound(ProSpace)
 
 if count=0 then
 MyPrint "商品已经是最后一个了, 将session设为null"
  Session("ProID") = null
 else
  redim tempAr(count-1,3)
   MyPrint "开始查找要删除的商品id..."
   for i = 0 to count
    if Cint(ProSpace(i,0)) = Cint(id) then
     MyPrint "找到ID,删除!"
      for j=i to count-1
       ProSpace(j,0) = ProSpace(j+1,0)
       ProSpace(j,1) = ProSpace(j+1,1)
       ProSpace(j,2) = ProSpace(j+1,2)
       ProSpace(j,3) = ProSpace(j+1,3)
      next

     exit for
    end if
   next

   for i = 0 to count-1
    tempAr(i,0) = ProSpace(i,0)
    tempAr(i,1) = ProSpace(i,1)
    tempAr(i,2) = ProSpace(i,2)
    tempAr(i,3) = ProSpace(i,3)
   next 
   Session("ProID") = tempAr
  end if
  
 End Function
 '---------------------------------------------
 
 '得到商品的某项信息列表 ， 号隔开
 Public Function GetProList(n)
 dim result
  GetPro
  if isnull(ProSpace) then
   result = null
  else
   for i =0 to ubound(ProSpace)
    if i = 0 then
     result = ProSpace(i,n)
    else
     result =result&","&ProSpace(i,n)
    end if
  next
  end if 
  KillMe
 GetProList = result
 End Function

'==================================================================

 

'=================================================================
'                       私有的
'=================================================================
 '检测商品是否已经存在
 '存 在 返回  true
 '不存在返回 false
 Private Function CheckProExists(ProID)
 MyPrint "检测商品是否存在?<br>"
 dim result
  result = false

  for i = 0 to  Ubound(ProSpace)
   if Cint(ProSpace(i,0)) = Cint(ProID) then
    result = true
   End if
  next
 CheckProExists = result
 End Function
 '------------------------------------------------

 '作用:
 '开辟存放物品的空间
 '返回值:
 '新开大小返回 false
 '重构空间大小返回 true
 Private Function CreateSpace()
 dim result
 MyPrint "开始开辟空间...<br>"
  'ReSize: 空间大小
  dim ReSize

  '计算需要空间大小
  if isarray(ProSpace) then '已经有商品了
   MyPrint "已有空间,需要重构空间大小!<br>"
   ReSize = UBound(ProSpace)+1
   MyRedim ProSpace,ReSize
   result  = true
   MyPrint "重构了空间大小=+1...<br>"
  else   
   redim ProSpace(0,ItemsCout)
   result  = false
   MyPrint "没有空间,开辟!...<br>"
  End if  
 CreateSpace = result
 End Function
 '----------------------------------------------
 
 '重新构造一个数组
 private Function MyRedim(byRef aArray,ByVal Size)
  MyPrint "开始重构空间大小...<br>"
   redim TmpArray(Size,ItemsCout)
   
   '备份信息
   for i = 0 to Ubound(aArray)
    for j =0 to ItemsCout
     TmpArray(i,j) = aArray(i,j)
    next
   next
   
   redim aArray(Size,ItemsCout)

   '还原信息
   for j = 0 to ubound(TmpArray)
    for k =0 to ItemsCout
    aArray(j,k) = TmpArray(j,k)
    next
   next

 End Function
 '-----------------------------------------------

 '保存商品
 Private Function SavePro
  Session("ProID") = ProSpace
  MyPrint "保存购物车....<br>" 
  KillMe
  MyPrint "释放了空间..<br>"
 End Function
 '----------------------------------------------
 
 '从Session中取出商品
 Private Function GetPro
  ProSpace = Session("ProID")
  MyPrint "将Session中的商品放入了购物车....<br>"
 End Function
 '----------------------------------------------
 

 '释放空间
 private Function KillMe
  ProSpace = null
 End Function
 '----------------------------------------------
End Class
%>

使用:

 

<!--#include file="CastClass.asp"-->
<%

'显示操作过程
Function MyPrint(str)
 Response.write str
End Function

dim aShowBag,ProData,ProList

ProData = Array(1,"ProName","ProPrice","ProNum")

set aShowBag = new ShopBag

 state = aShowBag.PutAPro(ProData) '放入一个商品
 ProData= null
 aShowBag.GetAllPro ProList

 if state then
  Response.Write "放入一个商品<br>"
 else
  Response.Write "商品已经存在<br>"
 end if
Set ShowBag = nothing

if isarray(ProList) then
 for i = 0 to ubound(ProList)
  for j =0 to 3
   Response.Write ProList(i,j)&"=="
  next
  Response.Write "<br>============<br>"
 next
else
Response.write "没有商品"
End If

%>