【正文】 衷心感謝所有關(guān)心、幫助過(guò)本人的師長(zhǎng)、朋友和同學(xué)們，使本人在大學(xué)四年的求學(xué)經(jīng)歷更加美好，終生難忘。在論文即將完成之際，謹(jǐn)向輔導(dǎo)老師表示深深的謝意。在設(shè)計(jì)過(guò)程中兩位指導(dǎo)老師為我們提出了許多寶貴的意見(jiàn)和建議，使本人受益非淺。另一面由于畢業(yè)設(shè)計(jì)時(shí)間有限，系統(tǒng)難免還存在很多的不足，需要進(jìn)一步的改善，主要在以下幾個(gè)方面： （ 1）系統(tǒng)功能還需要進(jìn)一步的完善，以適用于更多的領(lǐng)域 （ 2）系統(tǒng)某些權(quán)限的分配還存在一些不合理地方 （ 3）系統(tǒng)的安全性設(shè)計(jì)方面還應(yīng)該考慮全面一些 34 總之，在這次設(shè)計(jì)中，本人學(xué)到了大量的知識(shí)，開(kāi)闊了視野，也為日后從事軟件開(kāi)發(fā)工作奠定了堅(jiān)實(shí)的基礎(chǔ)。 通過(guò)本次畢業(yè)設(shè)計(jì) ,我也感受到了開(kāi)源的方便 ,遇到什么問(wèn)題 ,上網(wǎng)一查 ,就知道該怎么弄了 ,以前做個(gè)課程設(shè)計(jì)都是怕別人和我的一樣 ,不愿意給別人看 ,現(xiàn)在知道了程序弄不出來(lái)是多么的著急 ,學(xué)習(xí)都是相互的 ,互相研究才能共同進(jìn)步的 .以后要多多注意這方面的事情 ,本次畢業(yè)設(shè)計(jì)是我工作前一次很好的演練和實(shí)踐的機(jī)會(huì) ,是培養(yǎng)獨(dú)立思考問(wèn)題和自學(xué)能力的鍛煉 ,使我意識(shí)到必須努 力學(xué)習(xí)才能才工作中體現(xiàn)自己的價(jià)值 ,適應(yīng)社會(huì)的需要。并對(duì)其組成部分進(jìn)行了闡述。據(jù)此提出了電子商務(wù)網(wǎng)站的層次結(jié)構(gòu)模型。系統(tǒng)界面美觀友好，操作方便，將在很大程度上提高 數(shù)碼商品 信息管理的效率，基本達(dá)到本次畢業(yè) 設(shè)計(jì)的目的。webnameamp。td width=70總 計(jì) /td Message=message amp。td width=40郵費(fèi) /td Message=message amp。td width=40積分 /td Message=message amp。td width=300商 品 名 稱(chēng) /td Message=message amp。tr bgcolor=FFFFFF height=25 align=center Message=message amp。 關(guān)鍵代碼如下： % Function GetOrderNo(dDate) GetOrderNo = RIGHT(0000+Trim(Year(dDate)),4)+RIGHT(00+Trim(Month(dDate)),2)+RIGHT(00+Trim(Day(dDate)),2)+RIGHT(00 + Trim(Hour(dDate)),2)+RIGHT(00+Trim(Minute(dDate)),2)+RIGHT(00+Trim(Second(dDate)),2) End Function goods=GetOrderNo(Now()) Dim strMth,LngMth,strMian,Message,strtxtdeposit,LngState strMian = Message = strtxtdeposit = LngState = 2 Message=html Message=message amp?？蛻?hù)可以將購(gòu)物車(chē)中的產(chǎn)品放入訂單，進(jìn)行交易。/script end select % 用戶(hù) 網(wǎng)上交易 管理的實(shí)現(xiàn) 用戶(hù)網(wǎng)上交易 管理 模塊的功能描述： 功能描述：此模塊實(shí)現(xiàn)的功能是 通過(guò)用戶(hù)的在線(xiàn)購(gòu)物 訂單付款實(shí)現(xiàn)網(wǎng)上交易的流程 。)。,conn,1,3 rs(UserPassword)=md5(trim((UserPassword1))) set rs=nothing set conn=nothing script language=javascriptalert(39。trim((username2))amp。/script else rs(UserPassword)=md5(trim((UserPassword1))) 29 set rs=nothing set conn=nothing end if case repass set rs=() select UserPassword from [user] where username=39。)。,conn,1,3 if md5(trim((UserPassword)))trim(rs(UserPassword)) then set rs=nothing set conn=nothing script language=javascriptalert(39。usernameamp。/script case changepass set rs=() select UserPassword from [user] where username=39。)。/script set conn = nothing end if rs(user)=trim((user)) rs(realname)=trim((realname)) if (UserQuestion)= then set conn = nothing end if 28 rs(UserQuestion)=trim((UserQuestion)) if trim((UserAnswer))then rs(UserAnswer)=md5(trim((UserAnswer))) end if set rs=nothing set conn=nothing script language=javascriptalert(39。)。,conn,1,3 if (user)= then script language=javascriptalert(39。usernameamp。//用戶(hù)資料 case customerinfo set rs=() select user,realname,UserQuestion,UserAnswer from [user] where username=39。(1)。 您的收貨信息保存成功！39。39。amp。 此模塊頁(yè)面如圖： 圖 公司信息管理界面 用戶(hù)個(gè)人資料管理 模塊的關(guān)鍵代碼： 26 其部分關(guān)鍵代碼如下： % dim action,username action=FormatSQL(SafeRequest(action,0)) username=strUserName select case action 39。如果有則出現(xiàn)出錯(cuò)提示框，提示重新輸入；否則成功修改，數(shù)據(jù)庫(kù)被更新。(1)。 修 改 成 功 ！39。 sql 39。 where id=amp。trim((pweight))amp。,pweight=39。trim((code))amp。,code=39。strDetailamp。,detail=39。trim((Supplier))amp。,Supplier=39。,remend=amp。trim((type))amp。,type=39。trim((grade)) amp。,grade=39。,stock=amp。,score=amp。,discount=amp。productdateamp。,productdate=39。,categoryid=amp。trim((spic))amp。,spic=39。trim((pic)) amp。,pic=39。,vipprice=amp。,price6=amp。,price5=amp。,price4=amp。,price3=amp。,price2=amp。,price1=amp。trim((introduce)) amp。,introduce=39。trim((mark)) amp。,mark=39。trim((name))amp。 (detail)(i) Next sql = Update product set name=39。 sql 39。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。39。amp。trim((stock))amp。trim((score))amp。discountamp。39。amp。trim((categoryid))amp。39。amp。39。amp。trim((vipprice))amp。trim((price6))amp。trim((price5))amp。trim((price4))amp。trim((price3))amp。trim((price2))amp。trim((price1))amp。39。amp。39。amp。39。amp。/script end if dim productdate,discount discount=round((price2)/(price1),2) productdate=trim((date)) dim action,id,temp,strContent,i,strDetail id=SafeRequest(id,1) action=FormatSQL(SafeRequest(action,0)) select case action case add For i = 1 To (detail).Count strDetail = strDetail amp。)。/script end if if Not isNumeric((stock)) then set conn = nothing 24 script language=javascriptalert(39。)。/script end if if Not isNumeric((stock)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((price6)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((price5)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((price4)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((price3)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((price2)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((price1)) then set conn = nothing script language=javascriptalert(39。)。/script end if if Not isNumeric((vipprice)) then 23 set conn = nothing script language=javascriptalert(39。)。/script end if if (name)= then set conn = nothing script language=javascriptalert(39。)。alert(39。/script end if end if if session(rank)2 then set conn = nothing script language=39。)。alert(39。/script else if (Buy2Buy)(admin)= then set conn = nothing script language=39。)。alert(39。 管理員修改 密碼 模塊的輸入、輸出：