實(shí)訓(xùn)八 購(gòu)物車系統(tǒng)的功能實(shí)現(xiàn)

實(shí)訓(xùn)八購(gòu)物車系統(tǒng)的功能實(shí)現(xiàn)一、能力目標(biāo)終極目標(biāo)：能夠設(shè)計(jì)制作出公司網(wǎng)站的購(gòu)物車系統(tǒng)功能。促成目標(biāo)：能正確設(shè)計(jì)商品展示與管理程序。能正確設(shè)計(jì)購(gòu)物車購(gòu)物程序。能正確設(shè)計(jì)購(gòu)物車定單管理程序。二、工作任務(wù)本項(xiàng)目的任務(wù)是能夠在ASP環(huán)境下編程實(shí)現(xiàn)網(wǎng)站前臺(tái)的商品列表顯示、商品詳細(xì)信息顯示及對(duì)商品能夠?qū)崿F(xiàn)在線訂購(gòu)的功能；能夠?qū)崿F(xiàn)網(wǎng)站后臺(tái)對(duì)商品分類及商品內(nèi)容的增、刪、改的管理，能夠?qū)η芭_(tái)下的定單進(jìn)行查看、狀態(tài)修改及刪除的管理。一、實(shí)訓(xùn)任務(wù)設(shè)計(jì)前臺(tái)商品展示任務(wù)1：使用ASP程序循環(huán)顯示商品分類列表。任務(wù)2：根據(jù)商品分類列表完成商品展示列表。任務(wù)3：完成商品詳細(xì)信息顯示功能。后臺(tái)管理任務(wù)1：設(shè)計(jì)后臺(tái)管理商品分類添加、修改和刪除。任務(wù)2：設(shè)計(jì)后臺(tái)商品信息的添加和修改、刪除功能。設(shè)計(jì)商品購(gòu)物車程序：任務(wù)1：制作購(gòu)物車網(wǎng)頁(yè)。任務(wù)2：編程實(shí)現(xiàn)購(gòu)物車購(gòu)物功能。任務(wù)3：完成商品訂單的管理功能。二、實(shí)訓(xùn)步驟（一）前臺(tái)顯示新建二張網(wǎng)頁(yè)商品列表顯示頁(yè)面goodlist.asp,商品詳細(xì)內(nèi)容顯示頁(yè)面showgoods.asp。

商品名稱商品價(jià)格產(chǎn)品簡(jiǎn)介?HOMEPAGE?THENEWS?PRODUCTSHOW?THEBOOKS乏品有限公司身yI動(dòng)態(tài)新聞［商品展示THEIE.S1YCARTHOMEPAGETHEBOOKS~~陶源閣紫砂工藝品有限公司——PRODUCTSHO?友情鏈接THELENK購(gòu)物篌知MYCART分類■陶壺?陶藝制品?商品名稱商品價(jià)格產(chǎn)品簡(jiǎn)介?HOMEPAGE?THENEWS?PRODUCTSHOW?THEBOOKS乏品有限公司身yI動(dòng)態(tài)新聞［商品展示THEIE.S1YCARTHOMEPAGETHEBOOKS~~陶源閣紫砂工藝品有限公司——PRODUCTSHO?友情鏈接THELENK購(gòu)物篌知MYCART分類■陶壺?陶藝制品?陶藝制品+++■全部商品商品展示2009年新品上市一創(chuàng)意壺?陶碗++?陶制裝飾品段商品詳細(xì)說(shuō)明共1頁(yè)，第1頁(yè)第一頁(yè)上一頁(yè)下一頁(yè)最后頁(yè)本站資料歸陶源閣所有，未經(jīng)許可不卷使用2009年新品上市一陶藝品20。9年新品上市一裝怖瓶陶藝制品品名：2009年新品上市--裝飾瓶?jī)r(jià)格：20品名：2009年新品上市一雙人瓶?jī)r(jià)格：302明9年新品上市一紫砂壺陶碗++239年新品上市一創(chuàng)意花碗陶制裝飾品2009年新品上市--雙人瓶20。9年新品上市一紫砂壺柄壺，顏色紅色，紫砂泥燒成?任務(wù)1操作方法：商品展示列表的效果圖如圖所示:1）用dreamweaver,創(chuàng)建goodlist.asp，因?yàn)橐褂肁SP代碼循環(huán)輸出商品列表，左邊用來(lái)顯示商品分類列表，頁(yè)面如圖如所。分類商品展小全部商品ti'i?格本站資料婦陶裾閣所有，未經(jīng)許可不傅使用L?Sh鑫"面2）打開網(wǎng)頁(yè)的代碼視圖，在網(wǎng)頁(yè)頭部輸入下列代碼，如圖所示3）將網(wǎng)頁(yè)切換到“拆分”視圖，找到商品分類單元格，輸入下列代碼，代碼分析如圖所示:2代碼9091929394959697989910LI囹拆分J］設(shè)計(jì)所標(biāo)題：商品列表I袒俱吮弘L國(guó)&</tr><tr><td?混H<%</table></td><td>_<lingsrc="image&上分-R鬲符.gif"width=，v1，vheight="41"'alt='v'v/></1d>rowsp:di'i="2"backgruWLd="images/fei'Lye_01_04.jpg"> :</td>w~iH十h=“117"卜iF：~i[卜i十二'夕PQ"r「I:二"2"H：a門k乎r「ninH='―?分巴只只/下白「工白_fl1_flR■j匚巴">sql="select:*:fioitltbl_gLiudsclass"rst.upensql^comij1=1whi1enotrst.eof簽3?E：ahr二〈盟二:cmt卜Er_icT)質(zhì)>")％A：：：F：;3]<bir)<br>-<Krst.JTLLiVAnAv+wendrst.closeKX/td>\<td>.\(lingsrc=^i分類鏈接到本頁(yè)，C參數(shù)存儲(chǔ)分類ID值。eR鬲符.gif"width=，v1，vheight=31"'alt='v'v/></1d>任務(wù)2操作方法：1）在對(duì)應(yīng)位置繼續(xù)完成商品展示循環(huán)輸出的代碼，代碼分析如圖所示:|里代碼囹拆分國(guó)設(shè)計(jì)1密標(biāo)題：商品列表1袒氏吮UA111112113114115116117118119120121122123124125126127128129130<+r><tdwidth=，v606，vheight=，v198，vvalign=，vtop，vbackgrum-id=，vimages/fenye_01_06.jpg，v><tab1ewidth=，v60U，vburder="0，Tali，TcerrtercelIpadding="O"'cellspacings"0">|mql=m已1已~t口口"&(pag：￡*口:丑ge1i1-lujtl)&''*fr~tb1g：□□da二la呂m」tb1g：□□dmwh已reg：dg：c:ld=g：c、dJ'lifcint(sessionshuw_gcid").)<>0then'只顯示選中的商品夾別sql=sql'^''：di'idgc_id="i-isessiun("shuw_gcid"jsqlfj^sqlfy^i":ifidgc_id="iisession("shnw_gcid")endif查詢商品列表sql=sql-^"口rdEitrrst.upensqljccjnrq1』1j.iJ.asn"根據(jù)分類降序排列信息的SQLrst.pagesize=pagelistnumrst.absulutepage=page分頁(yè)語(yǔ)句，使用聯(lián)dowl'iilenotrst.eufcol=1!^><tr>變量控制表格列數(shù)接查詢。sqlt^selectcQurLtL：*：Jasnujiitroitltb1_?uodsc1ass,+b1_?uudswheretrds_?cid=trc_id'翻頁(yè)函數(shù)所需即L語(yǔ)句一一一一dowhi1enotrst.eofand-m'第:jy顯示四列商舲<+dwidth=，v15U，valign=''left，vval1gn=，vtop，v><+ab1ewidth=，v9U!A：；,Vburder=，v0，valign=，vcenter，vcelIpaddins=5"cellspac"0">136137留拆分KJ代碼固設(shè)計(jì)窗標(biāo)題：商品列表澆俱師缺C目▼&外層循環(huán)控制行＜tr＞dowhilenotrst.eufcol=l!A：；>-<：tr>內(nèi)層循環(huán)控制列＜td＞及商品信息-</table>'補(bǔ)齊剩條列fori=colto4respunse.write"<+dwidth=15U></td>，Yn已rst.irLuveneKtdowhilenotrst.eufandco104!*:；><tdwidth=150"ali"left"vali“top"><tab1ewidth=9U!A5"'border="0"'align=centercellpadding=5"cellspacin￡=，vO，v><tr><±dali"center"><ahref="showgoods.asp?id=<!^=rst("gds_id")%>，T><imgsrc="<.%response.writs"upfi1e/"&rst("gds_iiTLg")將)"alt=""nair舊二index_U1_70"width二95"height二95，vburder二■v0，vid=，vindex_U1_7U，V/d></+r><tr><tdali'center,v>品名:<!*：；=rstC'gds_n：ajTLe,Y)%><br/>格s<!K=rst("gds_price,Y)監(jiān)〉<br/><ahref=mycart.asp?act=add&id=<%=rst("gds_id，Y)%>，Y+arge+=，v_bl：ai-ik，v><imgsrc=images/gwc.gifwidth=99"height=21"border="O"'/></a></td></+r>-</table></td>col=col+l</tr><%looprst.close%>124125126127128129130131132133139140141142143144145146147148149150151152153代碼講解:cellpadding=〃5〃cellspacing=〃0〃><tablewidth=〃90%〃border=〃0〃align=〃center〃<tr><tdalign=〃center〃><ahref='Showgoods.asp?id=<%=rst("gds_id")%>〃><imgsrc=〃<%response.write〃upfile/〃&rst(〃gds_img〃)％>〃alt=〃〃name=〃index_01_70〃width=〃95〃height=〃95〃border=〃0〃id=〃index_01_70〃/></a></td></tr>cellpadding=〃5〃cellspacing=〃0〃>單元格中顯示商品的圖片并可點(diǎn)擊圖片超鏈接到指定商品詳細(xì)內(nèi)容showgoods.asp頁(yè)面<tr><tdalign=〃center〃>品名：<%=rst(〃gds_name〃)％><br/>價(jià)格：<%=rst(〃gds_price〃)％><br/><ahref=〃mycart.asp?act=add&id=<%=rst("gds_id")%>"target=〃_blank〃><imgsrc=〃images/gwc.gif〃width=〃99〃height=〃27〃pborder=〃0〃/></a></td>單元格中顯示商品的品名、價(jià)格及放入購(gòu)物車的圖片按鈕</table>任務(wù)3操作方法：商品詳細(xì)信息顯示頁(yè)面效果圖如圖所示:1）打開showgoods.asp網(wǎng)頁(yè)的代碼視圖，我們?cè)诰W(wǎng)頁(yè)的最上部添加代碼如下的代碼如圖所示，孔由代碼囹拆分詢?cè)O(shè)計(jì)標(biāo)題：商品展示1梆時(shí)吮弘++++1234578910111213<%@LANGUAGE="VBSCRIPT"CODEPAGE=%36“舲<!一一#includef116="config/db.asp"一一><!一一#includef116="config/function.inc.asp"一一><%onerrorresumenestdimsetsetinn.me.rstjsqljsqlljmyErrorSjvidrst=server.CreateObject("adodb.recordset")rstl=server.CreateObjectadodb.recordset")%〉<htmlsmlns=^/1SSS/Khtml17><head><title>商品展示</title>創(chuàng)建recordset對(duì)象2）接下來(lái)完成左側(cè)商品分類及所屬分類的商品列表代碼及代碼分析，如圖所示:“I代碼w拆分』設(shè)計(jì)3標(biāo)題：商品展示4-a717273747576777879808182</table>(tablewidth=，v792"'bijrder=，Y0，YaligrL=，vcenter"'cellpadding="'0，YcellspacirLg=，T0"'id="__01，T><tr><td><imgid=^fenye_U1_U1src="images/fenye_U1_U1.jpgwidth=*8"height="41"alt=ww/></+d>dwidth=*177"r□口an二"3"ua1:l巴h二*tup*bi二□1□r二"#FFFFFf"><%sql="select:*:frumtbl_guudsclassorderbygc_idasc"rst.opensql^.corLf^1」1dowhilenotrst.euf%>查詢商品分類數(shù)據(jù)表記錄集并循環(huán)輸出分類名稱8384858687888990919293■(tablewidth=，T100K"'height=，T35"'bijrder="0"cellpadding=，v0"'images/ferye_01_02.jpg，T><tr><1:dwidth二“3DW"heig：ht="3D"sp：</1d>cells顯示商品分類名稱<tdwidth=，T8UK"'Xspmc1ass='TSTYLEl'v><%=rst(，Ygcn：±iTLe，v)%></sp：di-L></+d>查詢各種商品分類包949596979899100101102103104105106sqll="select:*:fruiritb1_guudswheregds_gcid=''&rst"gc_id"rst1.opensqll^conrijL1dowhilenotrst1.euf%><±ab1ewidth=，v95^，vborders"0"'allgn=center“cellpadding=0"'cellspacings，v0，vbackgruwid^images/fenye_01_02+.jpg，T><tr>dheig：ht二"3口”：aligjL="c已nt已r').\含的商品信息記錄集</tr>/十云卜」H*<%rst1.iriuveneKtlooprst1.close循環(huán)輸出各種商品名稱，通過(guò)商品分類ID參數(shù)超鏈接到showgoods.asp文rst.iTLuveneHtloop比七cd口非設(shè)置內(nèi)外循環(huán)，記錄集下J移，循環(huán)結(jié)束記錄集關(guān)閉-，件顯示對(duì)應(yīng)商品的詳細(xì)信息3）接下來(lái)完成根據(jù)商品分類ID號(hào)顯示商品詳細(xì)信息代碼，如圖所示:D1071US109**11U111T1121131141151161胞,1117<>118119120121122123?124125126■+S1274-S128<tdwidth=6U6，vruwspan二，v2，vvallgn=，vtop'vbackgrnund二，vimages/fenye_01_03.jpg，v><tab1ewid+h=，v6U6，vhe1ght=65border=，，'0，vcelIpaddmg=，，'0，vcellspacmg=，，'0，v>-<tr>--<+dWldth=，v72，v>ftnbsp:</td><%setrst=server.CreateObject("adudb.recordset")ifrequest.QueryS±ring(，Yid")='''Ythen|sql="select:*:fruttltb1_guuds,+b1_guudsc1asswhererst.upensql^cornij1」1elsesql="select:書fruttltb1_guuds,+b1_guudsc1asswhereQueryStrmg(，Yid")rst.upensqljcornij1,1endififrst.euf:ifidrst.bufthenrespunse.write"錯(cuò)誤的參數(shù)！"response,endelse舲<tdwidth=，v534，v><spstlclass=，vSTYLEl，v><%=rst("gc_n^ie，Y)盟〉</spd><!^endif舲</tr></table></td>gds_gcid=gc_idorderbygds_gciddesc"gds_gcid=gc_idwdgds_id="?-irequest.根據(jù)分類ID號(hào)查詢對(duì)應(yīng)商品信息（連接查詢）?！?29130++131<>132133134T135136%137&}1381391401W'l141■ii.142143144145146147f=148±s149150151152153154155156157158159160161162<td>_<imgsr□="'image巳七分邛鬲符.gif，vwidth='v1'vheight=，v41"alt=，v，v/></+d></tr><tr><+dro^/span二2backgruui-Ld="inages/fenye_LH_U4.jpg>Anbsp:</1d>■(+dheight=，v31"><lJTigsrc=，viiTL：dge或,分-隔符.gif，vwidth=，v1，vheight二,v3l，valt二,v,v/></+d></tr><tr>■(+dwidth=，T606"height=198"'val1gn=top，Tbackgruwid=，Timages/fenye_01_06.jpg"><br/><tab1ewidth=，v95%"height=，v200，vborder=，v0'valign=，vcerrter，vcellpaddmg=，v0，vcAllspacing=，v0，v><tr>--一一■(+dwidth="20U，vheight=，v2LIU，Vbackgruui-Ld=，vimages/fenye_U2_06.jpg，v>■(+ab1ewidth=190，vheight="19U''burder=U'valign=，TcentercelIpadding="u"'cellspacing="u"'><tr/<+<"ahr-f二'uj遷i1逐《％二￡呂tU-mg:")簽：田)<.img：s□二二“uj遷i11<鑒二irgj~_n：ime=ii-ideKU17U"width=190height=190border=0id=irLdeKUl70顯示商品圖片信息</tr></table></td><±dvalign=，vtop'v><tab1ewidth=，v95%，vhe1ght="2ULrvborder=，vU，valign=，vcenter，vcelIp3ddmg=，vLi，vcellspanirLg=，T0"><tr><td商品名稱：</td>width=，T31%"he1ght="'40"Xlingsrc=<td</tr><tr><td<td</tr><tr><td<td</tr><tr><td<+dsrc="images/gwc.gif"width=，T69^"'height二,v40"'><%=rst(''gdsn：ajTLe")%'>顯示商品名稱height=，v4Li，v><lingsrc=，viinagemFdi3Tl_口3.gif"width=，v34"Yieight=，v5"F).商品格:</1d>heigl'it=,v40"'>::：盟二rst(''gdsprice'')!K></1d>height=，v40"'><imgsrc="fimages/dian_02.gif"width=34"height=5*/》產(chǎn)品簡(jiǎn)介:</td>he1ght二*4rrv>二rst(，vgdsj丁")%></±d>height="'40"'></+d>he1ght=，v4Li，v)<：ahn巳專二“THjT：丑「t.正?號(hào)口七二血土」&id二盟二f日。(i才；i黑)“tairgit二"_blank"，<:Lmgwidth=，T99he1ght=^27^burder=^O^/></a></+d></tr>163164++165<>166167168￥169170171172173rsri174175176177178179180181182183184■+S185±s186187188189190191192193194195196197198199</table></td></tr></table><br/>?<tab1ewidth=90%"'burder=，v0，vcellpadding="0"'cellspacing="0"'><tr><+dXiingsrc=，vimages/f02_07.jpg，vwidth=，v563，vheight='v38，v/></td></tr></table><br/>(tablewidth=，T90%"'bLirder=，T0，TaligrL='vcenter"'cellpadding=，163164++165<>166167168￥169170171172173rsri174175176177178179180181182183184■+S185±s186187188189190191192193194195196197198199<td>_<iiTigsrc=images/-：：^-Pm.gif，vwidth='vl，vheight=，v198，valt='v，v/></+d></tr><tr><tdCLilsp：iTL=^3^><iJTigid=，Tfenye_U1_U7src=，Timages/fenye_Ul_07.jpg，Twidth='v7yl'Theight=，Y5"'alt=，T，T/></td><td>_<lingsrc=images/-：：^-Pm.gif"width='''1'''height=，v5“alt=，v，v/></+d><7tr></table>(tablewidth=，vT9rvbijrder=，v0"'align=，vcenter"'cellpaddirLg=，v0"'cellspacing=，v0"'><tr><tdv/idth="T91'height=A'92，Vbackgroui-id='vimages/fdcn.m.jpg“>Anbsp:■</+d></tr>一--</table><!一一EndImageReadySlices一一><%rst.clusesetrst=rLOtl'iirigcorcn.clusesetcorLrL=rLOtl'iing%></body>試。設(shè)計(jì)思想:至此，商品展示詳細(xì)信息頁(yè)面的功能已經(jīng)完成，按F12瀏覽網(wǎng)頁(yè)并進(jìn)行商品展示的測(cè)

用戶可通過(guò)goodlist.asp文件點(diǎn)擊左側(cè)分類列表瀏覽各類商品，列表顯示在右側(cè)頁(yè)面，商品列表中只顯示商品的圖片、“品名”和“價(jià)格”及“放入購(gòu)物車”的圖片按鈕，可通過(guò)點(diǎn)擊商品圖片超鏈接到showgoods.asp文件瀏覽對(duì)應(yīng)商品的所有商品信息內(nèi)容。試。設(shè)計(jì)思想:（二）后臺(tái)管理商品分類網(wǎng)頁(yè)及編程任務(wù)1操作方法：1）制作如圖所示顯示“商品分類列表”的表格網(wǎng)頁(yè)，可以顯示已添加的商品分類名，并制作一表單用來(lái)添加或修改分類名稱，網(wǎng)頁(yè)文件取名為admin_goods_class.asp。顯示用戶界面2）切換到代碼視圖，在商品分類列表相應(yīng)位置輸入如下代碼。<pClass=，vSTYLE1*)?商品分類列表:</p><tab1ewidth="100!^"burder=w1"cellspacings，v0，v><tr><tdvjidth=，V12!*：；，vc1ass=，vSTYLEl，v>ID</+d><tdwidth=6class=wSTYLE1，v>商品分類■￡</+d><tdwidth="25%"class="STYLEK)?操作</td></tr><!A：；sql="selecttop"&(page+pagelistiium)&":*:fruitltbl_goodsclass"sqlfselectcouiit(：*：)asnunLfrottlttil_gi：iudsclass'''Sfi頁(yè)函數(shù)E斤需SQLi吾"r\sql^sqlft"orderbygc_iddesc"rst.upensql^corLfij1』1rst.pagesize=pagelistnumrst.absolutepage=pagedowhilenotrst.euf%><tr><tdclass=STYLE1"'X黑二rst("g匚_id")%)</1d><tdclass=STYLE1"'X黑二rst("§匚_iiajiL巳M)%1.；：：/+d><tdclass=STYLE1"')<.ahrmi'二":丑djTLin_g：ij3：lm_c：l：丑ms.口difv&id=<出二rst(“寫匚_1—“):｝修改hr-f'二，Taiimiivgoods_class,asp?~5占一_一Rst對(duì)象指針下移讀取下條記錄<!A：；rst.iriuverLext_一Rst對(duì)象指針下移讀取下條記錄■-關(guān)閉、清空記錄集■-關(guān)閉、清空記錄集；</p></table><pclass="STYLEK>4nbsp■(tablewidth=，T100K"'bLirdAr=,Y0，TcAllspacirLg=，YO"><tr><tdc1ass=，TSTYLE1，T><!A：；fysqlfy^,page^pagelistnujTLj，vaiirTiin_guuds_class,asp'?，v%></+d></tr></table)-3）接下來(lái)完成商品分類“添加”和“修改”的表單的功能代碼，如下:在<body>標(biāo)簽后面輸入表單處理代碼，如圖所示，主要實(shí)現(xiàn)的是商品分類的添加、修改和刪除功能。<%selectcaserequest.querystring("act")case"add"廠添加分類ifrequest.furm("f_n：ajTLe"j<>''''11'iensql="insertintutbl_gi：iudsclass(gc_n：dJTLe)values('"&request.furm("f_n：dJTLe")&''')"corLTi.executesqlsetmyerrors^corLTL.errorsifmyerrors.cuui'l+=UthenmsgboxUw添加成功!，Yelsems吐1匚就IF添加關(guān)購(gòu)！.原因:，YftiTLyErrors.item(U).desnript1unendif|=!]_2ftitlsgbozU，v沒(méi)有輸-K分類名，Yendifcase"update"，,更新分-類ifrequest.QuervStrin?("id")=''''orrequest.furin("f_n:ajrie"j=''''thennisgboKU■-錯(cuò)誤的參數(shù)，或未輸入并類名’elsesql="update+bl_guudsc1asssetgc_n：dJTLe='"&request.fulitl("f_n：ajTLe")&"'wheregc_id="&request.querystring("id")coim.esecutesqlendifsetirLyerrors^coim.errorsifmyerrors,cuui'it=UthenmsgboxU"修改成功！“elsemsgboKU"?改失叫貸!.，原因:"ftinyErrors.item(U).descriptionendifcase■vdeliv?刪除分類ifrequest.QuervStrm?("id")=''''thennisgboKU■-錯(cuò)誤的參數(shù)，或未輸入并類名’elsesql="delete:*:froiTL+b1_guodsc1asswheregc_id="&request.querystring("id")coim.esecutesqlendifsetirLyerrors^coim.errorsifmyerrors,cuui'it=UthenmsgboxU"刪除成功！“elsemsgboKU"珊]除失RS!.，原因："ftinyErrors.item(U).descriptionendifendselect!A：；>添加代碼后的設(shè)計(jì)視圖

（三）后臺(tái)商品管理程序admin_goods.asp任務(wù)2操作方法：商品管理功能描述：圖為商品顯示列表，可進(jìn)行修改和刪除，如果添加商品需要選擇商品分類下拉框，然后顯示添加商品表單，如圖所示，如果要修改商品信息，點(diǎn)擊刪除鏈接將顯示修改商品表單，如圖所示地址廷）?篁jhttp:/'.i'11uc：dlhost/1dasp1.i-1aiiniirL_guods.asp?c=0ve轉(zhuǎn)到鏈接》商品分類：所有商品V添加商品分類in商品名價(jià)格分類操作13紫砂壺80陶壺修改冊(cè)臃5陶藝品34陶碗++修改刪除4創(chuàng)意花瓶50陶碗++修改冊(cè)臃3創(chuàng)意壺24陶壺修改冊(cè)臃共￡頁(yè)，第1頁(yè)第一頁(yè)上一頁(yè)下一頁(yè)最后頁(yè)

提示：添加和刪除表單與“任務(wù)一”的表單功能基本相似，即做添加用，又做修改用。1）如圖6.15所示為輸入代碼后的網(wǎng)頁(yè)結(jié)構(gòu)視圖，請(qǐng)制作一張網(wǎng)頁(yè)，表格顯示商品名、價(jià)格、分類，有“修改”和“刪除”操作，并帶有超鏈接，超鏈接到本網(wǎng)頁(yè)文件，網(wǎng)頁(yè)文件取名為admin_goods.asp。嘩嘩理修改用戶表單網(wǎng)頁(yè)2）切換到代碼視圖，在＜body＞標(biāo)簽后輸入如下代碼，如圖所示:

134135136137138139140141142143144145146147148149150394041134135136137138139140141142143144145146147148149150394041424344454647484950515253545556<%口11巳rtiDtI：巳WUJTL巳n巳Ktsetfs=server.createobject("scripting■FileSystemObject")setrst=server.GreateObjectCadodb.recordset")setrstl=server.GreateObject("adodb.recordset")pageli3tnujTL=4ifrequest.QueryS±ring("page")-''''thenpage=lelsepage=request.QuerjzString("page")endifsion變量初始化..I用session變量來(lái)記錄管員要詵擇操作的分類，5巳mmi口11('：丑djnirLgciH"j二tlien日巳mmidii(*：丑djnirLgci：】二'[I"request.querystringthenmemmicin("adjnirL_g：uid")=rEquEmt.qiinrymtring("a")request.querystring(*act*')="add"orrequest,querystring("act"update"then~%>■<!一-^includefile^cciiTEigFfcirmdata.inc.邳口"-一》<%~endif由于有圖片上傳，所以要引用此文件在“商品分類”旁的下拉選擇框代碼，如圖所示，管理員選中下拉框中的分類要自動(dòng)保持被選中狀態(tài)。I<pclass='vabc，T>商品肖美：<selectnaiiL巳二"select"onCh：ifLg巳二r，javascript:location=7ailrTLin_goods.asp?c二7+this,value:"<optionvalue="0"selectsd)所有商品</option><：!A：；sql="select*from+bl_guudsclass"rst.opensqljcorcfij1』1duwhilenotrst.eof%><optionvaluer“<S5=rst("gc_id")%>"ifcirrt(m巳amiiin("mdjnig_g匚icl"))二:r；st)Mgc_id")111巳iireaponse,write("se1ected")口傾1笠尸Et『gjHam—)'記錄下當(dāng)前分類名以便在新增商品時(shí)顯示end<.%-rst("gc_n：djrie'')%>/optiun><：%rst.moveneHtlooprst?cluse舲?</select>由session變量來(lái)控制下拉框選中狀態(tài)4）在商品列表中位置中輸入如下代碼，如圖如示，顯示管理員選中的商品分類中的商品信息，并可進(jìn)行修改和刪除操作。

由session變量來(lái)控制下拉框選中狀態(tài)□rderdeme"allgn=，vcenter，vclass=，vabc，v>ID</td>al1'Ycenter，Tc1ass="abc"「商品-S</+d>allgn=，vcenter，vclass=，vabc，v>-f：i'i■■-格</td>all'Ycenter，Tclass="abc">-：：9-類</td><ahref=AaiirTiin_goods_class.日買"*添力口商品分類</a></p><tab1ewidtPl=，v100%，vburder=，v1"cellspacmg=，v0，v></tr>〈/table〉rst.□rderdeme"allgn=，vcenter，vclass=，vabc，v>ID</td>al1'Ycenter，Tc1ass="abc"「商品-S</+d>allgn=，vcenter，vclass=，vabc，v>-f：i'i■■-格</td>all'Ycenter，Tclass="abc">-：：9-類</td><ahref=AaiirTiin_goods_class.日買"*添力口商品分類</a></p><tab1ewidtPl=，v100%，vburder=，v1"cellspacmg=，v0，v></tr>〈/table〉rst.upensql^coimj1=1rst.pagesize=pagelisttlujtl.absulutepage=pagerst.eufsql="selecttup&(.page+pagelistitlur.)也"*frumtbl_goodsclassjtbl_guudswheregds_gcid=gc_id"1fy=''m巳1巳ctc□urd:(：*：)a5hujtlfr□mtb1_g：□匚1dsc1：a33』tb1_g：□□d5wheregds_gcid=gc_id''，番i頁(yè)函數(shù)E斤需SRL語(yǔ)句dowhilenotS：；Xtr>align="center，valign="center"align="'center，valign="center"alitrn="'center，v5）此表單的實(shí)現(xiàn)代碼如下:如果是修改，則顯示已有的信息229230231232233234235236237238239229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265<pclass=，vabc>品名:<inputt3Te："tezt，v(rst(，Ygdsn：ajTLe，Y))野》，Y/>najiL已二*f_najTL巳"valuerifrequest.querystring("act")="mudify"thenresponse,writeVP?<pclass="abc")?價(jià)'格:<inputtype="tezt"HajR已二"f_pricevaluer*<.%ifrequest.querystring("act")="mudify"thenrespunse.wi:it已(r''艾.口■ii二已“j)爆)'/>7C</p><pclass=，vabc)簡(jiǎn)")]':<inputH3JTL巳=，vf_jj，vtyp已二"tezt，vsize=，v6U，vvaluer"<：!*if■巳qu—mt■que：■3沱tring：1："Wc：t二"m口dif礦'th已hit巳m-舊巳.w111巳(rmt卜g:jj"))W〉"/></p><pclass="abc">說(shuō)明:<teztareaHam已二"f_info，vccils=^60"'rows=6<.%ifrequest.querystring(，Yact，Y)=，Ymudif3"thenrespunse.writ已(rst("gdminf口"))馳></testarea></p><pclass=，vabc>圖片:<inputty^e=file，vHain巳=，vf_img，v/<.%ifrequest.querj.^string(，Yact，Y)=，YjTLudify，Ythenifrst("gds_iiTLg"j<>，Y，Y+her^：；><imgsrc="<%=server.mappath("upflie")&"&rst("gdsiiTLg")%>"unload^"shov.r(this):">endif添加或修改圖片信息<pclass=，vabc，v><spanclass=，vSTYLEl，v>:虬新增時(shí)如果沒(méi)有可以.不上傳."修改時(shí)若不修改圖片可不上傳</sp:ai_L></p><P><spailclas"abc>finjjijd:typE：=“submit"klsjtlE!="Submit"LTmliiE：="<腮ifrequest.querystring("act")="iTLudifv"thenrespunse.write"1ft品"rst.cluseelseresponse.write，Y新增商品“巳lidILf拜/</spail)</p></±d></tr></+able><p>Anbsp:</p></foriri<.%endif!K>表單按鈕的變化5758596061626364656667686970715758596061626364656667686970717273747576777879selectcaserequest.querjzstring("act")case"add":添加iff0rmdata.item("f_najiL巳'')<>''''aridf0rmdata.item("f_price'')<>''''andisrimteric(f0rmdata.item("f_price''))thensql="tbl_goods"rst.open"+b1_g00ds"3edhil1』3rst.adii'iewrst("gds_gcid")=-￡0rmdata.item("f_gcid")rst("gds_n：iJTLe'')=f0rmdata.item("f_najn巳M)rst("gds_price、、)=-￡0rmdata.item("f_priceM)rst1：*gds_jj'Y)=f0rmdata.1+em(，Yf_jj，Y)rst("gds_inf0")=f0rmdata.item("f_inf0")rst("gds_iiTLg'')=-￡0rmdata.item("f_img，Y)rst.updaterst.closesetJT^errurs=curLri.errorsifir^errors.coui_l+=0thenmsgboKU"添加成功！“elsemsEbuzU"[忝tl口共1JH?!原因：M&m/Errurs.item(0).description'如果上傳了圖片則刪除iff0rmdata.item("f_iiTLg")<>''''thenfs.deletefileserver,mappath("upfile")&"\"iif0rmdata.item("f_img")endifendif

80818283848586878889908081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133ifrequest.querys±ringid".)=""orformdata.itemf_n：djne".)=""□rformdata-it已m("f_price'')=''''ornutisnuineric(furmdata.item("f_price''))thennsgboxU■-錯(cuò)誤的參數(shù)，或沒(méi)有輸人商品名或是商品價(jià)格，或價(jià)格不為數(shù)字’elsesql="select:*from+bl_goodswkieregds_id="&request■quering("id")rst.opensqljcuimj1』3rst("gds_n：iJTLe'')=furmdata.item("f_n：dJiLe")rst(，Ygds_price"j=furmdata.item(，Yf_price，Y)rst("gds_jj'')=formdata.item(uf_jj'')rst(，Y?ds_info，Y)=furmdata,item(，Yf_info，Y)'判斷圖芹是否需要更新ifformdata.item("f_iirtE'')<>''''then'如果原有圖片則刪除一ifrst("gds_img，Y)<>，Y，Ythenfs.deletefileserver.mappath(，Yupfile，Y)&，Y\，Y&rst(，vgds_iiTLg，v)rst("gds_iiTLg，Y)=furmdata.item(，Yf_iiTLg，Y)endifrst-updaterst-closesetJT^errLirs^corLTL.errorsifirn-^rrors,cuui_l+=UthenJTLSgbuKU"修改成功！"elsemsgbozU"fF^改失職攵!.，原因:"iiir^Errors.item(0).descriptionendifendifcase"del"/刪除ifrequest.querys±ring("id")=''''thenmsgbosU，Y錯(cuò)誤的參數(shù)’else-sql="selectcoui_l+(+)~~:丑日hujtlfr□mtbl_buv玉吐1巳r巳bu『_匡dmid=M&r巳qu」mt?qu巳1?ill/(“iTj=rst.opensql^curLTtj1』1ifrst("nujiL")>0thenmsgboxU“?此商品已經(jīng)有.人訂購(gòu)，您不能刪除此商品’elsesqll=Mselect:*:fllutl+bl_goodswheregds_id="&request.querjzstring("id")rst1.opensqll^curLfij1』1gds_iiTLg=rst1("gds_iiTLg'')sql=Mdeletefrom+bl_goodswheregds_id=M&request.querjzstring("id")corLfL.ezecutesql?ifrst("gds_iiTLg'')<>''''+henfs.deletefileserver.mappath("upfile")&"&gds_imgrst1.close'endifsetJT^errurs^curLTL.errorsifir^errors.coui_l+=0thenmsgboKU"刪除成功！“elsemsgbuzU"珊］除失皿火!.,原因：M&mvErrors.item(0).descriptionendifendifendifendselect（四）設(shè)計(jì)商品購(gòu)物車程序任務(wù)1操作方法：1）參見(jiàn)下圖使用表格及表單制作購(gòu)物車頁(yè)面，ASP代碼可暫時(shí)不輸入，購(gòu)物車頁(yè)面命名^“mycart.asp^o歐迎｛session.s_loginlD｝進(jìn)入到購(gòu)物車清卒購(gòu)物車?yán)^續(xù)購(gòu)物確認(rèn)購(gòu)買編號(hào)品名數(shù)量?jī)r(jià)格操作<%=val(l)%>|〈虹valI加1減1刪除總額：魂您買了如下商品：編號(hào)品名數(shù)重價(jià)格時(shí)間翊翊總額:理元返回首頁(yè)先設(shè)置好“清空購(gòu)物車”、“繼續(xù)購(gòu)物”、“確認(rèn)購(gòu)買”相應(yīng)的鏈接，添加鏈接代碼如下：<tdcolspan='Y5，valign=，vright"><ahref=，vmycart.asp?act=clear，v>f#^<ahref="javascript:window,close();"onClick="javascript:window,close():"</a><ahref="mycart.asp?act=buy">確認(rèn)購(gòu)買</a></td>“加1”、“減1”、“刪除”的鏈接代碼如下：<+dallgn='cent巳r"><ahref="irycart.asp?act二addune^id=<!A：；=val(0)%>">力口1</a><ahref=■vuncart.asp?act=jriinusune&id=<!?i：；=val(0)%>*成1</a><ahref="it^cart.asp?act=del^id=<K=val(0)%>*>珊］除</a></td>提示：購(gòu)物車工作原理，需要從session中讀取商品列表信息，讀取之后做購(gòu)物車內(nèi)的相關(guān)處理，比如增加商品減少商品刪除商品修改商品數(shù)量等，這些操作之后將更新后的商品信息再存入session中，session變量中的信息就被修改，以后又可以從session中讀取商品信息了。為了避免以后讀取的session值出錯(cuò)，要對(duì)session變量初始化。任務(wù)2操作方法：切換到代碼視圖，輸入代碼，“用戶沒(méi)有登錄則不能進(jìn)行購(gòu)物”，代碼如下所示：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"35><!一#includefile='vconfig/db.asp"一><!--#includef116="config/function,inc.asp"一-><%ifsessionCvs_loginID，T)=17"thenmsgboxU“您■沒(méi)有拿錄,不能性行購(gòu)物'W<scriptlarLguage=17javascript17>location=17index,asp";</script><35response.end()endifonerrorresumenestdimtmp⑶dimsqljrstjgoodscountjflagji,goodsjtidjcpricejvaljnovtimejmyErrorssetrst=server.createobject("adodb.recordset接下來(lái)輸入購(gòu)物車數(shù)據(jù)初始化代碼，如下所示：‘購(gòu)物車處理開始'如果沒(méi)有購(gòu)物車數(shù)據(jù)則初坤化.ifnotisobject(sessionCgoods"))thensetgoods=server.createobject("scripting,dictionary")setsession(，vgoods，v)=goodselsesetgoods=sessionfgoods")endif接下來(lái)完成購(gòu)物車各種處理的代碼輸入，第一個(gè)“添加購(gòu)買商品”操作代碼如下：'處理參數(shù)5■tid=request.querystring("id")selectcaserequest,querystring("act")case"Md":iftidO"thensq^^select*fromtbl_goodswheregds_id=，Y^tidrst.opensql,conn,131ifnotrst.eofthenifgoods,exists(tid)then'如果購(gòu)物車中已經(jīng)有此件商品，則商品個(gè)數(shù)加1tmp(0)=rst(，vgds_id，v)tmp(l)=rst("gds^ajne")tmp(2)=goods.item(tid)(2)+1tmp(3)=goods.item(tid)(3)goods,item(tid)=tmpg]_gg'如果購(gòu)物車中沒(méi)有此件商品，則寫入商品信息到購(gòu)物車tmp(0)=rst(，vgds_id，v)tmp(l)=rstCgdS-najne")tmp(2)=1tmp(3)=rst(，vgds_price，v)goods,addtid,tmpendifelsemsgboKU"參數(shù)錯(cuò)誤"endifrst.closeelsemsgbosU"參數(shù)錯(cuò)誤"endif再來(lái)輸入商品“加1”、“減1”操作的代碼如下：case"addcme":'iftidO17"thenifgoods,exists(tid)thentmp(0)=goods.item(tid)(0)tmp(1)=goods.item(tid)(1)tmp(2)=goods.item(tid)(2)+1tmp(3)=goods.item(tid)⑶goods,item(tid)=tmpelsemsgboKU"參數(shù)錯(cuò)誤"endifelsemsgbozU"參數(shù)錯(cuò)誤"endifcase17minusone":,iftidO""thenifgoods,exists(tid)thentmp(0)=goods.item(tid)(0)tmp(1)=goods.item(tid)(1)tmp(2)=goods.item(tid)(2)-1tmp(3)=goods.item(tid)(3)iftmp(2)<1thengoods,remove(tid)elsegoods,item(tid)=tmpendifelsemsgboKU"參數(shù)錯(cuò)誤"endifelsemsgbozU"參數(shù)錯(cuò)誤"endif輸入“刪除已購(gòu)商品”和“清空購(gòu)物車”處理代碼，如下:case"del":iftidC""thenifgoods,exists(tid)thenIgoods,remove(tid)elsemsgboKU"參數(shù)錯(cuò)誤"endifelsemsgboxU"參數(shù)錯(cuò)誤"endifcase"clear":清空購(gòu)物車goods,removeall輸入“確認(rèn)購(gòu)買”處理代碼，如下：case，Tbuj7，T:'將訂購(gòu)商品信息寫入數(shù)據(jù)庫(kù)noiirtime^now()corLfL.begintrartsforeachvalinguuds.itemssql="insertintotbl_buv(buv_uid,buv_?dsid,buv_nujTL,buv_time)value己i："&己巳己己iun1□巴inlD")&\^valUval⑵'Unowtimer?)，YcurcfL.executesqlnestsetJT^errurs^ccirLTi.errorsifir^errors.count=0thenmsgboxU'提交成珈“goods-removeallcorLfL.cQiruriittr：di_iselsemsgboxU，Y才是交失此丈!.，原因：rrors.itejTi(U).d巳wcript】oncorm.ro1lbacktrarwendifendselect，購(gòu)物車結(jié)束當(dāng)用戶登錄后就可以實(shí)現(xiàn)商品的購(gòu)買了，如果用戶已經(jīng)確認(rèn)購(gòu)物了，就要將購(gòu)物車已購(gòu)買的商品顯示出來(lái)，如果仍然繼續(xù)購(gòu)物的話后還要顯示出來(lái)添加購(gòu)買的商品以便進(jìn)行各種處理，代碼如下：<p>^k迎<%=session("s_loginlD")甄>進(jìn)入到購(gòu)物車</p><%ifrequest.QueryString(，Yact"j<>"buy"tlier^><tab1ewidth=100%，vburder=1wcellspacmg='v0，v><tr><tdculspan二，T5，Talign="right，v><ahref="fmycart.asp?act=clear"青空購(gòu)物車</a><ahref="javascript:window,close():"onClick=ffjavascript:window,close();"::繼續(xù)購(gòu)物</a><ahref=，vmvcart.asp?act=bu礦)?確認(rèn)購(gòu)買<\/a></td>|<tr><tdwidt11=,v9%,valign=,vcenter，v)編號(hào)</+d><tdwidth="31%"align="center">品名</1d><tdwidth="2U%'Talign="center，T)?數(shù)量</1d><tdwidth="2U%,Talign="center,T>ti|-格</1d><tdwidth二,v2U%'valigns,vcenter,v)?操</td></tr：><95cprice=Ui=lforeachvalingoods,items%><tr><tdalign="center"><%=i%></td><tdalign="center"><inputtyp巳="text"n：diTie="teKtfield"'value=*<!A：；=val(1)%：>"/></td><tdallgn=,vcenter'v><inputHam巳='vt_nijjTi'vtyp巳="tezt，vsize=flf7，vvalue=，Y<%=val(2)%>，Y/></+d><tdallgn="center"><%=val(2)*val(3)%></td><tdalign=^center><ahref=mycart.asp?act=addone&id=<%=val(0)S5>‘>加l</a><ahref=lTitq^cart.asp?act二minus：urie^id=<!A：；=val(0)%>")；威1</aXahref="irzcart-asp?act-del^id=<%=val(0)%>">珊］除</a><：/td></tr：><95cprice=cprice+val(2)：+：val(3)'吉充it.■百?.額i=i+lnezt%><tr><td>Anbsp:</+d><td>Anbsp:</+d><td>ftnbsp:</1d>Ctd)?總額:</td><td><%=cprice!*S>jf；</td></tr>(/table)-<95elsesetrstl=server.createubject("adudb.recordset'')sqll="selectgdS-gcidj,gds_price,buV-nuirij,buy_uid.gds_n：diTLe,buv_time,buv_sta,flagfruiiLtbl_goodsj,tbl_buywherebuy_gdsid=gds_id:iridbuy_uid="^session("s_loginlD")&"：mdbuy_tim巳二#"&nowtrst1.opensqll^cornij1」1'response,lATite(sqll)cprice=Ui=1S：；>您買了如下商品：<tablewidth=，T100%"border=，TKcellspacing=，T0，T><tr><td<td<td<td<tr><td<td<td<td<td</tr><：%dowhilenotrst1.euf<tr><td<td<td<td<td</tr>width二，v7%，vallgn=*cent巳r*)編號(hào)</td>Wld+h=，V30!S，VWldth=，V11S:；，VWldth=，V1I%'''width="26SS"align=center,v>品名</td>align=center">皺重</td>align=center，Y格</td>align="enter，T>時(shí)間</+d>align=,vcenter，v><%align=f，'center，T><%align="center，T><%align="center，T><%align="center，v><%rst1I；"gdE_H3JTLE!"jWXFtd)rst1("tiuy-nuiri")%></td>rst1("gds_price"j*rst1("buj.^nijJTi")%></td>rst1("buj7_time")%></1d><%cprice=cprice+rst1(，Ygds_price，T)*rst1Cvbuy_niini，T),統(tǒng)計(jì)總額i=i+lrst1.movenestloop%><tr><td>4nbsp:</td><td>ftnbsp:</td><td>ftnbsp:</td>Ct心總額：</td><td><^=cprice%>元</td></tr></table><p><ahref=，TindeK.asp"》返回首頁(yè)</a></p><%rst1.closeendif%>魏'寫入購(gòu)物車數(shù)據(jù)到sessionsetsessiongoods")=goodssetrst=nuthingcorLfi.closesetcLirLTL^nuthting%>8）按F12瀏覽測(cè)試，理解購(gòu)物車的功能。任務(wù)3操作方法：用戶購(gòu)物完成后，管理員可以在后臺(tái)查看和處理這些訂購(gòu)信息。1）制作如圖所示的訂單信息頁(yè)面，頁(yè)面文件命名為“admin_buy.asp”。后臺(tái)訂購(gòu)管理訂購(gòu)列表訂購(gòu)時(shí)間訂購(gòu)人總價(jià)電話操作詳細(xì)刪除每頁(yè)總額:竣竦忘額:辱球訂購(gòu)詳細(xì)1=1W口口-白數(shù)星總價(jià)總額：翊2）訂單列表里有訂購(gòu)時(shí)間、訂購(gòu)人、訂購(gòu)的總價(jià)及訂購(gòu)人的聯(lián)系電話，可以通過(guò)“詳細(xì)”操作點(diǎn)擊查看某個(gè)定單的具體訂購(gòu)內(nèi)容，也可以實(shí)現(xiàn)刪除。從數(shù)據(jù)庫(kù)里讀取訂購(gòu)信息的代碼如下：<%setrst=server.CreateObject("adodb.recordsetsql='Tselecttop"&一(page*pagelistnum)&“u_najneju_te13buy_time,buy_uid3buy_sta,flagjsum(buy_nuni*gds_price)asgoldfromtbl_goodsjtbl_buyjtbl_userwhereu_id=buy_uidandbuy_gdsid=gds_idgroupbybuy_time^buy_ui也u_rLajneju_teLbuy_stflagorderbybuy_timedesc"rst.opensqljconrij1,1ifrst.eofandrst.bofthenresponse,writef7還沒(méi)有人訂購(gòu)商品！elserst.pagesize=pagelistminirst.absolutepage=pagecprice=0dowhilenotrst.eof顯示訂購(gòu)表中的信息，詳細(xì)和刪除操作的代碼如下：<tr><+dalign=center'vclass=wabc，v><S5=rst("buy_time,v)%')■</+d><tdalign=center'vclass=wabc，v><%=rst1"u_:najn巳")%></td><tdalign="center，Tclass=''abclV><%=rst("goI