【正文】 and it was blessed, for the Deathless dwe lt there, and there naught faded nor withered, neither was there any stain upon flower or leaf in that land, nor any corruption or sic kness in anything that lived。 but the Sindar spoke of it in their later tongue as Amon Uilos. From their halls upon Taniquetil Manw?and Varda could look out across the Earth even into the furthest East. Behind the walls of the Pel 髍 i the Valar established their domain in that region which is called Valinor, and there were their houses, their gardens, and their towers. In that guarded land the Valar gathered great store of light and an the fairest things that were saved from the ruin。 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學(xué)院。 （ 4）學(xué)?？稍试S學(xué)位論文被查閱或借閱。 （ 2）學(xué)校可以采用影印、縮印或其他復(fù)制方式保存學(xué)位論文。除非另有說明，本文的工作是原始性工作。在此向他們表示我最衷心的感謝！ 在論文完成過程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！ 最后向在百忙之中評(píng)審本文的各位專家、老師表示衷心的感謝！ 作者簡介 姓 名：梁雯 性別： 女 出生年月： 1985 年 3 月 民族： 漢 Email: 第 28 頁 共 28 頁 聲 明 本論文的工作是 2021 年 2 月至 2021 年 6 月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成的。 [7] 明日科技 . ASP程序開發(fā)范例寶典 [M]. 北京：人民郵電出版社 ， 。 [5] 許龍飛，李國和，馬玉書 . Web 數(shù)據(jù)庫技術(shù)與應(yīng)用 [M]. 北京：科學(xué)出版社， 。 [3] Adrian KingsleyHughes[美 ]， Kathie KingsleyHughes[美 ]. JavaScript 實(shí)例教程 [M]. 劉勇譯 . 北京：人民郵電出版社， 。 參考文獻(xiàn) [1] 鄧文瀾，陳惠貞，陳俊榮 . ASP 與網(wǎng)絡(luò)數(shù)據(jù)庫技術(shù) [M]. 北京：中國鐵道出版社， 。由于篇幅有限，未能將設(shè)計(jì)過程一一列出，只挑選了重要的部分加以說明。對(duì) ASP內(nèi)置 ADO組件中的 Connection對(duì)象 直接連接的方式和 RecordSet對(duì)象存儲(chǔ)記錄集實(shí) 現(xiàn)對(duì)數(shù)據(jù)庫操作的事務(wù)性處理有了更透徹的理解和熟練的編程應(yīng)用 ?？梢詫?shí)現(xiàn)完善的玩具銷售系統(tǒng)網(wǎng)上訂購過程。通 過本次畢業(yè)設(shè)計(jì)，更深入的應(yīng)用了 ASP和數(shù)據(jù)庫知識(shí)， 完成了玩具銷售系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)的玩具信息的發(fā)布、用戶管理、玩具商品信息的檢索、玩具交易等功能。通過測試與分析，說明該系統(tǒng)運(yùn)行穩(wěn)定、可靠，具有一定的實(shí)用價(jià)值。玩具銷售系統(tǒng)頁面美觀，程序運(yùn)行流程合理，完成了既定的 第 26 頁 共 28 頁 功能。確 定后提示商品訂購成功，如圖 18所示。若購物車中已沒有任何商品時(shí)，將提示購物車為空，如圖 16 所示。 第 24 頁 共 28 頁 圖 13 放入購物車 ②查看購物車 查看購物車可以看到購物車中商品信息，包括訂單編號(hào)、用戶帳號(hào)、玩具名稱、玩具單價(jià)、數(shù)量、金額、時(shí)間和總金額，可以進(jìn)行刪除商品的操作，如圖14 所示。 圖 9 取回密碼 第 23 頁 共 28 頁 圖 10 回答密碼提示問題 圖 11 成功取回密碼 （ 2）玩具商品信息的檢索 在搜索框中輸入要搜索商品的關(guān)鍵字，點(diǎn)擊“搜索”，便會(huì)出現(xiàn)同關(guān)鍵字相符合的商品信息，如圖 12 所示。出現(xiàn)密碼提示問題，要求正確回答密碼提示答案，如圖 10 所示。都正確之后顯示登錄成功的提示，如圖 8 所示。提交后將會(huì)出現(xiàn)提示注冊(cè)成功，如圖 6 所示。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。 39。 amp。pwd=1234。database=ToyUniverse。主要代碼如下： % dim fhfs,fkfs,zsxm,sfzh,dh,mail,dz,yb fhfs=request(fhfs) 第 20 頁 共 28 頁 fkfs=request(fkfs) zsxm=request(zsxm) sfzh=request(sfzh) dh=request(dh) mail=request(mail) dz=request(dz) yb=request(yb) % !include file= % dim objcon1 set objcon1=() =_ driver={SQL Server}。 /TD Next Data amp。 TD amp。2539。 (I).Name amp。 39。 amp。 (strSQL) % （ 2）訂單的打印 ① 填寫訂單 填寫用戶信息，并且顯示購買情況和總金額。 No amp。 第 19 頁 共 28 頁 strSQL = delete from OrderDetail where 訂單編號(hào) =39。uid=sa。server=(local)。將金額累計(jì)以得出總金額 Loop Set objRS = Nothing Set objConn = Nothing % CAPTION ALIGN=Right總金額： %= Total %/CAPTION % End If % ③ 刪除購物車中商品 將購物車中商品連同數(shù)據(jù)庫中對(duì)應(yīng)項(xiàng)刪去。 39。?No= amp。 (I).Value amp。 For I = 0 To 1 Data = Data amp。 BGCOLOR=39。這個(gè)變量用來統(tǒng)計(jì)總金額 Do While Not Data = TR HEIGHT=39。 (I).Name amp。39。P目前購物車內(nèi)沒有任何商品及數(shù)量！ /P amp。 Set objRS = GetSQLRecordset(strSQL, , OrderDetail) 第 18 頁 共 28 頁 If Then CENTERIMG SRC=39。 Session(member_name) amp。主要代碼如下： ! include file= % strSQL = SELECT * from OrderDetail WHERE 用戶帳號(hào) =39。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。pwd=1234。database=ToyUniverse。主要代碼如下： % member_name=session(member_name) tname = Request(tname) price = Request(price) quantity = Request(quantity) subTotal = price * quantity % 第 17 頁 共 28 頁 !include file= % dim objcon1 set objcon1=() =_ driver={SQL Server}。放入購物車 39。1039。quantity39。text39。39。price=amp。objRS( 玩具名稱 )amp。?amp。(I).valueamp。 for I=0to data=dataamp。 dim objrs 第 16 頁 共 28 頁 set objrs=() strsql ,objcon1,1,1 if keyword empty then do while not data=tr hight=39。 keyword amp。 dim keyword keyword= request (pro_type_search) dim strsql strsql=select * from Toy where 玩具名稱 like 39。uid=sa。server=(local)。 dim objrs set objrs=() strsql,objcon1,1,1 do while not session(name)=(1).value loop set objrs = nothing set objcon1 = nothing % 玩具商品信息的檢索 根據(jù)關(guān)鍵字進(jìn)行搜索，將符合關(guān)鍵字的商品內(nèi)容顯示出來。 member_answer amp。 dim member_answer member_answer= request (member_answer) dim strsql strsql=select * from Register where 密碼提示答 案 =39。uid=sa。server=(local)。39。amp。pwd=1234。database=ToyUniverse。主要代碼如下 % dim objcon1 set objcon1=() 第 14 頁 共 28 頁 =_ driver={SQL Server}。39。amp。39。amp。pwd=1234。database=ToyUniverse。主要代碼如下： % dim objcon1 set objcon1=() =_ driver={SQL Server}。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。pwd=1234。database=ToyUniverse。 dim objrs1 set objrs=() Register ,objcon1,1,1 new_member_name=request(new_member_name) new_member_name=trim(new_member_name) session(name)=new_member_name do while not if new_member_name=(0).value then new_member_name=已存在 end if loop set objrs=nothing set objcon1=nothing dim member_password2,popedom_check,member_nickname,member_sex,member_,member_phone,member_fax,member_postalcode,member_address,member_question,member_answer member_password2=request(member_password2) popedom_check=request(popedom_check) member_nickname=request(member_nickname) member_sex=request(member_sex) member_=request(member_) 第 12 頁 共 28 頁 member_phone=request(member_phone) member_fax=request(member_fax) member_postalcode=request(member_postalcode) member_address=request(member_address) member_question=request(member_question) member_answer=request(member_answer) dim objcon1 set objcon1=() =_ driver={SQL Server}。uid=sa。server=(local)。 圖 3 玩具銷售系統(tǒng)流程圖 功能實(shí)現(xiàn) 用戶管理 （ 1）用戶注冊(cè) 登錄 選定商品進(jìn)入商品表 放入購物車 查看購物車 刪除購物車中商品 顯示訂單 完成訂購 注冊(cè) 是 否 否 否 是 是