ASP系列教程：第17課 網(wǎng) 上 購(gòu) 物

1、17.1 課前導(dǎo)讀 17.2 課堂教學(xué) 17.3 上機(jī)練習(xí) 17.4 課后作業(yè),第17課 網(wǎng) 上 購(gòu) 物,17.1 課前導(dǎo)讀 本課的“網(wǎng)上超市”網(wǎng)頁(yè)正是為實(shí)現(xiàn)用戶在網(wǎng)上購(gòu)物而設(shè)計(jì)的?！熬W(wǎng)上超市”網(wǎng)頁(yè)通過(guò)ADO技術(shù)，以及SQL語(yǔ)句的靈活運(yùn)用，來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的操作。最簡(jiǎn)單的“網(wǎng)上超市”需要有一個(gè)數(shù)據(jù)庫(kù)文件store.mdb和4個(gè)asp文件，改進(jìn)的“網(wǎng)上超市”則需要更多一些文件。 上機(jī)練習(xí)則給出一個(gè)網(wǎng)上書店的實(shí)例，與“網(wǎng)上超市”有所不同的是，網(wǎng)上書店采用“框架”和“分頁(yè)”技術(shù)，使用更為方便。,17.2 課堂教學(xué) 17.2.1 最簡(jiǎn)單的“網(wǎng)上超市” 17.2.2 改進(jìn)的“網(wǎng)上超市”,17.2.1 最簡(jiǎn)

2、單的“網(wǎng)上超市” 1. 數(shù)據(jù)庫(kù)文件 2. 網(wǎng)頁(yè)文件 3. 創(chuàng)建主頁(yè)面 4. 購(gòu)物處理文件 5. 創(chuàng)建購(gòu)物車頁(yè)面 6. 刪除處理文件,最簡(jiǎn)單的“網(wǎng)上超市”需要的數(shù)據(jù)庫(kù)文件和asp文件如下。 1. 數(shù)據(jù)庫(kù)文件 數(shù)據(jù)庫(kù)文件store.mdb包括兩個(gè)表：“商品”表和“購(gòu)物單”表，分別用來(lái)存放“網(wǎng)上超市”的庫(kù)存商品和顧客所選商品的數(shù)據(jù)，它們的結(jié)構(gòu)見表17-1和表17-2。 表17-1 “商品”表,表17-2 “購(gòu)物單”表,2. 網(wǎng)頁(yè)文件 “網(wǎng)上超市”包括的4個(gè)asp文件分別是：Shop.asp、AddToCar.asp、ShoppingCar.asp、Delete.asp。, 主頁(yè)面文件Shop.asp

3、顯示商品列表，具有將購(gòu)買商品放到“購(gòu)物車”中的提交功能以及查看“購(gòu)物車”頁(yè)面的連接功能。 購(gòu)物處理文件AddToCar.asp將購(gòu)買商品的數(shù)據(jù)添加到數(shù)據(jù)表“購(gòu)物單”中。 “購(gòu)物車”頁(yè)面文件ShoppingCar.asp顯示顧客所購(gòu)買的商品，具有刪除和返回主頁(yè)面的連接功能。 刪除處理文件Delete.asp將不想購(gòu)買的商品從“購(gòu)物車”（“購(gòu)物單”表）中刪除。 在瀏覽器中執(zhí)行Shop.asp將可以實(shí)現(xiàn)網(wǎng)上購(gòu)物。,3. 創(chuàng)建主頁(yè)面 主頁(yè)面文件使用ADO技術(shù)將“商品”表中的數(shù)據(jù)顯示在網(wǎng)頁(yè)的表格中。編寫代碼，并將文件以Shop.asp為名存盤。 說(shuō)明：該程序包含四部分程序模塊。 數(shù)據(jù)庫(kù)連接模塊；建立一個(gè)

4、數(shù)據(jù)庫(kù)連接對(duì)象objConn和一個(gè)記錄集對(duì)象objRS，然后通過(guò)SQL語(yǔ)句實(shí)現(xiàn)商品信息的查詢。 通過(guò)For循環(huán)讀取數(shù)據(jù)表的字段名稱作為表格的標(biāo)題。 通過(guò)Do循環(huán)讀取數(shù)據(jù)并顯示在表格內(nèi)。進(jìn)行訂購(gòu)所對(duì)應(yīng)的提交按鈕為FORM所包含的內(nèi)容（f1f5），它將選中的商品提交給AddToCar.asp頁(yè)面。 關(guān)閉數(shù)據(jù)庫(kù)。,4. 購(gòu)物處理文件 購(gòu)物處理文件將顧客訂購(gòu)的商品添加到購(gòu)物車（“購(gòu)物單”表）中。編寫代碼，并將文件以AddToCar.asp為名存盤。 說(shuō)明：該程序包含4個(gè)模塊： 數(shù)據(jù)提取模塊，首先將商品信息頁(yè)面提交的信息變量進(jìn)行賦值。提取uid（商品編號(hào)）、name（商品名稱）、company（生產(chǎn)商）

5、、Price（定價(jià)）和Quantity（數(shù)量）等變量值，并計(jì)算出subTotal（金額）值。 數(shù)據(jù)庫(kù)連接模塊；建立一個(gè)數(shù)據(jù)庫(kù)連接對(duì)象objConn和一個(gè)記錄集對(duì)象objRS。 添加商品到“購(gòu)物單”表中模塊，使用記錄集對(duì)象AddNew方法添加記錄。,5. 創(chuàng)建購(gòu)物車頁(yè)面 購(gòu)物車頁(yè)面顯示顧客所訂購(gòu)的商品信息。編寫代碼，并將文件以shoppingcar.asp為名存盤。 說(shuō)明：該程序包含4個(gè)程序模塊： 數(shù)據(jù)庫(kù)連接模塊；建立一個(gè)objconn數(shù)據(jù)庫(kù)連接對(duì)象和一個(gè)objRS記錄集對(duì)象，然后通過(guò)SQL語(yǔ)句實(shí)現(xiàn)已經(jīng)訂購(gòu)的商品信息的查詢。 顯示訂購(gòu)信息模塊，如果沒(méi)有購(gòu)買商品，給出提示；如果有商品則通過(guò)For循

6、環(huán)讀取訂購(gòu)單數(shù)據(jù)庫(kù)的記錄，并顯示在表格中。 表格中包括一個(gè)記錄刪除鏈接選項(xiàng)：如果刪除該商品，將執(zhí)行刪除處理文件Delete.asp. 統(tǒng)計(jì)總金額模塊，顯示訂購(gòu)信息的同時(shí)，統(tǒng)計(jì)總金額Total，并且作為表格的標(biāo)題顯示。,6. 刪除處理文件 刪除處理文件將顧客從購(gòu)物車中刪除的商品從“購(gòu)物單”表中刪除。編寫代碼，并將文件以Delete.asp為名存盤。 說(shuō)明：該程序包含3個(gè)模塊： 數(shù)據(jù)提取模塊，首先將購(gòu)物車頁(yè)面提交的刪除信息變量進(jìn)行賦值。提取No（編號(hào)）作為刪除記錄的依據(jù)。 數(shù)據(jù)庫(kù)連接模塊；建立一個(gè)數(shù)據(jù)庫(kù)連接對(duì)象objConn。 刪除記錄模塊，建立SQL刪除語(yǔ)句，使用連接對(duì)象的Execute方法執(zhí)行

7、SQL語(yǔ)句，并給出提示信息。,17.2.2 改進(jìn)的“網(wǎng)上超市” 1. 修改數(shù)據(jù)表 2. 創(chuàng)建登錄頁(yè)面 3. 修改主頁(yè)面 4. 修改購(gòu)物處理文件 5. 修改購(gòu)物車頁(yè)面,17.2.2 改進(jìn)的“網(wǎng)上超市” 使用上面的“網(wǎng)上超市”，如果在網(wǎng)上同時(shí)有其他顧客購(gòu)物，則訂購(gòu)的商品將存放在同一個(gè)數(shù)據(jù)表中，無(wú)法辨認(rèn)。為此，改進(jìn)上述程序，增加登錄頁(yè)面，提供顧客的姓名，以便區(qū)別。 1. 修改數(shù)據(jù)表 為“購(gòu)物單”表增加兩個(gè)字段：顧客名和時(shí)間。其中顧客名字段存放登錄時(shí)提供的顧客名；時(shí)間字段存放該顧客本次登錄的時(shí)間。兩者結(jié)合確定本次網(wǎng)上購(gòu)物的商品。,2. 創(chuàng)建登錄頁(yè)面 登錄頁(yè)面Login.htm提供顧客的名稱信息，其代碼

8、如下： 請(qǐng)輸入您的名字： 登錄頁(yè)面的執(zhí)行。,3. 修改主頁(yè)面 在主頁(yè)面Shop.asp中需要對(duì)登錄頁(yè)面提交的顧客名稱進(jìn)行保存，還要保存登錄的時(shí)間。修改代碼。 說(shuō)明：標(biāo)記前面用括起來(lái)代碼和最后一行代碼都是新添加的，判斷本網(wǎng)頁(yè)是否首次進(jìn)入。如果是首次進(jìn)入則讀取顧客名稱和登錄時(shí)間，存放于Session變量中。,4. 修改購(gòu)物處理文件 只需在購(gòu)物處理文件AddToCar.asp中將增加記錄的命令語(yǔ)句： objRS.AddNew Array( 商品編號(hào),名稱,生產(chǎn)商,定價(jià),數(shù)量,金額), Array(uid,name,company,Price,Quantity,subTotal) 改為： gukena

9、me = Session(gukename) time0 = Session(time0) objRS.AddNew Array( 商品編號(hào),名稱,生產(chǎn)商,定價(jià),數(shù)量,金額,顧客名,時(shí)間), Array(uid,name,company,Price,Quantity,subTotal,gukename,time0),5. 修改購(gòu)物車頁(yè)面 只需在購(gòu)物車頁(yè)面文件shoppingcar.asp中將SQL“無(wú)條件”查詢語(yǔ)句： strSQL = SELECT * FROM 購(gòu)物單 改為SQL“條件”查詢語(yǔ)句： time0 = session(time0) gukename = session(guken

10、ame) strSQL = SELECT * FROM 購(gòu)物單 where (時(shí)間=# & TimeValue(time0) & #) strSQL = strSQL & and (顧客名= & gukename & ) 說(shuō)明：符號(hào)#.#表示日期時(shí)間型的數(shù)據(jù)。,17.3 上機(jī)練習(xí) 1. 數(shù)據(jù)庫(kù) 2. 登錄網(wǎng)頁(yè) 3. 框架網(wǎng)頁(yè) 4. 菜單網(wǎng)頁(yè) 5. 網(wǎng)上書店網(wǎng)頁(yè) 6. 購(gòu)書處理 7. 購(gòu)書籃網(wǎng)頁(yè) 8. 刪除處理,17.3 上機(jī)練習(xí) 【練習(xí)17-1】設(shè)計(jì)一個(gè)網(wǎng)上書店，如圖所示。 與“網(wǎng)上超市”類似，“網(wǎng)上書店”需要有顯示圖書目錄的“門店”網(wǎng)頁(yè)、顯示顧客訂購(gòu)圖書的“購(gòu)書籃”網(wǎng)頁(yè)、以及相應(yīng)的數(shù)據(jù)處理網(wǎng)

11、頁(yè)。在“門店”網(wǎng)頁(yè)中使用分頁(yè)技術(shù)，將數(shù)據(jù)分成數(shù)頁(yè)顯示，避免了大量數(shù)據(jù)無(wú)法顯示在同一頁(yè)上，以及向客戶端瀏覽器傳輸過(guò)多的數(shù)據(jù)。另外，使用框架技術(shù)使網(wǎng)上購(gòu)書更加方便。,1. 數(shù)據(jù)庫(kù) “網(wǎng)上書店”使用一個(gè)數(shù)據(jù)庫(kù)文件Store.mdb，其中包含兩個(gè)表：“網(wǎng)上書店”和“訂購(gòu)單”。其表結(jié)構(gòu)見表17-3與表17-4。 表17-3 “網(wǎng)上書店”表,表17-4 “訂購(gòu)單”表,“網(wǎng)上書店”包括Login.asp、Main.asp、Menu.asp、Catalog.asp、ShoppinCar.asp、AddToCar.asp、Remove.asp等7個(gè)asp文件。,2. 登錄網(wǎng)頁(yè) 登錄網(wǎng)頁(yè)Login.asp的代碼如

12、下： 請(qǐng)輸入您的名字： ,3. 框架網(wǎng)頁(yè) 框架網(wǎng)頁(yè)Main.asp首先接受來(lái)自登錄網(wǎng)頁(yè)提交的顧客名稱，并且將顧客名稱和登錄時(shí)間保存在Session變量中。網(wǎng)頁(yè)設(shè)置兩個(gè)框架，上方框架顯示操作菜單，來(lái)源網(wǎng)頁(yè)為Menu.asp；下方網(wǎng)頁(yè)則顯示圖書目錄，來(lái)源網(wǎng)頁(yè)為Catalog.asp。其代碼如下： ,4. 菜單網(wǎng)頁(yè) 菜單網(wǎng)頁(yè)Menu.asp用來(lái)顯示“網(wǎng)上書店”和“查看購(gòu)書籃”兩個(gè)超級(jí)鏈接，分別鏈接到Catalog.asp和ShoppinCar.asp上。其代碼如下： 網(wǎng)上書店 查看購(gòu)書籃 說(shuō)明：鏈接標(biāo)記中的TARGET=Bottom參數(shù)表示連接文件顯示框架的名稱。,5. 網(wǎng)上書店網(wǎng)頁(yè) 網(wǎng)上書店網(wǎng)頁(yè)Catalog.asp是框架網(wǎng)頁(yè)默認(rèn)的下方框架網(wǎng)頁(yè)，用來(lái)顯示書店的圖書目錄。其功能包括：打開數(shù)據(jù)庫(kù)、讀取圖書記錄、在表格中分頁(yè)顯示記錄；顧客可以在網(wǎng)頁(yè)中輸入定購(gòu)圖書的數(shù)量，并提交給AddToCar.asp進(jìn)行處理。Catalog.asp的代碼。,6. 購(gòu)書處理 當(dāng)顧客在“網(wǎng)上書店”中輸入訂購(gòu)數(shù)量并單擊“放入購(gòu)書籃”按鈕后，將調(diào)用購(gòu)書處理程序AddToCar.asp，該程序?qū)崿F(xiàn)將所