购物小车的修改
在用户点击“重新计算”按钮后，需要对购物小车的内容进行修改，包括对数量的修改和将被取消的商品从Session中删除。
对于数量的修改，只要将文本框中被变动过的数据重新存入Session中即可：
＜％
’首先将保存在Session变量中的订购数量提取出来
array=split(Session(“num”),“:”)
’将文本框t1中商品的数量提取出来，存入array数组中
if Request.Form(“t1”)＜＞“”then
Session(“num”)=“”
j=0
for each item in Request.Form(“t1”)
array(j)=item
j=j＋1
next
’将提交后的商品数量放入Session变量中
for i=0 to ubound(array)－1
Session(“num”)=Session(“num”)＆array(i)＆“:”
next
end if ％＞
要从Session中删除被选中的商品，首先要取得“checkbox”的返回值，它用来定位被取消的商品在Session变量中的位置。“checkbox”的返回值k是一个循环变量，是商品所在行的行数，其实也就是被选中商品在Session中的位置。如果不加返回值定义的话，“checkbox”的返回值是按自然数顺序排列的。例如，在图1所示的情况下，如果“电视机”和“书籍”两行被选中，若是“checkbox”不加返回值定义，它的返回值将分别为1和2，这样就会导致把“电视机”和“钢笔”从Session中删除的错误。
＜％ dim array1,array2,ifcancel(20),m1,m2,i,j
array1=split(Session(“spid”),“:”)
array2=split(Session(“num”),“:”)
m1=ubound(array1)－1
m2=ubound(array2)－1
’保存复选框checkbox的值
for i=1 to Request.Form (“ifcancel”).Count
ifcancel(i)=Request.Form (“ifcancel”)(i)
next
for i=1 to Request.Form (“ifcancel”).Count
’将checkbox选中的spid和num从Session中去掉
for j=ifcancel(j) to m1－1
array1(j)=array1(j＋1)
array2(j)=array2(j＋1)
next
’将总数减1，并将后面的checkbox的值减1
m1=m1－1
for p=i to Request.Form (“ifcancel”).Count
ifcancel(p)=ifcancel(p)－1
next
’将处理后的spid和num放回Session
Session(“spid”)=“”
Session(“num”)=“”
for j=0 to m1
Session(“spid”)=Session(“spid”)＆array1(j)＆“:”
Session(“num”)=Session(“num”)＆array2(j)＆“:”
next
next ％＞
本文重点说明购物小车的实现与修改，所以对数据进行了简单化处理。在实际的商业系统中，对数据的处理要复杂得多，例如需要例外及安全验证等。
