实验十六 制作购物车网页 实验目的:掌握购物车页面设计技术 实验内容:制作购物车功能模块 实验步骤: 1、设置站点目录 设置站点主目录为E:\mywebs,在其下建立购物车子目录为shopbag用于存放购物车网页及相关文件。把ShopBag.mdb和B01.jpg文件拷贝到子目录shopbag下。 2、建立商品数据库 商品数据库SHOPBAG.mdb有2个数据表Category为商品类别表,Products为商品信息表,把其改为自己站点的商品数据库,商品记录不得少于10条。 3、制作购物车网页 用FrontPage打开网站,在Shopbag目录下新建空白网页,切换到代码视图,删除自动生成的代码,把以下参考代码先复制到写字板中,保存为纯文本格式TXT,再把TXT格式的代码从写字板中复制到FrontPage代码视图中,保存为相应的ASP网页,需建立如下7个网页。 购物车网页参考代码如下: (1)购物车的首页,保存为MAIN.ASP <% Const Head="KJ 电子购物街" DbPath = SERVER.MapPath("ShopBag.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath Set rs=conn.Execute( "Category" ) %>
<%=Head%> <%=Head%>
进入购物区:
(2)将商品放入购物车的网页,保存为:BUY.ASP <% DbPath = SERVER.MapPath("ShopBag.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath CategoryID=Request("CategoryID") Description=Request("Description") Head="KJ 电子购物街 - [" & Description & "] 区" sql = "Select * From Products Where CategoryID=" & CategoryID sql = sql & " Order By ProductID" Set rs = conn.Execute( sql ) %>
<%=Head%>