我把所用的程序都包括在一個VBSCRIPT類當(dāng)中。它包括3個函數(shù)：addItem(), deleteItem() 和deleteAll()，以及一個公有過程：displayCart()。前兩個函數(shù)addItem()和deleteItem()都只有一個參數(shù)，就是待添加或刪除的商品，這個參數(shù)可以是商品名（字符串），也可以是數(shù)據(jù)庫中與其對應(yīng)的商品ID號。deleteAll()函數(shù)的作用是清空購物車。過程displayCart()的參數(shù)可以是"list"或"option"，它決定是以列表形式還是以下拉框形式顯示購物車信息。

　　這個VBSCRIPT類還包括兩個私有函數(shù)ReadFromDB() 和 RegExpItem(),供addItem() 和 deleteItem()調(diào)用。

　　用商品ID號做參數(shù)要比商品名要方便的多，因此我們在addItem() or deleteItem()函數(shù)中使用商品ID號作參數(shù)，在這兩個函數(shù)中我們把ID號傳遞給ReadFromDB()函數(shù)，由ReadFromDB()函數(shù)從數(shù)據(jù)庫中把商品名讀出來。因為不打算在其它函數(shù)中調(diào)用ReadFromDB()，所以我們把ReadFromDB()聲明為私有函數(shù)。同樣的，下面要講到的RegExpItem()也是一個私有函數(shù)。

　　The ReadFromDB() 函數(shù)

　　下面讓我們來看看 ReadFromDB()函數(shù)：


　　　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


　　這個函數(shù)的作用首先建立一個數(shù)據(jù)庫連接，然后讀取數(shù)據(jù)庫，最后返回參數(shù)(商品ID號)對應(yīng)的商品名稱。這篇文章附帶了一個含有十種商品的ACCESS數(shù)據(jù)庫供大家參考。