7.3 在ASP中实现购物小车

为了讲解方便，突出重点，本文用数组实现要显示的商品信息。但在实际的系统开发中，这些商品信息的数据应该来自后台数据库。
　　在程序中，我们定义了一个sp数组并对其赋值，然后用一个循环实现其数据显示及对下一个程序的数据传递。程序部分代码如下：
＜％ i=1
do while (i＜=5) ％＞
＜tr ＞ ＜td＞＜％=sp(i)％＞＜/td＞
＜td＞＜a href=cart.asp？spid=＜％=sp(i)％＞＞订购＜/a＞＜/td＞ ＜/tr＞
＜％ i=i＋1
loop ％＞
   构建购物小车
　　为处理用户订购商品的操作，我们自定义了两个Session的属性，分别是spid(用来保存商品名称)和num(用来保存相应商品的订购数量)。当用户订购了一种商品后，我们分三种情况对Session进行处理：
●购物小车为空，即Session(spid")=",直接将spid与num加入Session；
●购物小车非空且当前订购的商品是购物小车中没有的，则处理方法同上；
●购物小车非空但当前订购的商品是购物小车中已有的，Session保持不变。
程序实现的要点是如何判别当前订购的商品在购物小车中是否存在，因此，首先要将Session变量的内容拆分并存入数组：
array1=split(Session(spid),:)
然后用循环语句判别array1中是否有元素与传递来的spid相同并将结果存入变量ifbuy：
for i=0 to ubound(array1)－1
if array1(i)= Request.QueryString(spid) then
ifbuy=true
exit for
end if
next
将新增的商品信息加入Session：
Session(spid)=Session(spid)＆ Request.
QueryString(spid)＆:
Session对象的另一个自定义属性num的处理同spid相同。
    购物小车的显示
　　显示用户已经购买的商品信息，即是显示Session变量的内容。只要将Session变量的内容拆分，存入数组中，再显示数组的内容即可。购物小车的显示界面如图1所示，其中数量栏的类型为text",取消本商品栏的类型为checkbox。这两栏的数据是可以变动的，在取消本商品栏中打√，再按重新计算，将在购物小车中取消该商品。

图1

重新计算和继续购买两个命令按钮用JavaScript实现：
＜script language=JavaScript"＞
＜!－－
function onback(theForm)
{window.history.back() }
function recal(theForm)
{theform.action=modifycart.asp" }
－－＞
＜/script＞

实现显示购物小车的代码如下：
＜％
dim k
array1=split(Session(spid),:)
array2=split(Session(num),:)
k=0
do while k＜ubound(array1) ％＞
＜tr＞
＜td＞＜p align=center＞＜％=array1(k)％＞
＜/p＞＜/td＞
＜td＞＜p＞＜input type=text name=t1 size=10 value=＜％=array2(k)％＞＞＜/p＞＜/td＞
＜td＞＜p＞＜input type=checkbox name=
ifcancel value=＜％=k％＞ ＞＜/p＞＜/td＞＜/tr＞
＜％ k=k＋1
loop ％＞
＜tr＞
＜td align=center height=42 colspan=2＞
＜input type=submit name=submit value=重新计算
onclick=return recal(this.form)＞＜/td＞
＜td align=center height=42 colspan=3＞
＜input type=submit name=Submit&rdquo