【正文】 but his stomach revolted at the thought of the raw flesh, and he did not know how he might 。 fore and knew on which side of hunger he stood。s over, expecting Dr. Island to answer from somewhere。s long, prehuman day. For a time he listened for any sound Ignacio might m ake searching for him。 out of breath, the thumping of his own heart the only39。s thumbnailshowing like spectators who lined the railings of his lips. Don39。 if I pursue you I will not catch you, and if I catch youthrough your own slowness and clumsinessI will not kill you, and if I kill you I will not eat you. Nicholas had begun to back away, and at the last。 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學(xué)院。 （ 4）學(xué)?？稍试S學(xué)位論文被查閱或借閱。 （ 2）學(xué)?？梢圆捎糜坝　⒖s印或其他復(fù)制方式保存學(xué)位論文。除非另有說明，本文的工作是原始性工作。在此向他們表示我最衷心的感謝！ 在論文完成過程中，本人還得到了其他老師和許多同學(xué)的熱心幫助，本人向他們表示深深的謝意！ 最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！ 作者簡介 姓 名：梁雯 性別： 女 出生年月： 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 實例教程 [M]. 劉勇譯 . 北京：人民郵電出版社， 。 參考文獻(xiàn) [1] 鄧文瀾，陳惠貞，陳俊榮 . ASP 與網(wǎng)絡(luò)數(shù)據(jù)庫技術(shù) [M]. 北京：中國鐵道出版社， 。由于篇幅有限，未能將設(shè)計過程一一列出，只挑選了重要的部分加以說明。對 ASP內(nèi)置 ADO組件中的 Connection對象 直接連接的方式和 RecordSet對象存儲記錄集實 現(xiàn)對數(shù)據(jù)庫操作的事務(wù)性處理有了更透徹的理解和熟練的編程應(yīng)用 。可以實現(xiàn)完善的玩具銷售系統(tǒng)網(wǎng)上訂購過程。通 過本次畢業(yè)設(shè)計，更深入的應(yīng)用了 ASP和數(shù)據(jù)庫知識， 完成了玩具銷售系統(tǒng)設(shè)計與實現(xiàn)的玩具信息的發(fā)布、用戶管理、玩具商品信息的檢索、玩具交易等功能。通過測試與分析，說明該系統(tǒng)運行穩(wěn)定、可靠，具有一定的實用價值。玩具銷售系統(tǒng)頁面美觀，程序運行流程合理，完成了既定的 第 26 頁 共 28 頁 功能。確 定后提示商品訂購成功，如圖 18所示。若購物車中已沒有任何商品時，將提示購物車為空，如圖 16 所示。 第 24 頁 共 28 頁 圖 13 放入購物車 ②查看購物車 查看購物車可以看到購物車中商品信息，包括訂單編號、用戶帳號、玩具名稱、玩具單價、數(shù)量、金額、時間和總金額，可以進(jìn)行刪除商品的操作，如圖14 所示。 圖 9 取回密碼 第 23 頁 共 28 頁 圖 10 回答密碼提示問題 圖 11 成功取回密碼 （ 2）玩具商品信息的檢索 在搜索框中輸入要搜索商品的關(guān)鍵字，點擊“搜索”，便會出現(xiàn)同關(guān)鍵字相符合的商品信息，如圖 12 所示。出現(xiàn)密碼提示問題，要求正確回答密碼提示答案，如圖 10 所示。都正確之后顯示登錄成功的提示，如圖 8 所示。提交后將會出現(xiàn)提示注冊成功，如圖 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 訂單編號 =39。uid=sa。server=(local)。將金額累計以得出總金額 Loop Set objRS = Nothing Set objConn = Nothing % CAPTION ALIGN=Right總金額： %= Total %/CAPTION % End If % ③ 刪除購物車中商品 將購物車中商品連同數(shù)據(jù)庫中對應(yīng)項刪去。 39。?No= amp。 (I).Value amp。 For I = 0 To 1 Data = Data amp。 BGCOLOR=39。這個變量用來統(tǒng)計總金額 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 用戶帳號 =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)流程圖 功能實現(xiàn) 用戶管理 （ 1）用戶注冊 登錄 選定商品進(jìn)入商品表 放入購物車 查看購物車 刪除購物車中商品 顯示訂單 完成訂購 注冊 是 否 否 否 是 是 檢查驗證碼 用戶是否存在 用戶是否已登