【正文】 } /script//執(zhí)行 % do while not and i0 i=i1 % % =rs(a_name)%br一口價(jià)： %。hellokitty39。 vbCrlf /script amp。 VbCrlf (1)。)。 VbCRlf alert(39。javascript39。 vbCrlf /script amp。 VbCrlf (1)。)。 VbCRlf alert(39。javascript39。rs(a_type)amp。%39。%amp。DBQ=amp。 vbCrlf /script amp。 VbCrlf (1)。)。 VbCRlf alert(39。javascript39。39。amp。39。amp。 vbCrlf 本科論文 37 /script amp。 VbCrlf (1)。)。 VbCRlf alert(39。javascript39。 vbCrlf /script amp。 VbCrlf (1)。)。 VbCRlf alert(39。javascript39。DBQ=amp。) (sq) 39。postamp。,39。userqqamp。,39。UserMobileamp。,39。weleshengbuyamp。,39。realnameamp。,39。UserAnsweramp。,39。UserQuestionamp。,39。useramp。,39。passwordamp。,39。usernameamp。(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。 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)。 amp。 amp。系統(tǒng)提示 \n 號(hào)碼不能為空！ 39。 amp。 VbCRLF end if if userqq=then script language=39。 amp。 amp。系統(tǒng)提示 \n電話號(hào)碼不能為空！ 39。 amp。 VbCRLF 本科論文 34 if UserMobile=then script language=39。 amp。 amp。系統(tǒng)提示 \n郵政編碼不能為空！ 39。 amp。 VbCRLF end if if post=then script language=39。 amp。 amp。系統(tǒng)提示 \n家庭住址不能為空！ 39。 amp。 VbCRLF end if if weleshengbuy=then script language=39。 amp。 amp。系統(tǒng)提示 \n密碼回答不能為空！ 39。 amp。 VbCRLF end if if realname=then script language=39。 amp。 amp。系統(tǒng)提示 \n密碼問(wèn)題為空！ 39。 amp。 VbCRLF end if if UserQuestion=then script language=39。 amp。 amp。系統(tǒng)提示 \n郵箱地址不能為空！ 39。 amp。 VbCRLF end if if user=then script language=39。 amp。 amp。2 次密碼不一致 39。 amp。 VbCRLF end if if password1password2 then script language=39。 amp。 amp。系統(tǒng)提示 \密碼不能為空！ 39。 amp。 VbCRLF end if if password1= and password2=then script language=39。 amp。 amp。系統(tǒng)提示 \n用戶名不能為空！ 39。 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。() % 主頁(yè) ： 1. 最新產(chǎn)品顯示 table width=388 height=78 border=0 cellspacing=1 tr % set rs=() sq=select top 5 * from wp order by a_time desc sq,conn,1 % % dim i i=5 do while not and i1 % font size=2px color=993399 face=Arial, Helvetica, sansserif % =rs(a_time)% a href=fytk/% =rs(a_type)%.asp% =rs(a_name)%，特價(jià) % =rs(a_hb)%元 ！ /a/fontbr % i=i1 loop % 本科論文 31 圖 419 最新商品顯示頁(yè)面 2. 登陸注冊(cè) 圖 420 用戶登陸注冊(cè)頁(yè)面 注冊(cè) .html % set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。 代碼： % 本科論文 30 set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。在留言模塊中留下的用戶信息都統(tǒng)一保存到留言表中，由后臺(tái)管理員進(jìn)行統(tǒng)一的管理。在用戶單擊 ’ 我要結(jié)帳 ’ 按紐后，用對(duì)話框顯示出用戶選購(gòu)的商品總價(jià)，在用戶付帳之后，在這個(gè)選購(gòu)表文中刪除此用戶的選購(gòu)情況，最后返回首頁(yè)。同時(shí)為了在購(gòu)物車(chē)中查看商品時(shí)可以隨時(shí)刪除一些不必要的商品，實(shí)現(xiàn)方法是在此商品的后面取一個(gè)按紐或者其它對(duì)象，這個(gè)對(duì)象的顯示值是 ’ 刪除 ’ ，如果用戶單擊此對(duì)象則代表用戶想刪除這一物件。 用戶在選定后需要選購(gòu)的商品時(shí)，隨時(shí)都可以進(jìn)入購(gòu)物車(chē)對(duì)其選擇的商品進(jìn)行查看，如果用戶在確定選擇的商品后，還需要在購(gòu)物 車(chē)界面進(jìn)行結(jié)帳功能（這是由于沒(méi)有進(jìn)行實(shí)際的金融交易的原因）。另外，如果瀏覽者沒(méi)有登錄而瀏覽到了相應(yīng)的商品頁(yè)面時(shí)，需要隨時(shí)可以在每個(gè)商品頁(yè)面進(jìn)行登錄，并在登錄后返回首頁(yè)。在一個(gè)頁(yè)面中最本科論文 29 多顯示 15 條商品信息，一行顯示 3 條，一其顯示 5 行，實(shí)現(xiàn)方法 是根據(jù)ASP 的內(nèi)置 recordset 對(duì)象提供的分頁(yè)顯示功能將上述的分頁(yè)顯示。由于是分類(lèi)顯示商品信息，因此不同類(lèi)別的商品顯示在不同的頁(yè)面，同一類(lèi)的商品如果在一個(gè)頁(yè)面顯示不完，還需要對(duì)該頁(yè)的信息進(jìn)行分頁(yè)顯示。如果瀏覽者沒(méi)有注冊(cè)或登錄，那么瀏覽者將不能進(jìn)行選購(gòu)物品功能，只能瀏覽和留言。 先講述瀏覽模塊，瀏覽模塊是將商品信息顯示在屏幕上，由用戶進(jìn)行選擇。 VbCRLF () % 主界面模塊的設(shè)計(jì) 這是整系統(tǒng)的核心工程，因?yàn)樗桥c用戶的結(jié)口，因此這個(gè)模塊下面又分為三個(gè)子模塊，分別是：瀏覽模塊、購(gòu)物車(chē)模塊，留言模塊。 amp。(a2) sql script language=39。nbsp end if next else 該記錄為空 end if % 圖 418 后臺(tái)管理留言頁(yè)面 本科論文 28 確定刪除后 執(zhí)行 !include file=../ % aa=(aa) set rs=() sql=delete from liuyan where b_id=amp。 i amp。 i amp。nbsp else a href=39。 } /script 留言人 :% =rs(b_name) % 留言時(shí)間 :% =rs(b_time)% 本科論文 27 留言標(biāo)題 : % =rs(b_title) % 留言內(nèi)容 :% =rs(b_neirong) % input name=a2 type=button id=%=rs(b_id)% value=刪除 onClick=javascript:ss() / % loop % % for i=1 to if i=page_no then i amp。 VbCRlf /script amp。javascript39。aa 39。 /a amp。 39。?page_no=amp。 amp。 } 本科論文 24 /script form name=yyyyy input name=a2 type=button id=%=rs(id)% value= 刪除 onClick=javascript:ss() / /form script language=javascript function ee(f){ =?bb=+。) (sq) 39。a_typeamp。,39。a_imgamp。,39。a_hbamp。,39。a_nameamp。(..\fytk\) % ‘連接數(shù)據(jù)庫(kù)代碼 form id=form1 name=form1 method=post action= % a_name=request(a_name) a_hb=request(a_hb) 本科論文 22 a_img=request(a_img) a_type=request(a_type) sq=insert into wp(a_name,a_hb,a_img,a_type) values(39。 VbCRLF end if end if % 賬號(hào)： admin 以及 密碼 : admin 輸入正確進(jìn)入 本科論文 21 圖 413 后臺(tái)管理分類(lèi)頁(yè)面 商品發(fā)布頁(yè)面 ： 圖 414 商品發(fā)布頁(yè)面 % set conn=() DRIVER=Driver do Microsoft Access (*.mdb)。 amp。 amp。系統(tǒng)提示 \n用戶名或密碼錯(cuò)誤！ 39。 amp。 VbCRLF else script language=39。 amp。 amp。系統(tǒng)提示 \n