set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shopxp_product where shopxpptid="&request.form("shopxpptid")(i),conn,1,1
if request.Cookies("shopxp")("reglx")=2 then
danjia=rs_s("shopxpvjia")
else
danjia=rs_s("shopxphyjia")
end if
kucun=rs_s("kucun")
shopxpptname=rs_s("shopxpptname")
rs_s.close
set rs_s=nothing
if kucun<cint(productcount) then
response.write "<script language=javascript>alert('你选购的商品“"&shopxpptname&"”库存不足,不能修改数量,请选购更换其它商品!');window.location.href='xpbuy.asp?action=show';</script>"
response.end
end if
conn.execute("update shopxp_action set productcount="&productcount&",zonger="&danjia*productcount&" where shopxpacid="&request.form("shopxpacid")(i))
next
response.Redirect "xpbuy.asp?action=show"
%>
(3) 从购物车中删除指定商品以及清空购物车
在购物车页面中,单击对应商品后面的“ ”按钮,可以将该商品从购物车中删除。将购物车中的全部商品一次性退回的方法,也就是清空购物车,这样可以方便用户操作。其页面效果如图5-11所示。
图5-11清空购物车
点击页面中的“清空购物车”将删除购物车中所有的商品记录,这个操作由qkgwc.asp页面来实现,qkgwc.asp页面的主要程序代码分析如下:
<!--#include file="conn_xp/xp.asp"--www.751com.cn>
<%
if request.Cookies("shopxp")("username")<>"" then
username=trim(request.Cookies("shopxp")("username"))
else
username=request.Cookies("shopxp")("dingdanusername")
end if
conn.execute("delete from shopxp_action where username='"&username&"' and zhuangtai=7")
response.Redirect "xpbuy.asp?action=show"
%>
5.1.5 收银台设计
如同在超市中一样,将商品保存到购物车中并不是电子商品的最终目的,而到收银台结帐后,才算一次购物的最终完成。前面所有功能都是为最后生成一个用户满意的定单做准备。生成定单时,不仅要保存用户定单中所购买的商品信息和定单信息,同时还需要返回一个可供用户随时查询的定单号。用户单击查看我的购物车页面中的“去收银台”超链接即可进入到我要下定单页面中的下定单,所图5-12所示。
图5-12下定单
如果用户想修改定单的话还可以单击“修改购物车”超链接返回我的购物车页面,就可以在我的购物车页面修改;如果用户确认要下定单的话,单击“OK 下一步”超链接即可进入到我要下定单页面中的填写收货信息。所图5-13填写收货信息所示。
图5-13填写收货信息
收货信息填写完成后,单击“OK 下一步”超链接即可进入到我要下定单页面中的提交定单,所图5-14提交定单所示。
<< 上一页 [11] [12] [13] [14] [15] [16] 下一页