本文将介绍在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" Type="hidden" Value="＜%=prodRec.fields.getValue("Price")%＞"＞
//使用三个隐含编辑框，向UpdataCart.asp传递产品编号、名称和价格。
＜Input Type="Submit" Value="添加至购物车"＞
＜/Form＞ |
六、 UpdateCart.asp
接收AddtoCart.asp传递来的prodID、prodName、prodPrice和OrderQty，加上客户的Session编号，存入Cart表中。
1、 添加记录集cartRec，设置数据源为Select * From Cart
2、 添加更新数据的代码：
＜Script Language=Javascript Runat=Server＞
function cartRec_onbeforeopen(){
if(Request("InCart")==0) 数据挖掘研究院
{
newSQL="Select * From Cart";
}//不在购物车中，取出所有数据
else
{
newSQL="Select * From Cart Where SessionID="+Session.SessionID;
}//已经在购物车中，取出唯一的数据，准备修改数据
cartRec.setSQLText(newSQL);
}
function cartRec_ondatasetcomplete(){
if(Request("InCart")==0) //如果不在购物车中，添加新纪录
{
fields=new Array("ProductID","ProductName"Quantity","SessionID");
values=new Array(Request("prodID"),Request("prodName"),Request("OrderQty"),Session.SessionID);
cartRec.AddImmeidate(fields,values);
}
else//如果已经在购物车中，更新购买数量
{
cartRec.fields.setValue("Quantity",Request("OrderQty"));
}
Response.Redirect("ViewCart.asp")；
＜/Script＞ |
七、 ViewCart.asp
1、 添加记录集，命名为cartRec，设置数据源为Select * From Cart
数据挖掘工具
2、 添加Grid控件，设定数据源为cartRec，显示三个字段：ProductName、Quantity、Price。添加两个Unbounded Column：
1) 显示总价格，Field/Expression为：＝[Quantity]*[Price]。
2) 编辑/删除按钮，Field/Expression为：＝"＜A Href=AddtoCart.asp?ProductID="+[ProductID]+"编辑/A＞/＜AHref=DeleteItem.asp?ProductID="+[ProductID]+"＞删除＜/A＞"。这两个超链接分别将ProductID传递给AddtoCart.asp和DeleteItem.asp。
3、 添加指向SaveOrder.asp的链接
＜A href="SaveOrder.asp"＞确认订单＜/A＞ 数据挖掘研究院
八、 DeleteItem.asp删除用户选定的一条购物车记录
1、 添加记录集cartRec，设置数据源为Select * From Cart
2、 添加代码：
＜Script Language=Javascript Runat=Server＞
function cartRec_onbeforeopen()
{
newSQL="Select * from Cart Where (SessionID="+"Session.SessionID"+") 数据挖掘交友 And (ProductID="+Request("ProductID")+")";
cartRec.setSQLText(newSQL);
}//过滤记录集得到当前用户选定要删除的购物车记录
function cartRec_ondatasetcomplete()
｛
cartRec.deleteRecord()；
Response.Redirect("ViewCart.asp")；
｝//删除客户选定的购物车记录，然后转向ViewCart.asp |
十、SaveOrder.asp保存购物车中的临时数据至Order表
1、 添加记录集cartRec，设定数据源为Select * From Cart，在onbeforeopen()中过滤用Select * From Cart Wher SessionID=Session.SessionID过滤记录集，得到当前用户的所有未保存购物车记录
2、 添加记录集orderRec，设定数据源为表Order
3、 捕获cartRec的ondatasetcomplete()事件，输入代码：
function cartRec_ondatasetcomplete()
{
while(!cartRec.EOF)
｛
fields=new Array("ProductID","SessionID","Quantity");
values=new Array(cartRec.fields.getValue("ProductID"),
carRec.fields.getValue("SessionID"),
carRec.fields.getValue("Quantity"));
orderRec.Addimediate(fields,values);//向Order表中添加新记录
cartRec.deleteRecord()；//删除购物车中的一条记录
cartRec.Movenext()；//继续处理下一条记录
｝
Response.Redirect("ViewCart.asp");
} |
数据挖掘实验室
