【正文】 面，陳列要購買的產(chǎn)品明細項。 圖 35 選擇實際目錄 在圖 35 所示對話框中，單擊【瀏覽】按鈕為該虛擬目錄選擇一個實際目錄（例如）“ c:\\”），然后單擊【下一步】按鈕，最后單擊【完成】按鈕，這樣名為“ Ivzhii”的虛擬目錄就創(chuàng)建好了。 系統(tǒng)需求積累用戶資源，用用戶表來記錄用戶的信息，具體包括用戶的真名、地址、電話、郵編、身份證號、 Email 和密碼等基 本信息。 ? 訂單明細表，包括數(shù)據(jù)項、訂單明細編號、產(chǎn)品 ID、訂單 ID 等。 本實例設(shè)計規(guī)劃出的實體包括網(wǎng)站用戶實體、采購訂單明細實體、產(chǎn)品實體、用戶評論實體、目錄信息實體、目錄屬性實體、導(dǎo)航屬性實體、查導(dǎo)航屬性對應(yīng)關(guān)系實體。 訂單明細 產(chǎn)品 訂單 ID 產(chǎn)品 ID 產(chǎn)品數(shù)量 產(chǎn)品價格 產(chǎn)品 ID 產(chǎn)品目錄 ID 產(chǎn)品名稱 產(chǎn)品價格 產(chǎn)品論評 目錄信息 評論 ID 評論內(nèi)容 用戶 ID 產(chǎn)品 ID 目錄代號 備注 目錄名稱 圖 313 目錄屬性實體 ER 圖 圖 314 導(dǎo)航屬性字典實體 ER 圖 圖 315 為產(chǎn)品導(dǎo)航屬性對應(yīng)關(guān)系 ER 圖 圖 315 產(chǎn)品導(dǎo)航屬性對應(yīng)關(guān)系 ER 圖 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計 數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計完畢后，現(xiàn)在可以將上面的數(shù)據(jù)庫概念結(jié)構(gòu)轉(zhuǎn)化為某種數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結(jié)構(gòu)。 表 33 directory 目錄信息表 字段名稱 數(shù)據(jù)類型 說明 code 文本類型 目錄代碼，惟一標識一個目錄 name 文本類型 目錄名稱 memo 文本類型 備注 表 33 中目錄用字符串分級表示，產(chǎn)品的種類對應(yīng)目錄代碼。 表 37 為導(dǎo)航屬性字典表，記錄花店目錄的屬性值。例程 31 為 頁面的參考代碼。 get ComeFrom Cookie function getComeFromCookie() dim ret ret=(efrom) if (efrom=null) then ret= end if getComeFromCookie=ret end function const myCookieKey=lvzhi const myUseCookies=no Sub SetSess (field, value) If myUseCookiesYes then Session(field)=value else (myCookiekey) (field)=value end if end sub Sub ProcessAccessOpen(connection) dim strconn strconn = provider=。 GetSess(dbc) else SetSess Openerror, end if End Sub 39。 F amp。List property 對應(yīng)的產(chǎn)品列表 從數(shù)據(jù)庫 function GetListFlowerFromDb(property,value) Dim ret,dbc,query,rs,mycondition shopopendatabase dbc query = select result from navigateresult mycondition=where sort=0 and property=amp。讀出所有產(chǎn)品 query = select autoid from product order by priority else query = select autoid from product where Left(category,+Cstr(len(dir))+)=39。得到對應(yīng)的產(chǎn)品 function GetProduct(ID) dim ret if (ID =null or ID=) then ID=1 end if dim productname productname=P amp。ret(FIELDCODE)=rs(code) else ret(FIELDAUTOID)=1 end if closerecordset rs shopclosedatabase dbc GetProductFromDB=ret end function % 頁面頭文件 為了實現(xiàn)代碼復(fù)用，把頭文件設(shè)計成公用模塊，單獨保存為一個文件，其他頁面應(yīng)用的時候只要包含這個頭文件就可以了。 if(==null|| ==) { alert(請輸入您的用戶名！ )。 } function userloginkeydown() { if (==13) userloginsubmit()。,39。 getlang(langLoginLocateFail) SetSess Login, end if ShopCloseDatabase dbc set rs=nothing end sub Sub UpdateLoginData Dim dbc 39。 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è)計 一般的電子商務(wù)網(wǎng)站，首頁所含的信息量是非常大的，為了方便維護，對首頁進行分塊處理，然后用包含的方式，把各個塊組裝起來，這樣不僅使頁面結(jié)構(gòu)清晰，而且維護方便。 例程 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。MyValue=amp。/a strSplitPage=strSplitPageamp。Page=amp。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 為頁面 的參考代碼。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=來顯示單個產(chǎn)品的纖細信息；利用包含 !include file=來顯示針對該產(chǎn)品的所有評論信息。paddingright:5px %=content% /td td width=60 %=ptime% /td td width=45 %=pren% /td /tr % if (preply) then % tr td style=paddingleft:20px。 例程 313 購物車頁面代碼 % dim myaction dim cartstr,cartnumstr DimMyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmp cartstr = getCartFromCookie() cartnumstr=getCart