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

　　

【正文】 最新商品顯示頁面 2. 登陸注冊 圖 420 用戶登陸注冊頁面 注冊 .html % set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。DBQ=amp。(分頁圖庫 \) % form name=yy method=post action=未提交 .asp 提交后進入 未提交 .asp 進行判斷 % 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密碼問題為空！ 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電話號碼不能為空！ 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 號碼不能為空！ 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 注冊成功后進入 提交 .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 用戶注冊成功頁面 點擊登陸 執(zhí)行 進行判斷 %@ 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用戶名或密碼錯誤！ 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=請輸入你要查找的物品名稱 size=30 maxlength=20 input type=submit name=Submit value=提交 確認提交執(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沒有該物品！ 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 搜索物品頁面 物品頁面 商品瀏覽和分頁技術 !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一口價