购物车程的规划.doc

一、购物车程序的规划 功能模块有：添加物品、删除物品、清空购物车、修改购买物品数量 在物品展示页面以物品的ID号为参数来运行JS函数PutWare(strID) PutWare(strID)函数内容如下： script language=JavaScriptfunction PutWare(strID){Shopwin=window.open(shopping.asp?action=addspid=+strID+PtCount=1,WareList,width=580,height=250,scrollbars=yes,resiza ble=yes);Shopwin.focus();}/script 此函数功能，打开购物车shopping.asp并传传递当前页变量参数（acction,id,ptcount）物品展示外的调用如下： 添加物品：a href=javascript：; onClick=PutWare(%=trim(rs(id))%)放入购物车/a 二、添加商品代码分析： %添加商品if request(action)=add thencall AddProduct(request(spid),CInt(request(PtCount)))end if% 此段判断是否要放物品在购物车中，如果是的话，调用AddProduct(strPcID,intCount)过程，过程代码如下： %sub AddProduct(strPcID,intCount)ProductList = Session(ProductList)?? 商品ID列表ProductCount=Session(ProductCount)?? 商品数量列表Products = Split(ProductList, ,)?? 分割物品种类为数组PtCounts = Split(ProductCount, ,)?? 分割物品数量为数组 下面为寻求购物车中是否有该商品，如果没有则追加For i=0 To UBound(Products)返回Products的元素个数，及数组Products的最大的下标。??? if Products(i)=strPcID then exit forNext 还没有该商品，追加if iUBound(Products) then?? Session(ProductList) = ProductList strPcID ,?? Session(ProductCount) = ProductCount intCount , else?? 如果商品已在车中，累加数量?? PtCounts(i)=Cint(PtCounts(i)) + intCount?? Session(ProductList) =join(Products,,)?? Session(ProductCount) =join(PtCounts,,)将数组转换成字串end if end sub % 三、删除商品代码分析： 删除物品：input type=button name=Submit value=删除 onClick=DeleProduct(%=rs(id)%) %if request(action)=modiy thencall ModifyProduct(request(spid),CInt(request(PtCount)))end if% 此段判断是否要删除购物车中的指定物品，如果是的话，调用ModifyProduct(strPcID,intCount)过程，过程代码如下： %sub ModifyProduct(strPcID,intCount)ProductList = Session(ProductList)?? 商品ID列表ProductCount=Session(ProductCount)?? 商品数量列表Products = Split(ProductList, ,)PtCounts = Split(ProductCount, ,) 寻求购物车中是否有该商品，如果有则删除For i=0 To UBound(Products)if Products(i)=strPcID then exit forNext 还有该商品，删除该商品指定的数量if i=UBound(Products) thenPtCounts(i)=intCount??if PtCounts(i) 0 then PtCounts(i)=0 防止溢出end if将数组转换成字串Session(ProductList) =join(Products,,)Session(ProductC