【文章內(nèi)容簡介】 if application(register)=yes then end if% %set =() 第 11 頁 共 20 頁 DSN=zhang。UID=zhang。PWD=123 set rs=()% td width=11%a href=退出登錄 /a/td/tr/table div align=center目前的數(shù)據(jù)為 : % select * from products ORDER BY cp_id,3,3 = 10 For I = 1 To A HREF=39。?Page= amp。 I amp。 39。 amp。 第 amp。 I amp。 頁 amp。 /A amp。 Next PageNo = Request(Page) If PageNo Then ShowPage rs, PageNo End If % centera href=添 加 /a/center %else 對不起 ,你不是管理員 ,沒有此權(quán)限 ,請先 a href=39。39。登錄 /aa href=39。39。回首頁 /a end if% 下面是管理員對產(chǎn)品進(jìn)行修改的相 關(guān)信息 ，修改后可以在 看到修改后的數(shù)據(jù)。 如圖 310： 圖 310 修改產(chǎn)品 核心 代碼： % cp_id=request(cp_id) cp_name=request(cp_name) set =() DSN=zhang。UID=zhang。PWD=123 第 12 頁 共 20 頁 set rs=() update products set cp_name=39。amp。cp_nameamp。39。,types=39。amp。request(types)amp。39。,price=amp。request(price)amp。,sumes=39。amp。request(sumes)amp。39。,ment=39。amp。request(ment)amp。39。 where cp_id=39。amp。cp_idamp。39。,3,3 set rs=nothing % 管理員對產(chǎn)品添加所涉及到的內(nèi)容，如編號，名稱，類型等。 如圖 311： 圖 311 添加產(chǎn)品 首先建立 連接 和 記錄集，使其能從數(shù)據(jù)庫中獲取所需的值，通過 insert 語句就可添加新的產(chǎn)品的相關(guān)信息。 核心代碼： set =() DSN=zhang。UID=zhang。PWD=123 set rs=() sql=insert into products(cp_id,cp_name,types,price,dates,cp_addr,sumes,remaincount,ment) values(39。amp。request(cp_id)amp。39。,39。amp。request(cp_name)amp。39。,39。amp。request(types)amp。39。,amp。request(price)amp。,39。amp。request(dates)amp。39。,39。amp。request(cp_addr)amp。39。,amp。request(sumes)amp。,amp。request(remaincount)amp。,39。amp。request(remaincount)amp。39。) 第 13 頁 共 20 頁 產(chǎn)品查詢 模塊 此模塊分為用戶對產(chǎn)品詳細(xì)情況的查 看 和搜索 。 詳細(xì)情況可以 顯示出編號、名稱 、單價(jià)和 類型等。搜索是根據(jù)不同的關(guān)鍵字 ，如名稱、類型、 單價(jià)等來查找產(chǎn)品。 下面是 產(chǎn)品的詳細(xì)情況 的頁面， 如圖 312： 圖 312 產(chǎn)品詳細(xì)情況 以下代碼是從數(shù)據(jù)庫中 讀 取 產(chǎn)品的相關(guān)信息，產(chǎn)品的評論是通過 if 語句實(shí)現(xiàn)， rs(ment) 時(shí)，就可以直接從數(shù)據(jù)庫中讀出，要是條件不成立時(shí)就直接顯示“沒有介紹 ” 重要代碼： %=rs(cp_id)% %=rs(cp_name)% %=rs(types)% %=rs(price)% %=rs(sumes)% %=rs(remaincount)% %=rs(cp_addr)% %=rs(dates)% % if rs(ment)then replace(rs(ment),chr(13),br) else 第 14 頁 共 20 頁 沒有介紹 end if% 以下是 注冊 用戶對產(chǎn)品進(jìn)行搜索，在“我想查詢” 后 的下拉菜單中 選中某個(gè)關(guān)鍵字 ，然后輸入其值就可查到相關(guān)的信息。同時(shí)在“高級查詢 ” 后的 單價(jià) 中輸入價(jià)格范圍 就可搜索到這個(gè)范圍內(nèi)的信息 ，顯示出某個(gè)價(jià)格范圍內(nèi)的工藝品 。 圖 313 搜索產(chǎn)品 重要 代碼： % dim tiaojian,tiaojianzhi,date1,date2 tiaojian=(shoushuotiaojian) tiaojianzhi=(tiaojianzhi) date1=request(price1) date2=request(price2) select case tiaojian case cp_id strsql=select * from products where cp_id=39。amp。 tiaojianzhi amp。39。 case cp_name strsql=select * from products where cp_name=39。amp。 tiaojianzhi amp。39。 case cp_addr strsql=select * from products where cp_addr=39。 amp。 tiaojianzhi amp。39。 case dates strsql=select * from products where dates=39。 amp。 tiaojianzhi amp。39。 case sumes strsql=select * from products where sumes= amp。 tiaojianzhi case price strsql=select * from products where price=39。 amp。 tiaojianzhi amp。39。 case types strsql=select * from products where types=39。 amp。 tiaojianzhi amp。39。 end select 第 15 頁 共 20 頁 if request(price1) and request(price2) then strsql=strsqlamp。 and price=amp。request(price1)amp。 and price=amp。request(price2) end if % 產(chǎn)品購買模塊 此模塊主要是針對用戶。在用戶登錄后可對 任意一個(gè)或多個(gè) 產(chǎn)品進(jìn)行購買，在購買的所有產(chǎn)品中 ， 若 認(rèn)為 不 滿意 的產(chǎn)品 可將其 刪除 ，若要 全部 購買就點(diǎn)擊“下一步” 填寫詳細(xì)的定單情況。 用戶購買的情況如圖 314： 圖 314 購買產(chǎn)品 核心代碼： 根據(jù)產(chǎn)品號更新產(chǎn)品庫中的記錄數(shù) sql=update products set sumes=sumes1 where cp_id=39。amp。cp_idamp。39。 sql,1,1% select * from buy where username=39。amp。usernameamp。39。,3,3% 使用循環(huán)完成多次購物 %do while not price=rs(price) sum=rs(sum) sum1=price*sum total=totalsum1% %i=i+1 loop% %else% 第 16 頁 共 20 頁 %total=0 i=0 set rs=() sql=update buy set sum=sum+1 where cp_id=39。amp。cp_idamp。39。 and username=39。amp。usernameamp。39。 sql,1,1 select * from buy where username=39。amp。usernameamp。39。,3,3% %do while not price=rs(price) sum=rs(sum) sum1=price*sum total=total+sum1% %i=i+1 loop% %end if% 找回密碼模塊 此模塊是針對用戶忘記自己的密碼 時(shí) ，在登錄頁面點(diǎn)擊 “ 忘記密碼 ” 進(jìn)入 圖315 填入相關(guān)信息就可找回自己的密碼 。 圖 315 找密碼 重 要 代碼： % dim name,zhanghao,question,answer name=(name) zhanghao=(zhanghao) question=(question) answer=(answer) % % if question= or answer= then 第 17 頁 共 20 頁 else if name then strsql=select * from enteruser where question=39。 + question + 39。and answer=39。 + answer + 39。and name=39。 + name +39。 end if if zhanghao then strsql=select * from enteruser where question=39。 + question + 39。and answer=39。 + answer + 39。and zhanghao=39。 + zhanghao +39。 end if if zhanghao and name then strsql=select * from enteruser where question=39。 + question + 39。and answer=39。 + answer + 39。and name=39。 + name +39。and zhanghao=39。 + zhanghao +39。 end if end if 4 網(wǎng)站測試和性能分析 本系統(tǒng)采取的測試方法是先進(jìn)行各模塊測試，經(jīng)過修改和調(diào)整通過以后，進(jìn)行總體測試，測試結(jié)果各項(xiàng)功能均已經(jīng)或基本達(dá)到設(shè)計(jì)要求。 由于一般網(wǎng)站設(shè)計(jì)都是一些專業(yè)人員設(shè)計(jì)，專業(yè)人員對計(jì)算機(jī)和網(wǎng)絡(luò)有較深的理解，同時(shí)也要考慮到訪問網(wǎng)站的大部分用戶只是使用計(jì)算機(jī)和網(wǎng)絡(luò)，應(yīng)切實(shí)滿足用戶的需要。所以有許多成功的經(jīng)驗(yàn)表明，讓對 計(jì)算機(jī)不是很熟悉的用戶來參加網(wǎng)站的測試工作效果非常好，這些人會提出許多專業(yè)人員沒有顧及到的問題或是一些好的建議。 本網(wǎng)站采用的測試環(huán)境是：服務(wù)器采用 Windows 2021 操作系統(tǒng) +IIS 信息服務(wù)管理：客戶機(jī)采用 Windows 2021 操作系統(tǒng) +IE 瀏覽器。 測試的主要內(nèi)容包括：用戶登錄，管理員管理，產(chǎn)品的購買等功能，測試結(jié)果一切正常，達(dá)到了設(shè)計(jì)的要求。 結(jié) 論 本系統(tǒng)是一個(gè)小型銷售系統(tǒng)，具有一定 的 實(shí)用性。它主要完成 管理員 對產(chǎn)品的添加，刪除，修改，用戶購買產(chǎn)品等功能。本系統(tǒng)采用當(dāng)前流行的面向?qū)ο蟮拈_ 發(fā)工具 ASP 來完成 其 設(shè)計(jì)，在數(shù)據(jù)庫的設(shè)計(jì)上采用了 SQL Server 2021 數(shù)據(jù)庫服務(wù)器。 本系統(tǒng)具有 一定 的實(shí)用功能。在查詢方面，系統(tǒng)實(shí)現(xiàn)了多條件任意字段的模糊查詢，同時(shí)在分類查詢上實(shí)現(xiàn)了動態(tài)生成，系統(tǒng)可以自動識別用戶不同的輸入。第 18 頁 共 20 頁 在用戶管理方面，系統(tǒng)較好地實(shí)現(xiàn)了用戶注冊，密碼的找回等各項(xiàng)功能。 系統(tǒng)在設(shè)計(jì)過程中不可避免地遇到了各種各樣的問題，由于整個(gè)系統(tǒng)完全都是由個(gè)人設(shè)計(jì)的，有關(guān) ASP 許多細(xì)節(jié)問題都要靠自己去摸索，加之本人水平有限，并沒有完全地理解 ASP 的強(qiáng)大功能，而且還存在著許多不足之處。如： (1)由 于時(shí)間關(guān)系，系統(tǒng)功能實(shí)現(xiàn)不夠完善，有些功能的使用不是很方便。 (2)由于本系統(tǒng)是在 1024 768 的顯示分辨率下設(shè)計(jì)完成的，所以建議用戶在此顯示分辨率下使用本系統(tǒng)。 通過本次畢業(yè)設(shè)計(jì)我學(xué)到了不少新的東西，也發(fā)現(xiàn)了許多的問題，有些在設(shè)計(jì)過程中已經(jīng)解決，有些還有待今