【正文】 買中沒有改變，這里就要用到 ASP 中的內置 Session 組件，它是訪問者從的到達某個特定主頁到離開為止的那段時間，服務器端給他分配一個用來儲存信息的全局變量的集合，這些變量可以自動生成，也可以是程序人員在服務器端腳本程序中定義的。我們使用它來作為虛擬購物籃，無論什么時候用戶在我網站中選擇了一種商品，那么這種商品就會進入購物籃，當用戶準備離開時，就可以立即進行以上所有選擇的商品的訂購。用戶在 Web 應用程序中訪問同一頁面時， Session 變量始終存在，當用戶在應用程序的頁之間跳轉時，存儲在 Session 對象中的變量也不會清除。 圖 15 購物籃界面 在我的購物籃中可操作的事件為： 確認更改：在數量項目文本框中可以更改數目，該事件是用以 更新購物籃中的商品數量； 繼續(xù)購物：該事件是關閉窗口； 訂單取消：該事件清空購物籃； 去收銀臺：該事件是用來關閉窗口并重新打開新的窗口?，F(xiàn)在我們稱這些事件是用來觸發(fā)購物籃中的工作模式，在每次的觸發(fā)模式時，都有一個傳遞的數值變量通過來判斷觸發(fā)的是哪個工作模塊。} 在該觸發(fā)事件觸發(fā)時，執(zhí)行 ， 對購物車執(zhí)行了這次添 加后，大部分其余的 ASP 代碼就不再執(zhí)行，因為它應用于其他的工作模式，模式的選擇都是采用 IF 語句來實現(xiàn)的，而每次 只會在一個模式下工作的。用戶以用它馬上看到改過的數量后的結果。 rs(Product_Id)) ) If Quatity = 0 Then 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 在輸入文本框中時，該程序將對其輸入的值進行判斷，是否是數字的字符，以避免存儲出錯，造成不必要的麻 煩。 strTemp=0123456789。i。 if (j==1) { //說明有字符不是數字 return 0。 } 這種預先判斷的處理方式，很大的程度上解決了非法輸入對后面的存儲所帶來的一系列問題。通過調用函數 clean()來執(zhí)行 . LinkTo 模式（去收銀臺） onclick==39。()。該事件不能對所購買的商品數量的更改而更改，只能通過確認更改來實現(xiàn)。 說明：在這里會出現(xiàn)一種情況，就是說如果未購買任何商品的話，則將返回一提示信息如圖 16 所示。 圖 17 會員注冊頁面 在會員注冊中，首先是檢查該顧客所申請的用戶名是否以被人申請了，若已被人申請了該用戶名，則系統(tǒng)將提示給用戶“該用戶名已存在”的信息。 amp。 39。 查找數據庫，檢查用戶名是否已經注冊過 if = 1 then if rs(userid)=(uid) then ?msg=此用戶名已經注冊過，請選用其他用戶名 ! 23 end if end if 之后進入用戶詳細資料登記的頁面（ ）如圖 18 所示。其主要的程序看后面源程序代碼，詳細的介紹各程序單元所完成的功能和作用。 amp。 39。 圖 20 個人資料更新頁面 商品查詢 首先在主頁面 中實現(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 如果在文本輸入框中輸入了圖書名稱，則調用執(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。 圖 21 商品查詢圖 訂單查詢 Form_ID = (Form_Id) 27 IF Session(LoginSuccess)= Then Else set Rs3 = () sql3=select * from OrderList where Form_Id=amp。 sql3,conn,1,1 IF =1 then IF Session(LoginSuccess)=rs3(User_Id) Then 查詢成功的頁面如圖 22 所示 。 商品的添加 圖書的添加功能是通過三個步驟來實現(xiàn)的：圖書大類添加、圖書小 類的添加、圖書的添加。 ()。 } sqltext=select * from Class_1 where Class_1_name=39。 (class_name) amp。 sqltext,conn,1,1 39。添加一個圖書大類到數據庫 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 % 大類添加頁面如圖 23 所示 。 ()。 } set rs=() sqltext=select * from Class_2 where Class_2_name=39。 (class_2_name) amp。 and Class_1_name=39。 (class_1_name) amp。 sqltext,conn,1,1 39。添加一個圖書小類到數據庫 rs(Class_2_name)=(class_2_name) rs(Class_1_name)=(class_1_name) set rs_detail=() sqltext2=select * from Class_2 where Class_2_name=39。 (class_2_name) amp。 and Class_1_name=39。 (class_1_name) amp。 sqltext2,conn,1,1 小類添加頁面如圖 24 所示。 amp。 39。 strTemp=0123456789.。i。 if (j==1) { //說明有字符不是數字 return 0。 } set rs=() sqltext=select * from Product where Product_name=39。 (p_name) amp。 sqltext,conn,1,1 39。添加一個圖書到數據庫 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 圖書添加的頁面如圖 25 所示。假如沒有數據時 If and then call showpages p align=39。font color=39。還沒任何 圖書 資料/font/p End if 圖書審查頁面如圖 26 所示。 (1) 圖書編輯： 34 編輯操作是調用 頁面對圖書信息進行編輯修改，然后調用 頁面將修改后的信息添加到圖書表 (Product)中。 (product_no) sqltext,conn,3,3 39。 contentID sqltext,conn,3,3 set rs=nothing ?page=amp。 圖 27 訂單審查 訂單審查實現(xiàn)了兩個功能：處理訂單和刪除訂單。 request(Form_Id) sqltext,conn,1,1 if rs(Flag)=已經發(fā)貨 then ?msg=此訂貨單您已經做過了發(fā)貨處理！ Else set rs=() sqltext=update OrderList set Flag=39。djfcamp。 where Form_Id= amp。page=+page } /script 通過它來調用刪除頁面 ()： % dim SQL, Rs, contentID,CurrentPage CurrentPage = request(Page) contentID=request(ID) set rs=() sqltext=delete from OrderList where Form_Id=amp。 contentID sqltext,conn,3,3 set rs=nothing 37 ?page=amp。 圖 29 會員審查 會員的審查實現(xiàn)了兩個功能：會員資料的查看和會員賬號的刪除。 調用頁面（ ）來實現(xiàn) id=request(id) page=request(page) set rs=() sqltext=select * from RegUser where Id= amp。page=+page } /script im SQL, Rs, contentID,CurrentPage CurrentPage = request(Page) contentID=request(ID) set rs=() sqltext=delete from RegUser where Id=amp。CurrentPage 39 結 論 在歷時將近三個月的時間里，我的畢業(yè)設計是從學習新的知識（ ASP語言和 HTML語言），到建立網上購物系統(tǒng)的網站。 從建立自己的虛擬服務器，到網站服務。在我們所建 立的網上購物系統(tǒng)只是一個網上的購物的基本原理，里面要涉及到的方方面面的問題我們未曾遇到或現(xiàn)有的條件限制而未能實現(xiàn)。 在用 ASP 開發(fā)的時候，在程序的調試上出現(xiàn)了很大的問題，要使用瀏覽器來瀏覽才能找出錯誤所在，這一定程度上延長了開發(fā)周期。經過多寫程序，現(xiàn)在一定 程度上已經能快效的找出錯誤，并熟練的操作數據庫語言。管理人員可以通過自己的權限對后臺的信息進行管理，包括會員的信息，商品的信息和對訂單進行處理，從而完成了商品的成功交易。 隨著 Web 技術的進一步發(fā)展和 Inter 的逐漸大眾化，基于 Inter 的電子商務系統(tǒng)無疑比傳統(tǒng)商務具有更加廣闊的應用前 景。這些問題有待于我們大家作更深入的探討，相信在不久的將來電子商務將表現(xiàn)出越來越大的作用。他們嚴謹的學風、淵博的知識、誨人不倦的品格一直感染和激勵著我不斷上進，使我大學四年的時光充實而有意義。 在論文的寫作中，我也參照了大量的書籍和文章以及許多學者的科研 成果及其寫作思路，在此向這些學者們表示由衷的感謝。 本論文雖然幾經修改，但由于才疏學淺，本文疏漏之處在所難免，還望各位老師批