asp shopping cart

 
<%  
dim proId,qtn,act
act=Request("act")     '根据act的值,来判断采取什么过程.
proId=Request("proId") 'productID
qtn=Request("qtn")     'Quantity

if act="mod" then      '修改商品数量
  call uCart.ModifItem(proId,qtn,2)
elseif act="del" then  '删除某个商品
  call uCart.DelItem(proId)
elseif act="clearAll" then '清空购物车
  call uCart.RemoveAll()
end if
If uCart.CheckItem(proId)=False and act="add" Then '添加产品进行判定,防止刷新页面增加商品
	set rs = Server.CreateObject("adodb.recordset")
	rs.open "select goods_name,market_price,shop_price,goods_img from t_goods where goods_id="&proId,conn,1,1
	if not rs.eof then
	    call uCart.AddItem(proId,rs("goods_name"),rs("market_price"),rs("shop_price"),0,qtn,rs("goods_img"))
	end if
	rs.close
	set rs=nothing
end if
myCart=uCart.ViewCart() '查看购物车里详细信息
%>
            <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#DEF3C8">
              <tr>
                <td width="11%" height="30" align="center" class="font_14hei">图片</td>
                <td width="19%" align="center" class="font_14hei">商品名称</td>
                <td width="20%" align="center" class="font_14hei">销售价格</td>
                <td width="20%" align="center" class="font_14hei">优惠价格</td>
                <td width="10%" align="center" class="font_14hei">数量</td>
                <td width="10%" align="center" class="font_14hei">金额</td>
                <td width="10%" align="center" class="font_14hei">操作</td>
              </tr>
           <%
		For i=LBound(myCart,2) To UBound(myCart,2)
 			If myCart(0,i)<>"" Then '以前的判断语句
		   %>
              <form name="form1" method="post" action="?act=mod">
              <tr>
                <td height="30" align="center" bgcolor="#FFFFFF"><img src="<%= myCart(6,i) %>" width="98" height="103" /></td>
                <td align="center" bgcolor="#FFFFFF" class="font_12lvse"><%= myCart(1,i) %></td>
                <td align="center" bgcolor="#FFFFFF">¥<%= myCart(2,i) %></td>
                <td align="center" bgcolor="#FFFFFF">¥<%= myCart(3,i) %></td>
                <td align="center" bgcolor="#FFFFFF"><input name="qtn" type="text" value="<%= myCart(5,i) %>" size="2" οnkeyup="this.value=this.value.replace(/\D/g,'')" />
                <input type="hidden" name="proId" value="<%= myCart(0,i) %>" />
                <input type="submit" value="修改" /></td>
                <td align="center" bgcolor="#FFFFFF">¥<% Response.Write(myCart(5,i)*myCart(3,i)) %></td>
                <td align="center" bgcolor="#FFFFFF"><a href="?act=del&proId=<%= proId %>">删除</a></td>
              </tr>
              </form>
              <%
		 	End If
		Next
		if uCart.CheckEmtpy then Response.Write("<td colspan='7' align='center'>暂无购买商品,请继续 <a href='product.asp' style='color:red'>购物</a></td>")
		myprice=uCart.TPrice() '得到商品总金额
%>
            </table>            
            <p style="margin-top:5px;">
                 <input type="button" value="继续购物" οnclick="window.location.href='product.asp';" />
              <input type="button" value="清空购物车" οnclick="window.location.href='?act=clearAll';" />
              <span style="margin-left:500px;">商品总额:¥<%
			  if uCart.CheckEmtpy then '检查购物车是否为空
			  	 Response.Write(0)
			  else
			     Response.Write(myprice(1)) 
			  end if 
			  %></span>
              <input type="button" value="去结算" style="margin-left:10px;" οnclick="window.location.href='order1.asp';" />
             </p>

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值