【正文】 n set rs = (query) ret= if not then ret=CStr(rs(result)) end if closerecordset rs shopclosedatabase dbc GetListFlowerFromDb=ret end function 39。讀出所有產(chǎn)品 query = select autoid from product order by priority else query = select autoid from product where Left(category,+Cstr(len(dir))+)=39。 end if set rs = (query) ret= Do WHILE not if (ret=) then ret=CStr(rs(autoid)) else ret=ret+,+CStr(rs(autoid)) end if Loop closerecordset rs shopclosedatabase dbc GetDirProductFromDb=ret end function 產(chǎn)品類定義 39。得到對(duì)應(yīng)的產(chǎn)品 function GetProduct(ID) dim ret if (ID =null or ID=) then ID=1 end if dim productname productname=P amp。對(duì)應(yīng)的產(chǎn)品 ,從數(shù)據(jù)庫讀出 dim FIELDAUTOID,FIELDNAME,FIELDSALEPRICE,FIELDDESC,FIELDMARKETPRICE dim FIELDVIPPRICE,FIELDNETIMAGESMALL,FIELDNETIMAGEMID,FIELDNETIMAGEBIG,FIELDCODE FIELDAUTOID=0 FIELDNAME=1 FIELDSALEPRICE=2 FIELDDESC=3 FIELDMARKETPRICE=4 FIELDVIPPRICE=5 FIELDNETIMAGESMALL=6 FIELDNETIMAGEMID=7 FIELDNETIMAGEBIG=8 FIELDCODE=9 function GetProductFromDB(ID) dim ret(10) Dim dbc,query,rs shopopendatabase dbc query = select * from product where autoid=amp。ret(FIELDCODE)=rs(code) else ret(FIELDAUTOID)=1 end if closerecordset rs shopclosedatabase dbc GetProductFromDB=ret end function % 頁面頭文件 為了實(shí)現(xiàn)代碼復(fù)用，把頭文件設(shè)計(jì)成公用模塊，單獨(dú)保存為一個(gè)文件，其他頁面應(yīng)用的時(shí)候只要包含這個(gè)頭文件就可以了。 就是一個(gè)簡單的包含表單的 HTML 頁面，并引入公用頭尾文件，不過 需要用到 javascipt 驗(yàn)證表單，防止用戶輸入空信息 。 if(==null|| ==) { alert(請(qǐng)輸入您的用戶名！ )。 if (flag==false) ()。 } function userloginkeydown() { if (==13) userloginsubmit()。實(shí)現(xiàn)這個(gè)功能是為了用戶界面友好，方便最終用戶的使用。,39。 請(qǐng)輸入 Emailbr end if if strPassword= then sError = sError amp。 getlang(langLoginLocateFail) SetSess Login, end if ShopCloseDatabase dbc set rs=nothing end sub Sub UpdateLoginData Dim dbc 39。 logincount= amp。 amp。 ,lastlogindate= amp。 determine where to go to Sub SetupReturnurl (url) if returnurl then if Serror= then url=returnurl exit sub else url= end if exit sub end if If Getsess(Followonurl)= and getsess(Currenturl)= then If Serror= then url=getconfig(xhome) else url= end if exit sub end if If Serror= then url=GetSess(FollowonURL) else url=getSess(CurrentURL) end if end sub % 首頁設(shè)計(jì) 一般的電子商務(wù)網(wǎng)站，首頁所含的信息量是非常大的，為了方便維護(hù)，對(duì)首頁進(jìn)行分塊處理，然后用包含的方式，把各個(gè)塊組裝起來，這樣不僅使頁面結(jié)構(gòu)清晰，而且維護(hù)方便。例程 36 為頁面 的開始部分代碼。 例程 37 產(chǎn)品分野顯示的代碼 % dim dir,strPage,nPage dir=Request(dir) strPage=Request(Page) if (strPage=) then nPage=1 else nPage=CInt(strPage) end if dim MyValue,property MyValue=Request(MyValue) property=Request(property) if (property=) then property=0 end if if (MyValue=) then MyValue=0 end if dim result result=GetListFlower(property,MyValue) dim aryReturn,i aryReturn = Split(result,) dim startelment,endelment startelment=(nPage1)*pagenum endelment=nPage*pagenum1 if (endelment UBound(aryReturn)) then endelment=UBound(aryReturn) end if dim strSplitPage,allpage allpage=CInt((UBound(aryReturn)LBound(aryReturn))/) +1 strSplitPage= bfont color=redamp。/font 頁/b dim startShow,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。MyValue=amp。kamp。/a strSplitPage=strSplitPageamp。amp。Page=amp。 if (nPageallpage) then nextShow=nextShowamp。amp。Page=amp。 例程 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 為頁面 的參考代碼。 產(chǎn)品詳細(xì)信息 用戶在產(chǎn)品瀏覽頁面中單擊某個(gè)產(chǎn)品，就會(huì)進(jìn)入產(chǎn)品的詳細(xì)信息頁面，產(chǎn)品詳細(xì)頁面主要包含兩部分內(nèi)容：一部分是產(chǎn)品信息顯示：另一部分是針對(duì)該產(chǎn)品的用戶評(píng)論。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=來顯示單個(gè)產(chǎn)品的纖細(xì)信息；利用包含 !include file=來顯示針對(duì)該產(chǎn)品的所有評(píng)論信息。 頁面主要顯示用戶針對(duì)該產(chǎn)品的所有評(píng)論，例程 312 為 頁面實(shí)現(xiàn)的參考代碼。paddingright:5px %=content% /td td width=60 %=ptime% /td td width=45 %=pren% /td /tr % if (preply) then % tr td style=paddingleft:20px。 productid amp。 例程 313 購物車頁面代碼 % dim myaction dim cartstr,cartnumstr DimMyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmp cartstr = getCartFromCookie() cartnumstr=getCart