书签 分享 收藏 举报 版权申诉 / 53

类型会员购物购物车的实现实训指导.docx

  • 文档编号:29665534
  • 上传时间:2023-07-26
  • 格式:DOCX
  • 页数:53
  • 大小:548.62KB

pbm=<%=rs("pbm")%>">

<%rs.movenext

loop

else

response.write"对不起还没有商品!

"

endif

rs.close%>

三、购物车的实现

1.创建文件basket.asp,调用该文件时传递了实际参数pbm,href="basket.asp?

pbm=<%=rs("pbm")%>"一定要看懂该句话的含义!

basket.asp文件的设计视图如图9所示:

basket.asp文件的核心代码如下:

--#includefile="conn.asp"-->

<%ifsession("username")<>""then%></p><p><%=session("username")%>的购物车</p><p><%else</p><p>response.write"购物车"</p><p>endif%></p><p>

<%

ifsession("username")=""then

response.Redirect"buysm.asp"

endif

%>

1pxsolid#0D7CCB">

14px;font-weight:

bold;color:

#ffffff;padding:

10px">选购信息

<%

pbm=request.QueryString("pbm")

sql="select*fromgoodswherepbm='"&pbm&"'"

setrs=server.createobject("adodb.recordset")

rs.opensql,conn,1,1

dowhilenotrs.eof

%>

所选购的商品信息

pbm=<%=rs("pbm")%>">

collapse">

商品名称

订购单价

订购数量

确认购买

">

">

<%fori=1to10%>

<%next%>

src="image/ok.gif"alt=确认

width="45"height="20">

<%

rs.movenext

loop

rs.close%>

这个文件的代码通用性比较强,再做网站移植时可以按网页的需求增加及减少对表中字段的处理即可。

2.创建basket.asp文件中表单提交后调用的文件BUY.asp,注意理解下面语句的含义。

pbm=<%=rs("pbm")%>">

BUY.asp文件的设计视图如图10所示:

图10

BUY.asp文件的代码视图如下:

--#includefile="conn.asp"-->

<%ifsession("username")<>""then%></p><p><%=session("username")%>的购物车</p><p><%else</p><p>response.write"购物车"</p><p>endif%></p><p>

<%

ifsession("username")=""then

response.Redirect"buysm.asp"

endif

dimsql

ifrequest("count")=""then

count=1

else

count=request("count")

endif

ifrequest("pbm")=""then

response.write"没有此商品!

"

else

pbm=request("pbm")

endif

sql="select*frombasketwherepbm='"&pbm&"'andusername='"&session("username")&"'andbasket_check=false"

rs.opensql,conn,3,3

ifrs.eofthen

rs.addnew

rs("pbm")=pbm

rs("username")=session("username")

rs("basket_count")=count

rs("basket_date")=now()

rs("pname")=request("pname")

rs("price")=request("price")

else

rs("basket_count")=int(rs("basket_count"))+int(count)

endif

rs.update

rs.close

%>

1pxsolid#0D7CCB">

14px;font-weight:

bold;color:

#ffffff;padding:

10px">订购信息

当前你已订购的商品

商品名称

商品单价

订购数量

订购时间

合计

<%sql="select*frombasketwhereusername='"&session("username")&"'andbasket_check=false"

rs.opensql,conn,3,3

dowhilenotrs.eof%>

<%=rs("pname")%>

<%=rs("price")%>元

<%=rs("basket_count")%>

<%=rs("basket_date")%>

<%=rs("price")*rs("basket_count")%>元

<%totalcash=totalcash+(rs("price")*rs("basket_count"))%>

<%rs.movenext

loop

rs.close

%>

总     计:

<%=totalcash%>元

四、付款生产订购单

1.创建文件cash.asp,其功能是对购物车中的所有商品进行汇总,生产订单。

cash.asp的设计视图如图12所示:

图12

cash.asp的代码视图是:

无标题文档

--#includefile="conn.asp"-->

<%

ifsession("username")=""then

response.Redirect"buysm.asp"

endif

%>

14px;

举报
举报
版权申诉
版权申诉
word格式文档无特别注明外均可编辑修改;预览文档经过压缩,下载后原文更清晰! 立即下载
配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
会员 购物 实现 指导
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:会员购物购物车的实现实训指导.docx
链接地址:https://www.bdocx.com/doc/29665534.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开