在InterDev中实现网上购物推车(1)
文将介绍在InterDev中实现网上商店购物车功能的方法，具体步骤如下：
一、 数据库结构：
产品数据表(Products): 存放产品信息
产品名 ProductName
产品编号 ProductID
单价 Price
分类编号 CategoryID
Cart：购物车数据表，临时存放客户的订单
产品编号 ProductID
产品名 ProductName
价格 Price
客户Session标号 SessionID
订购数量 Quantity
Orders：订单，当用户确认订单后，订货数据将由Cart表转存入此表
产品编号 ProductID
客户Session编号 SessionID
订购数量 Quantity
Customers：客户，实现客户登录时将使用该表
二、 建立数据库连接：
1、 添加数据源：在控制面板中选择：管理工具/ODBC数据源，单击添加，选择数据库驱动程序为Microsoft Access Driver，单击"完成"，在弹出的对话框中为数据源命名为"Store"，单击选择，找到建立好的.mdb文件，然后单击确定
2、 建立连接：在InterDev中的Project Exlporer中右击选择Add Data Connection，选择数据源，命名为Con，连接建立后的所有数据存取都将基于此连接。
三、 购物车要实现的基本功能和对应的文件：
产品浏览和选购 Products.asp
放入购物车 AddtoCart.asp
浏览购物车 ViewCart.asp
删除一个产品 DeleteItem.asp
更新购物车 UpdateCart.asp
确认订单 SaveOrder.asp
四、 Products.asp
本页以表格显示客户所选的产品分类中的所有商品，每一个商品后都有一个"添加到购物车"按钮，指向AddtoCart.asp。
1、 添加prodRec控件，设定记录源为Products表。
2、 添加Grid控件，设定其数据源为prodRec
3、 添加"选购此产品"链接
在Grid的属性页中单击Add Unbound Column，在Header中输入："选购此产品"，在Field/expression中输入：="＜A href=AddtoCart.asp?ProductID="+[ProductID]+"＞选购"+"＜/A＞"。此语句的作用是，将当前选定的产品的产品编号存放在变量ProductID中传递给AddtoCart.asp，在AddtoCart.asp中将根据此产品编号为购物车添加记录。
五、 AddtoCart.asp
本页提供用户所选商品的详细信息，用户在此页可以修改订购数量。
1、 添加一个记录集，命名为prodRec，设定记录源为SQL statement，输入：SELECT * FROM Products。在＜Head＞区中输入如下代码：
＜Script Language=Javascript Runat=Server＞
function prodRec_onbeforeopen(){
newSQL="Select * From Products Where ProductID="+Request("ProductID");
prodRec.setSQLText(newSQL);
}
＜/Script＞
此段代码在记录集打开之前执行，根据Products.asp传递来的ProductID参数，过滤记录集，获得用户选择的商品。
2、 再添加一个记录集，命名为cartRec，该记录集的作用是根据用户的Session编号和选定的产品编号，确定所选商品是否已经在购物车中，如果已经在购物车中，则提取Cart表中的记录，提示用户该商品已选购，并让用户更改选购数量：
＜Script Language=Javascript Runat=Server＞
Var Incart; //是否在购物车中
Var QtyinCart; //用户已经选购的数量
function cartRec_onbeforeopen(){
newSQL="Select * From Cart Where (SessionID="+'Session.SessionID'+")
and (ProductID="+Request("ProductID")+")";
cartRec.setSQLText(newSQL);
}
function cartRec_ondatasetcomplete(){
if(cartRecrdset.getCount()==1)
//过滤后记录集不为空，用户已选购了该商品
｛
Incart=true;
QtyinCart=cartRec.fields.getValue("Quantity");
//取出用户已经选购的数量
｝
＜/Script＞
3、 ＜Body＞中的代码：
＜Form Action="UpdateCart.asp" Method="Post"＞
您选定的商品为：
＜%=prodRecorset.fields.getValue("ProductNAME")%＞
＜%If Incart=true Then%＞
您的购物车中已有
＜%=QtyinCart%＞件此商品，请更新您选购的数量：
＜Input Type="Text" Name="OrderQty" Value="＜%=QtyinCart%＞"＞
＜%Else%＞
请输入您的选购数量：
＜Input Type="Text" Name="OrderQty" Value="1"＞
＜%End If%＞
＜Input Name="prodID" Type="hidden" Value="＜%=prodRec.fields.getValue("ProductID")%＞"＞
//使用一个隐藏的编辑框，存放用户选定的产品编号，供UpdateCart.asp使用。
＜Input Name="prodName" Type="hidden" Value="＜%=prodRec.fields.getValue("ProductName")%＞"＞
＜Input Name="prodPrice"
