＋设为首页 ＋添加到收藏夹
castclass.asp
´放商品的空间 private prospace 【程序编程相关:如何在工具栏中，加上图标和文字？(How】
<%class shopbag 【推荐阅读:如何定制struts以适应自己的需求】
´=============================================================´ 共有的´============================================================= 【扩展信息:如何嵌入（Docking）一个工具条(H】
´商品信息个数 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
... 下一页