实验十六 制作购物车网页 实验目的:掌握购物车页面设计技术 实验内容:制作购物车功能模块 实验步骤： 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%>

---

进入购物区：

<% While Not rs.EOF %> &Description=<%=Server.URLEncode(rs("Description"))%>> <%=rs("Description")%>

<% rs.MoveNext Wend %>

---

（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 ) %>