编辑“ASP实例如2”

在[[ASP]]中实现购物小车<br>
在程序中，我们定义了一个sp数组并对其赋值，然后用一个循环实现其数据显示及对下一个程序的数据传递。程序部分代码如下： <br>

＜％ i=1 <br>
do while (i＜=5) ％＞ <br>
＜tr ＞ ＜td＞＜％=sp(i)％＞＜/td＞ <br>
＜td＞＜a href=“cart.asp?spid=＜％=sp(i)％＞”＞订购＜/a＞＜/td＞ ＜/tr＞ <br>
＜％ i=i＋1 <br>
loop ％＞ <br>

   构建购物小车 <br>
　　为处理用户订购商品的操作，我们自定义了两个Session的属性，分别是“spid”(用来保存商品名称)和“num”(用来保存相应商品的订购数量)。当用户订购了一种商品后，我们分三种情况对Session进行处理： <br>
●购物小车为空，即Session(“spid")=“",直接将spid与num加入Session； <br>
●购物小车非空且当前订购的商品是购物小车中没有的，则处理方法同上； <br>
●购物小车非空但当前订购的商品是购物小车中已有的，Session保持不变。 <br>
程序实现的要点是如何判别当前订购的商品在购物小车中是否存在，因此，首先要将Session变量的内容拆分并存入数组： <br>
array1=split(Session(“spid”),“:”) <br>
然后用循环语句判别array1中是否有元素与传递来的spid相同并将结果存入变量ifbuy： <br>

for i=0 to ubound(array1)－1 <br>
if array1(i)= Request.QueryString(“spid”) then <br>
ifbuy=true <br>
exit for <br>
end if <br>
next <br>

将新增的商品信息加入Session： <br>
Session(“spid”)=Session(“spid”)＆ Request. <br>
QueryString(“spid”)＆“:” <br>
Session对象的另一个自定义属性num的处理同spid相同。 <br>
    购物小车的显示 
　　显示用户已经购买的商品信息，即是显示Session变量的内容。只要将Session变量的内容拆分，存入数组中，再显示数组的内容即可。购物小车的显示界面如图1所示，其中“数量”栏的类型为“text",“取消本商品”栏的类型为“checkbox”。这两栏的数据是可以变动的，在“取消本商品”栏中打“√”，再按“重新计算”，将在购物小车中取消该商品。<br>








“重新计算”和“继续购买”两个命令按钮用JavaScript实现： <br>

＜script language=“JavaScript"＞ <br>
＜!－－ <br>
function onback(theForm) <br>
{window.history.back() } <br>
function recal(theForm) <br>
{theform.action=“modifycart.asp" } <br>
－－＞ <br>
＜/script＞ <br>



实现显示购物小车的代码如下： <br>

＜％ <br>
dim k <br>
array1=split(Session(“spid”),“:”) <br>
array2=split(Session(“num”),“:”) <br>
k=0 <br>
do while k＜ubound(array1) ％＞ <br>
＜tr＞ <br>
＜td＞＜p align=“center”＞＜％=array1(k)％＞ <br>
＜/p＞＜/td＞ <br>
＜td＞＜p＞＜input type=“text” name=“t1” size=“10” value=“＜％=array2(k)％＞”＞＜/p＞＜/td＞ <br>
＜td＞＜p＞＜input type=“checkbox” name= <br>
“ifcancel” value=＜％=k％＞ ＞＜/p＞＜/td＞＜/tr＞ <br>
＜％ k=k＋1 <br>
loop ％＞ <br>
＜tr＞ <br>
＜td align=center height=“42” colspan=“2”＞ <br>
＜input type=“submit” name=“submit” value=“重新计算” <br>
onclick=“return recal(this.form)”＞＜/td＞ <br>
＜td align=center height=“42” colspan=“3”＞ <br>
＜input type=“submit” name=“Submit” value=“继续购买” <br>
onclick=“return onback(this.form)”＞＜/td＞ <br>
＜/tr＞ <br>

   购物小车的修改 <br>
　　在用户点击“重新计算”按钮后，需要对购物小车的内容进行修改，包括对数量的修改和将被取消的商品从Session中删除。 <br>
　　对于数量的修改，只要将文本框中被变动过的数据重新存入Session中即可： 
<br>
＜％ <br>
’首先将保存在Session变量中的订购数量提取出来 <br>
array=split(Session(“num”),“:”) <br>
’将文本框t1中商品的数量提取出来，存入array数组中 <br>
if Request.Form(“t1”)＜＞“”then <br>
Session(“num”)=“” <br>
j=0 <br>
for each item in Request.Form(“t1”) <br>
array(j)=item <br>
j=j＋1 <br>
next <br>
’将提交后的商品数量放入Session变量中 <br>
for i=0 to ubound(array)－1 <br>
Session(“num”)=Session(“num”)＆array(i)＆“:” 
<br>next <br>
end if ％＞ <br>

　　要从Session中删除被选中的商品，首先要取得“checkbox”的返回值，它用来定位被取消的商品在Session变量中的位置。“checkbox”的返回值k是一个循环变量，是商品所在行的行数，其实也就是被选中商品在Session中的位置。如果不加返回值定义的话，“checkbox”的返回值是按自然数顺序排列的。例如，在图1所示的情况下，如果“电视机”和“书籍”两行被选中，若是“checkbox”不加返回值定义，它的返回值将分别为1和2，这样就会导致把“电视机”和“钢笔”从Session中删除的错误。 <br>

＜％ dim array1,array2,ifcancel(20),m1,m2,i,j <br>
array1=split(Session(“spid”),“:”) <br>
array2=split(Session(“num”),“:”) <br>
m1=ubound(array1)－1 <br>
m2=ubound(array2)－1 <br>
’保存复选框checkbox的值 <br>
for i=1 to Request.Form (“ifcancel”).Count <br>
ifcancel(i)=Request.Form (“ifcancel”)(i) <br>
next <br>
for i=1 to Request.Form (“ifcancel”).Count <br>
’将checkbox选中的spid和num从Session中去掉 <br>
for j=ifcancel(j) to m1－1 <br>
array1(j)=array1(j＋1) <br>
array2(j)=array2(j＋1) <br>
next <br>
’将总数减1，并将后面的checkbox的值减1 <br>
m1=m1－1 <br>
for p=i to Request.Form (“ifcancel”).Count <br>
ifcancel(p)=ifcancel(p)－1 <br>
next <br>
’将处理后的spid和num放回Session <br>
Session(“spid”)=“” <br>
Session(“num”)=“” <br>
for j=0 to m1 <br>
Session(“spid”)=Session(“spid”)＆array1(j)＆“:” <br>
Session(“num”)=Session(“num”)＆array2(j)＆“:” <br>
next <br>
next ％＞  <br>

　　本文重点说明购物小车的实现与修改，所以对数据进行了简单化处理。在实际的商业系统中，对数据的处理要复杂得多，例如需要例外及安全验证等。 <br>
[[category:ASP]]