【正文】 付款方式 RegTime 日期／時(shí)間 默認(rèn)值 Now() 訂貨時(shí)間 Flag 文本 20 標(biāo)記 Remark 文本 255 備注 說明： 所建立的數(shù)據(jù)庫文件 ()保存在文件夾 market_database 下，為防止別人隨意篡改數(shù)據(jù)庫，故將其后綴名改為 .asp 來調(diào)用。 Session 可以用來存儲(chǔ)訪問者的特定信息，創(chuàng)建訪問者信息容器。這些購物信息可以保存在 Session 中。 在建立購物籃中，其實(shí)是對全局變量的操作。另外還定義了一個(gè)全局變量Products，通過函數(shù) PutToShopBag()將 ProductList 的值賦給 Products，使用函數(shù) Split()將讀取到的字符串進(jìn)行分割，以得到購物信息： Products = Split(Request(cpbm), , )。 amp。 39。 , 39。 cpbm amp。 End If End Sub % 購物籃界面如下圖所示： 網(wǎng)上圖書銷售管理系統(tǒng) 第 16 頁 共 60 頁 在我的購物籃中可操作的事件為： ◇ 確認(rèn)更改：在數(shù)量項(xiàng)目文本框中可以更改數(shù)目，該事 件是用以更新購物籃中的商品數(shù)量； ◇ 繼續(xù)購物：該事件是關(guān)閉窗口； ◇ 訂單取消：該事件清空購物籃； ◇ 去收銀臺(tái)：該事件是用來關(guān)閉窗口并重新打開新的窗口?，F(xiàn)在我們稱這些事件是用來觸發(fā)購物籃中的工作模式，在每次的觸發(fā)模式時(shí)，都有一個(gè)傳遞的數(shù)值變量通過來判斷觸發(fā)的是哪個(gè)工作模塊。} 在該觸發(fā)事件觸發(fā)時(shí)，執(zhí)行 ， 對購物車執(zhí)行 了這次添加后，大部分其余的 ASP 代碼就不再執(zhí)行，因?yàn)樗鼞?yīng)用于其他的工作模式，模式的選擇都是采用 IF 語句來實(shí)現(xiàn)的，而每次 只會(huì)在一個(gè)模式下工作的。用戶以用它馬上看到改過的數(shù)量后的結(jié)果。 rs(Product_Id)) ) If Quatity = 0 Then 網(wǎng)上圖書銷售管理系統(tǒng) 第 17 頁 共 60 頁 Quatity = CInt( Session(rs(Product_Id)) ) If Quatity = 0 Then Quatity = 1 end if End If Session(rs(Product_Id)) = Quatity Sum = Sum + ccur(rs(P_NewPrice)) * Quatity 在輸入文本框中時(shí)，該程序?qū)ζ漭斎氲闹颠M(jìn)行判斷，是否是數(shù)字的字符，以避免存儲(chǔ)出錯(cuò)，造成不必 要的麻煩。 strTemp=0123456789。i。 if (j==1) { //說明有字符不是數(shù)字 return 0。 } 這種預(yù)先判斷的處理方式，很大的程度上解決了非法輸入對后面的存儲(chǔ)所帶來的一系列問題。通過調(diào)用函數(shù) clean()來執(zhí)行 . 4) LinkTo 模式（去收銀臺(tái)） onclick==39。()。該事件不能對所購買的商品數(shù)量的更改而更改，只能通過確認(rèn)更改來實(shí)現(xiàn)。 網(wǎng)上圖書銷售管理系統(tǒng) 第 18 頁 共 60 頁 說明：在這里會(huì)出現(xiàn)一種情況，就是說如果未購買任何商品的話，則將返回一提示信息。其方法還是使用對數(shù)據(jù)庫的操作： set rs=() sqltext=select * from RegUser where UserId=39。 (uid) amp。 sqltext,conn,1,1 39。其主要的程序看后面源程序代碼，詳細(xì)的介紹各程序單元所完成的功能和作用。 amp。 39。 網(wǎng)上圖書銷售管理系統(tǒng) 第 21 頁 共 60 頁 5． 1． 3商品查詢 首先在主頁面 中實(shí)現(xiàn)以商品大類方式的查詢： While Not set rs_class_2=() sqltext3=select * from Class_2 where Class_1_Name=39。 rs_class_1(Class_1_Name) amp。 sqltext3,conn,1,1 如果在文本輸入框中輸入了商品名稱，則調(diào)用執(zhí)行 ： ProductClass_2=request(ProductClass_2) set rs=() sqltext=select * from Product if request(Product_Name) then sqltext=sqltext amp。%amp。%39。 where Product_Name like 39。 amp。 end if if request(Product_Class) then sqltext=sqltext amp。%amp。%39。Form_Idamp。 5． 2． 1商品的添加 商品的添加功能是通過三個(gè)步驟來實(shí)現(xiàn)的：商品大類添加、商品小類的添加、商品的添加。 ()。 } sqltext=select * from Class_1 where Class_1_name=39。 (class_name) amp。 sqltext,conn,1,1 39。添加一個(gè)商品大類到數(shù)據(jù)庫 rs(Class_1_name)=(class_name) % set rs_detail=() sqltext2=select * from Class_1 where Class_1_name=39。 (class_name) amp。 sqltext2,conn,1,1 % 大類添加頁面： 網(wǎng)上圖書銷售管理系統(tǒng) 第 24 頁 共 60 頁 (2) 小類添加 function FORM1_onsubmit() { if(1) { alert(您必須輸入商品小類名稱 !)。 return false。 amp。 39。 amp。 39。查找數(shù)據(jù)庫，檢查商品小類是否已經(jīng)存在 if = 1 then if rs(Class_2_name)=(class_2_name) then ?msg=此商品小類已經(jīng) 存在，請選用其它名稱 ! end if end if set rs=() sqltext=select * from Class_2 sqltext,conn,3,3 39。 amp。 39。 amp。 39。 amp。 39。 strTemp=0123456789.。i。 if (j==1) { //說明有字符不是數(shù)字 return 0。 } 網(wǎng)上圖書銷售管理系統(tǒng) 第 26 頁 共 60 頁 set rs=() sqltext=select * from Product where Product_name=39。 (p_name) amp。 sqltext,conn,1,1 39。添加一個(gè)商品到數(shù)據(jù)庫 rs(Class_2)=(class_2_name) rs(Class_1)=(class_1_name) rs(Product_name)=(p_name) rs(Product_intro)=(p_intro) rs(Product_show)=(p_show) rs(P_newprice)=(newprice) rs(P_oldprice)=(oldprice) rs(P_pic)=(p_pic) rs(P_Full_pic)=(p_full_pic) set rs_detail=() sqltext2=select * from Product where Product_name=39。 (p_name) amp。 sqltext2,conn,1,1 商品添加的頁面： 網(wǎng)上圖書銷售管理系統(tǒng) 第 27 頁 共 60 頁 5． 2． 2商品的審查 % set rs=() sqltext=select * from Product sqltext,conn,1,1 dim MaxPerPage MaxPerPage=20 網(wǎng)上圖書銷售管理系統(tǒng) 第 28 頁 共 60 頁 39。center39。ff000039。 (1)商品編輯 ： 編輯操作是 調(diào)用 頁面對商品信息進(jìn)行編輯修改，然后調(diào)用 頁面將修改后的信息添加到商品表 (Product)中。 (product_no) sqltext,conn,3,3 39。 contentID sqltext,conn,3,3 set rs=nothing ?page=amp。 (1) 處理訂單： set rs=() sqltext=select Flag from OrderList where Form_Id= amp。amp。39。 request(Form_Id) sqltext,conn,3,3 ?msg=訂貨單處理處理完畢，請按客戶詳細(xì)地址發(fā)貨！ end if (2) 刪除訂單： 在這里，我使用了一個(gè) java 腳本，定義了刪除函數(shù)： script language=javascript function confirmdel(id,page){ if (confirm(真的要?jiǎng)h除這個(gè)訂單 ?)) =?id=+id+amp。 contentID sqltext,conn,3,3 set rs=nothing set rs=() sqltext=delete from ShopList where Form_Id=amp。CurrentPage % 網(wǎng)上圖書銷售管理系統(tǒng) 第 31 頁 共 60 頁 5． 2． 4會(huì)員的審查 會(huì)員審查的頁面： 會(huì)員的審查實(shí)現(xiàn)了兩個(gè)功能：會(huì)員資料的查看和會(huì)員帳號(hào)的刪除。 id sqltext,conn,1,1 (2) 會(huì)員的刪除： 與訂單的刪除類似，我也定義了一個(gè) java 腳本來調(diào)用頁面（ ）來實(shí)現(xiàn)刪除操作： script language=javascript function confirmdel(id,page){ 網(wǎng)上圖書銷售管理系統(tǒng) 第 32 頁 共 60 頁 if (confirm(真的要?jiǎng)h除這個(gè)用戶 ?)) =?id=+id+amp。 contentID sqltext,conn,3,3 set rs=nothing ?page=amp。 amp。 39。 amp。 39。查找數(shù)據(jù)庫，檢查此管理員是否已經(jīng)存在 if = 1 then if rs(UserName)=(uid) then ?msg=此管理員帳號(hào)已經(jīng)存在，請選用其它名稱 ! end if end if set rs=() sqltext=select * from Manage_User sqltext,conn,3,3 39。 (1) 修改密碼： set rs=() sqltext=select * from Manage_User where Id= amp。更新管理員密碼到數(shù)據(jù)庫 rs(UserName)=(uid) rs(PassWord)=(pwd1) (2)管理員刪除： 與前面一樣，仍然是定義了一個(gè) java 腳本來調(diào)用頁面（ ）： script language=javascript function confirmdel(id){ if (confirm(真的要?jiǎng)h除此管理員帳號(hào) ?)) =?id=+id+ } 網(wǎng)上圖書銷售管理系統(tǒng) 第 34 頁 共 60 頁 /script dim SQL, Rs, contentID,CurrentPage CurrentPage = request(Page) contentID=request(ID) set rs=() sqltext=delete from Manage_User where Id=amp。我遇到了若干的問題和解決了不少的問題，現(xiàn)在還有未知安全