【導讀】ASP是當今流行的Web應用程序開發(fā)技術之一。作為一種服務器端腳本編。來創(chuàng)建交互式的動態(tài)網(wǎng)頁和具有數(shù)據(jù)庫訪問功能的Web應用程序。自己喜歡的筆記本電腦的快捷購物方式。新聞發(fā)布系統(tǒng)和用購物車選購商品以及查詢商品得功能。根據(jù)這些銷售網(wǎng)站的這。的的實現(xiàn)了一個在線購物網(wǎng)站應具備的基本功能，并且界面友好，操作簡單。

　　

【正文】 whereTo = Where TypeId= amp。 Cint(tpid) itype = iflag Else 39。在指定分類中，查詢指定商品 itype = (tid) gname = (gname) If isNull(gname) Or Len(gname)=0 Then whereTo = Where TypeId= amp。 Cint(itype) Else whereTo = Where TypeId= amp。 Cint(itype) amp。 And Name Like 39。% amp。 gname amp。 %39。 End If End If % 商品添加及修改模塊界面 圖 8 添加商品界面 % Function changechr(str) changechr = Replace(str, , ) changechr = Replace(changechr,Chr(13),br) 第 16 頁 共 22 頁 End Function Dim GName Dim StrAction 39。得到動作參數(shù)，如果為 add則表示添加新商品，如果為 update則表示更改商品 StrAction = (action) 39。取得商品題目和內容和提交人用戶名 GName = Trim(Request(name)) GName = Replace(GName ,39。,‘) rqtContent = changechr(Request(Content)) 39。替換函數(shù) rqtContent = Replace(rqtContent,39。,‘ ) 39。替換內容中的單引號 Set rs = () If StrAction=add Then 39。在數(shù)據(jù)庫表 Goods中插入新商品信息 sql=Select * from Goods sql,Conn,1,3 ? Else 39。更改此商品信息 id = (id) sql=UpdateGoodsSetTypeId=amp。CInt((Typeid))amp。,Name=39。amp。GNameamp。39。,Sn_Number=39。amp。Request(number)amp。39。,Posttime=39。amp。now()amp。39。 amp。_ ,SalePrice=amp。Request(saleprice)amp。,StorePrice=amp。Request(storeprice)amp。,Producer=39。amp。Request(producer)amp。39。 amp。_ ,Package=39。amp。Request(package)amp。39。,Content=39。amp。rqtContent amp。39。 Where id=amp。CInt(id) (sql) End If Set rs = Nothing h3商品成功保存 /h3 % 第 17 頁 共 22 頁 圖 9 修改商品信息界面 % Function changechr(str) changechr = Replace(str, , ) changechr = Replace(changechr,Chr(13),br) End Function Dim GName Dim StrAction 39。得到動作參數(shù)，如果為 add則表示添加新商品，如果為 update則表示更改商品 StrAction = (action) 39。取得商品題目和內容和提交人用戶名 GName = Trim(Request(name)) GName = Replace(GName ,39。,‘) rqtContent = changechr(Request(Content)) 39。替換函數(shù) rqtContent = Replace(rqtContent,39。,‘ ) 39。替換內容中的單引號 Set rs = () If StrAction=add Then 第 18 頁 共 22 頁 39。在數(shù)據(jù)庫表 Goods中插入新商品信息 sql=Select * from Goods sql,Conn,1,3 ? Else 39。更改此商品信息 id = (id) sql=UpdateGoodsSetTypeId=amp。CInt((Typeid))amp。,Name=39。amp。GNameamp。39。,Sn_Number=39。amp。Request(number)amp。39。,Posttime=39。amp。now()amp。39。 amp。_ ,SalePrice=amp。Request(saleprice)amp。,StorePrice=amp。Request(storeprice)amp。,Producer=39。amp。Request(producer)amp。39。 amp。_ ,Package=39。amp。Request(package)amp。39。,Content=39。amp。rqtContent amp。39。 Where id=amp。CInt(id) (sql) End If Set rs = Nothing h3商品成功保存 /h3 % 商品刪除模 塊界面 圖 10 刪除商品界面 % Dim ids ids = (id) sql = Select * From Goods Where id In (amp。idsamp。) Set Rs = (sql) Do While Not filename = (images\amp。Rs(imageFile)) Set 第 19 頁 共 22 頁 MyFileObject=() If ((trim(filename))) Then trim(filename) End If () Loop sql = Delete From Goods Where id In (amp。idsamp。) (sql) Set Rs = Nothing () % 其他功能模塊與以上功能模塊類似，開發(fā)方法也基本相同，所以在這里其過程和代碼也不再贅述。 以上為筆記本銷售網(wǎng)站的整個過程。 結 論 筆記本銷售網(wǎng)站采用 Windows XP＋ ASP＋ SQL Server 2021 的技術方案，很好地實現(xiàn)了筆記本銷售網(wǎng)站的具體操作，界面很友好，操作很簡便，但是由于軟件本身的一些問題使設計過程中出現(xiàn)了很多問題。不過在指導老師和同學的指導下都很好地解決了這些問題。由于銷售網(wǎng)站的功能很龐大，需要很多頁面，因為時間的原 因，美化界面這部分還作得不是很夠，所以很多界面會有重復。還有就是有幾個問題沒考慮到：該系統(tǒng)中需要考慮到商品的庫存問題，當時沒有想到，經(jīng)過答辯時候老師提醒才發(fā)現(xiàn)。以及用戶注冊時候的檢測也是很重要的，比如是不是輸入的郵箱地址等，而這些也需要完善；以及上傳圖片時沒對圖片的大小進行限制等等。 畢業(yè)設計畢竟是為了讓我們學習到如何設計和開發(fā)一套系統(tǒng)，在畢業(yè)設計過程中我還是學到了很多知識，知道遇到問題該如何去分析問題、解決問題，能夠自己動手做出一套系統(tǒng)來這也是對自己的一種鼓舞，也是對我的大學生活的一次檢驗，讓我把這四年所 學到的知識能夠用于實踐，這讓我的動手能力也有了很大的提高，也讓我學會了如何思考問題。相信這些都會讓我在以后的工作中受益無窮的。 第 20 頁 共 22 頁 參考文獻 [1] 易昭湘 . 專家門診 ASP開發(fā)答疑 200問 [M].北京 :人民郵電出版社 , 2021。 [2] 萬峰科技 . ASP NET網(wǎng)站開發(fā)四“酷”全書 [M].上海 :電子工業(yè)出版社 ,2021。 [3] 楊鯤鵬，孟凡琦，溫才燚 .+SQL Server動態(tài)網(wǎng)站開發(fā)從基礎到實踐 [M].上海 :電子工業(yè)出版社 ， 2021。 [4] 頊宇峰 .ASP+SQL Server典型網(wǎng)站建設案例 [M].北京 :清華大學出版社 ， 2021。 [5] 啟明工作室 .+ SQL Server網(wǎng)絡應用系統(tǒng)開發(fā)與實例 [M].北京 :人民郵電出版社， 2021。 [6] 明日科技 .ASP開發(fā)技術大全 [M].北京 :人民郵電出版社 ， 2021。 [7] 劉好增 . ASP動態(tài)網(wǎng)站開發(fā)實踐教程 [M].北京 :清華大學出版社 ， 2021。 [8] 明日科技 . ASP數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選 [M].北京 :人民郵電出版社 ， 2021。