我把所用的程序都包括在一个VBSCRIPT类当中。它包括3个函数：addItem(), deleteItem() 和deleteAll()，以及一个公有过程：displayCart()。前两个函数addItem()和deleteItem()都只有一个参数，就是待添加或删除的商品，这个参数可以是商品名（字符串），也可以是数据库中与其对应的商品ID号。deleteAll()函数的作用是清空购物车。过程displayCart()的参数可以是"list"或"option"，它决定是以列表形式还是以下拉框形式显示购物车信息。

　　这个VBSCRIPT类还包括两个私有函数ReadFromDB() 和 RegExpItem(),供addItem() 和 deleteItem()调用。

　　用商品ID号做参数要比商品名要方便的多，因此我们在addItem() or deleteItem()函数中使用商品ID号作参数，在这两个函数中我们把ID号传递给ReadFromDB()函数，由ReadFromDB()函数从数据库中把商品名读出来。因为不打算在其它函数中调用ReadFromDB()，所以我们把ReadFromDB()声明为私有函数。同样的，下面要讲到的RegExpItem()也是一个私有函数。

　　The ReadFromDB() 函数

　　下面让我们来看看 ReadFromDB()函数：


　　　Private Function ReadFromDB(argItem)
　　　 dim objConn, objRS
　　　 dim strSQL

　　　 strSQL="SELECT ProductName FROM tblProducts WHERE ProductID="&argItem

　　　 set objConn=Server.CreateObject("ADOdb.Connection")
　　　 objConn.Open "File Name=D:\Inetpub\WWWroot\shoppingcarts\shoppingcarts.udl"

　　　 set objRS=objConn.Execute(strSQL)
　　　 ReadFromDB=objRS("ProductName")

　　　 objRS.close
　　　 set objRS=nothing
　　　 objConn.Close
　　　 set objConn=nothing

　　　End Function


　　这个函数的作用首先建立一个数据库连接，然后读取数据库，最后返回参数(商品ID号)对应的商品名称。这篇文章附带了一个含有十种商品的ACCESS数据库供大家参考。