法布尔的全部作品:请问如何用ASP VBSCRIPT制作购物车

(1)放商品入“购物车”
　　将商品ID和数量写入到Dictionary中，使用的方法是Add。该方法用于向Dictionary对象添加键和项目。格式：对象.Add key , item
　　判断是否存在Session（"cart"），不存在则创建一个Session（"cart"）对象
　　＜%
　　If Not IsObject (Session ("cart")) Then
　　Set Session ("cart")=Server.CreateObject ("Scripting.Dictionary")
　　End If
　　%＞
　　将Session("cart")展开一个本地副本调用。
　　＜% Set Cart=Session("cart") %＞
　　如果该商品的ID不存在,则可以使用Dictionary对象的Add方法将商品的编号(ProductID)和购买的数量Num写入到Cart中。
　　＜%
　　If Not Cart.Exists (ProductID) Then
　　Cart.Add ProductID,Num
　　End If
　　%＞
　　接着再将修改后的本地副本整体赋值给Session ("cart")
　　＜% Set Session ("cart")=Cart %＞
　　(2)查看“购物车”中商品
　　将Session ("cart")中的商品ID获取后，从商品表中获取相应商品信息。可以采用将Session ("cart")中的数据组分别赋值给Keys（商品ID组）和Items (商品数量组)这2个变量。
　　＜% Set Cart=Session ("cart")
　　Keys=Cart.keys
　　Items=Cart.items
　　%＞
　　接着可以使用循环语句显示用户购买的商品和数量以及总价等信息。
　　＜% For I = 0 To Cart.Count-1 %＞
　　Dim prodid
　　 prodid= keys(i)
　　Set Rs = Server.CreateObject ("ADODB.Recordset")
　　ssql= "SELECT * FROM products WHERE pid ="&int(prodid)
　　Rs.Open ssql, conn, 1,3
　　%＞
　　‘显示Rs中的记录
　　……
　　＜% Rs.Close
　　Next
　　%＞
　　(3)修改“购物车”中商品数量
　　设计将商品的数量分别修改，这样就可以利用Session("cart")中存储的购买商品ID来进行修改用户购买商品的数量。编写一个函数用于获取数量和编号，然后重新导航到修改数量程序文件。
　　＜script language="java script1.2"＞
　　＜!--
　　function changenum(id,num){
　　window.location.href="change.asp?id="+id+"&num="+num
　　}
　　--＞
　　＜/script＞
　　修改数量实现程序：
　　＜%
　　id=request.Querystring("id")
　　num=request.Querystring("num")
　　Set Cart=Session("cart")
　　If Cart.Exists(id) Then
　　Cart.item(id)=Int(num)
　　End If
　　Set Session("cart")=cart
　　Response.Redirect "cart.asp"
　　%＞
　　(4)删除“购物车”中的商品
　　只需要知道被删除的商品的ID，就可以使用Dictionary对象的Remove方法实现删除。
　　＜%
　　ProductID=Cstr(Request.Querystring("ProductID"))‘获取要删除的商品ID
　　Set Cart=Session("cart")
　　If Cart.Exists(ProductID) then ‘判断商品ID是否存在
　　Cart.Remove(ProductID) ‘在Cart中删除该ID
　　End If
　　Set Session("cart")=cart
　　%＞
　　如要清空“购物车”可以使用Dictionary对象的RemoveAll方法实现。
　　＜% Cart.Removeall() %＞

都有源代码了,你还问怎么做出来的？

如果你自己本身代码都看不懂，那怎么教你？