【正文】 artShow,endShow,nextShow if ((nPage5)=0) then startShow=1 else startShow=nPage5 end if if ((nPage+5)allpage) then endShow=allpage else endShow=nPage+5 end if dim k For k=startShow To endShow dim showone showone=a href=39。?property=amp。propertyamp。amp。MyValue=amp。MyValueamp。amp。Page=amp。kamp。39。amp。kamp。/a strSplitPage=strSplitPageamp。showone Next if (nPage1) then nextShow=a href=39。?property=amp。propertyamp。amp。MyValue=amp。MyValueamp。amp。Page=amp。(nPage1)amp。39。上一頁(yè) /a end if nextShow=nextShowamp。 if (nPageallpage) then nextShow=nextShowamp。a href=39。?property=amp。propertyamp。amp。MyValue=amp。MyValueamp。amp。Page=amp。(nPage+1)amp。39。下一頁(yè) /a end if % !include file=inc//td td width=10 /td td valign=top table border=0 cellspacing=0 cellpadding=0 width=99% tr bgcolor=ddFFFFtd colspan=3 height=10 %=strSplitPage% /tdtd align=right %=nextShow% /td/tr % dim n n=0 For i = startelment To endelment dim one one=GetProduct(aryReturn(i)) if one(FIELDAUTOID)0 Then if ((n mod 4)=0) then tr end if % td width=20% align=center !include file=inc/ /td % if ((n mod 4)=3) then /tr end if n=n+1 end if Next % 例程 38 為 顯示產(chǎn)品的代碼。 例程 38 顯示 產(chǎn)品的代碼 % dim n n=0 For i = startelment To endelment dim one one=GetProduct(aryReturn(i)) if one(FIELDAUTOID)0 Then if ((n mod 4)=0) then tr end if % td width=20% align=center !include file=inc/ /td % if ((n mod 4)=3) then /tr end if n=n+1 end if Next % 例程 39 為頁(yè)面 的參考代碼。 例程 39 頁(yè)面 的參考代碼 a href=?id=%=one(FIELDAUTOID)% target=_blank img alt=鮮花 border=0 height=80 src=%=one(FIELDNETIMAGEMID) % width=80 /a br %=one(FIELDNAME)%br 銷售價(jià)格： %=one(FIELDSALEPRICE)%元 br a href=javascript:add2cart(39。%=one(FIELDAUTOID)%39。)img src=images/ width=40 height=17 border=0/a 例程 39 中 one 是在例程 38 中調(diào)用 Getproduct()方法得到的一個(gè)產(chǎn)品對(duì)象（ one=Getproduct(aryreturn(i)),one(FIELDNAME)等是獲得產(chǎn)品的名稱等屬性。 產(chǎn)品詳細(xì)信息 用戶在產(chǎn)品瀏覽頁(yè)面中單擊某個(gè)產(chǎn)品，就會(huì)進(jìn)入產(chǎn)品的詳細(xì)信息頁(yè)面，產(chǎn)品詳細(xì)頁(yè)面主要包含兩部分內(nèi)容：一部分是產(chǎn)品信息顯示：另一部分是針對(duì)該產(chǎn)品的用戶評(píng)論。圖 320 為產(chǎn)品詳細(xì)信息頁(yè)面。 圖 320 產(chǎn)品信息頁(yè)面 產(chǎn)品信息頁(yè)面的實(shí)現(xiàn)文件問(wèn) ,例程 310 為 頁(yè)面的參考代碼。 例程 310 頁(yè)面的參考代碼 % dim productid productid=Request(id) if (productid=) then end if dim strUrlGo strUrlGo=?id=amp。productid % !include file=inc/ % dim MyListUse,MyListFlower,MyListObject,MyListPrice MyListUse=0 MyListFlower=0 MyListObject=0 MyListPrice=0 % !include file=inc//td td width=10 /td td valign=top !include file=inc/ br !include file=inc/ /td /tr /table !include file=inc/ /body /html 例程 310 中利用包含文件 !include file=來(lái)顯示單個(gè)產(chǎn)品的纖細(xì)信息；利用包含 !include file=來(lái)顯示針對(duì)該產(chǎn)品的所有評(píng)論信息。在頁(yè)面中 先調(diào)用 Getproduct 方法得到產(chǎn)品對(duì)象，如例程 311所示 / 例程 311 調(diào)用 Getproduct 方法得到產(chǎn)品對(duì)象 〈 % Dim one One=Getproduct (productid) If one(FIELDAYTOID)0 Then ”該商品不存在 !” Else % 在例程 311 得到產(chǎn)品對(duì)象后，然后調(diào)用類似 one(DIELDNAME)方法便可以得到產(chǎn)品名稱等屬性然后結(jié)合 HTML 控制便可以得到圖 310 所示的效果。 主頁(yè)面主要包含頭、尾文件。經(jīng)過(guò)處理得到產(chǎn)品 ID，如果沒(méi)有就跳轉(zhuǎn) 到系統(tǒng)首頁(yè)。 頁(yè)面主要顯示用戶針對(duì)該產(chǎn)品的所有評(píng)論，例程 312 為 頁(yè)面實(shí)現(xiàn)的參考代碼。 例程 312 頁(yè)面實(shí)現(xiàn)的參考代碼 % dim dbc,rs,query shopopendatabase dbc query = select TOP 10 * from ment where productid = amp。 productid amp。 order by lasttime desc set rs = (query) dim content,ptime,pren,preply dim n n=0 Do WHILE not and n10 content= rs(ment) ptime = rs(lasttime) pren = rs(nickname) preply = rs(reply) n=n+1 % table width=100% border=0 cellpadding=0 cellspacing=0 class=text6 tr td style=paddingleft:20px。paddingright:5px %=content% /td td width=60 %=ptime% /td td width=45 %=pren% /td /tr % if (preply) then % tr td style=paddingleft:20px。paddingright:5px font color=red答復(fù)： /font%=preply % /td td width=60 /td td width=45 /td /tr % end if % tr td colspan=3 background=39。images/39。 height=3/td /tr /table % Loop closerecordset rs shopclosedatabase dbc % 例程 312 中的 query = select TOP 10 * from ment where productid = amp。 productid amp。 order by lasttime desc語(yǔ)句，是從數(shù)據(jù)庫(kù) ment 表中得到相關(guān)產(chǎn)品的最后增加的前 10 條評(píng)論（按時(shí)間倒順序排列，然后取前 10 條）。 我的購(gòu)物車頁(yè)面設(shè)計(jì) 我的購(gòu)物車頁(yè)面主要暫存用戶選擇的預(yù)購(gòu)買的產(chǎn)品，圖 321 為購(gòu)物車頁(yè)面。 . 圖 321 購(gòu)物車頁(yè)面 購(gòu)物車頁(yè)面代碼如例程 313 所示。 例程 313 購(gòu)物車頁(yè)面代碼 % dim myaction dim cartstr,cartnumstr DimMyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmp cartstr = getCartFromCookie() cartnumstr=getCar