【導(dǎo)讀】本網(wǎng)上購(gòu)物系統(tǒng)是根據(jù)現(xiàn)有的網(wǎng)上購(gòu)物系統(tǒng)現(xiàn)狀而設(shè)計(jì)開(kāi)發(fā)的電子商務(wù)平臺(tái)。求和總體設(shè)計(jì)方案，較詳細(xì)的論述了系統(tǒng)的詳細(xì)設(shè)計(jì)和實(shí)現(xiàn)。最后，本文對(duì)網(wǎng)上購(gòu)物系統(tǒng)進(jìn)。行了系統(tǒng)檢測(cè)并提出了還需要改進(jìn)的問(wèn)題。理，新聞信息管理，廣告鏈接管理等功能。ADO、ASP與后臺(tái)數(shù)據(jù)庫(kù)鏈接等關(guān)鍵技術(shù)建設(shè)網(wǎng)上購(gòu)物系統(tǒng)，實(shí)現(xiàn)網(wǎng)上購(gòu)物系統(tǒng)功能。

　　

【正文】 最新商品顯示頁(yè)面 2. 登陸注冊(cè) 圖 420 用戶登陸注冊(cè)頁(yè)面 注冊(cè) .html % set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。DBQ=amp。(分頁(yè)圖庫(kù) \) % form name=yy method=post action=未提交 .asp 提交后進(jìn)入 未提交 .asp 進(jìn)行判斷 % username=request(username) password1=request(UserPassword1) password2=request(UserPassword2) user=request(user) UserQuestion=request(UserQuestion) UserAnswer=request(UserAnswer) realname=request(realname) 本科論文 32 weleshengbuy=request(weleshengbuy) UserMobile=request(UserMobile) userqq=request(userqq) post=request(post) if username=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n用戶名不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if password1= and password2=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \密碼不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if password1password2 then script language=39。javascript39。 amp。 VbCRlf alert(39。2 次密碼不一致 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if user=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n郵箱地址不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf 本科論文 33 /script amp。 VbCRLF end if if UserQuestion=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n密碼問(wèn)題為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if realname=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n密碼回答不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if weleshengbuy=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n家庭住址不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if post=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n郵政編碼不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF 本科論文 34 if UserMobile=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n電話號(hào)碼不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if userqq=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n 號(hào)碼不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if end if session(username)=username session(UserPassword1)=password1 session(UserPassword2)=password2 session(user)=user session(UserQuestion)=UserQuestion session(UserAnswer)=UserAnswer session(realname)=realname session(weleshengbuy)=weleshengbuy session(UserMobile)=UserMobile session(userqq)=userqq session(post)= post (提交 .asp) % 本科論文 35 注冊(cè)成功后進(jìn)入 提交 .asp %set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。DBQ=amp。(fytk\) % form id=form1 name=form1 method=post action= % username=session(username) password=session(UserPassword2) user=session(user) UserQuestion=session(UserQuestion) UserAnswer=session(UserAnswer) realname=session(realname) weleshengbuy=session(weleshengbuy) UserMobile=session(UserMobile) userqq=session(userqq) post=session(post) sq=insert into user(username,password,user,UserQuestion,UserAnswer,realname,weleshengbuy,UserMobile,userqq,post) values(39。amp。usernameamp。39。,39。amp。passwordamp。39。,39。amp。useramp。39。,39。amp。UserQuestionamp。39。,39。amp。UserAnsweramp。39。,39。amp。realnameamp。39。,39。amp。weleshengbuyamp。39。,39。amp。UserMobileamp。39。,39。amp。userqqamp。39。,39。amp。postamp。39。) (sq) 39。執(zhí)行數(shù)據(jù)插入命令 session(username)= % 本科論文 36 圖 421 用戶注冊(cè)成功頁(yè)面 點(diǎn)擊登陸 執(zhí)行 進(jìn)行判斷 %@ Language=VBScript % %set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。DBQ=amp。(fytk\) % % strusername=(username) strpassword=(password) if strusername=then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n用戶名不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if if strpassword= then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n密碼不能 為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf 本科論文 37 /script amp。 VbCRLF end if % % set rst=() sq=select * from user where username=39。amp。strusernameamp。39。 and password=39。amp。strpasswordamp。39。 sq,conn if then script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n用戶名或密碼錯(cuò)誤！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF else session(username)=strusername () end if% 3. 搜索 form name=form2 method=post action= input name=czname type=text value=請(qǐng)輸入你要查找的物品名稱 size=30 maxlength=20 input type=submit name=Submit value=提交 確認(rèn)提交執(zhí)行 % set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。DBQ=amp。(fytk/) 本科論文 38 czname=(czname) select1=(select1) select2=(select2) if czname or select1 or select2 then set rs=() sql=select * from wp where a_name like 39。%amp。cznameamp。%39。 sql,conn if not then url=fytk/amp。rs(a_type)amp。.asp (url) else script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n沒(méi)有該物品！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if else script language=39。javascript39。 amp。 VbCRlf alert(39。系統(tǒng)提示 \n查找條件不能為空！ 39。)。 amp。 VbCrlf (1)。 amp。 vbCrlf /script amp。 VbCRLF end if % 本科論文 39 圖 422 搜索物品頁(yè)面 物品頁(yè)面 商品瀏覽和分頁(yè)技術(shù) !include file=../ % set rs=() sq=select * from wp where a_type=39。hellokitty39。 order by a_id desc sq,conn,1 if not and not then dim page_no if (page_no)= then page_no=1 else page_no=cint((page_no)) end if =15 =page_no dim i,j 本科論文 40 j=0 i= % script language=javascript function ss(f) { =?aa=+。 } /script//執(zhí)行 % do while not and i0 i=i1 % % =rs(a_name)%br一口價(jià)