【正文】 網(wǎng)站是電子商務(wù)網(wǎng)站，最終目的是為用戶服務(wù)，使用戶瀏覽查后有購(gòu)買的欲望，進(jìn)行購(gòu)買行為。 為了方便用戶的查找，提高網(wǎng)站的服務(wù)質(zhì)量，對(duì)產(chǎn)品進(jìn)行不同的屬性導(dǎo)航，一個(gè)鮮花產(chǎn)品分可以包含不同的屬性，方便用戶的查找，促進(jìn)用戶的消費(fèi)，實(shí)現(xiàn)網(wǎng)站的價(jià)值，對(duì)具體查的屬性進(jìn)行分類， 實(shí)現(xiàn)屬性導(dǎo)航表，包括產(chǎn)品屬性分類，產(chǎn)品對(duì)應(yīng)產(chǎn)品屬性的對(duì)應(yīng)表。 ? 網(wǎng)站用戶信息表，包括數(shù)據(jù)項(xiàng)、用戶 ID、用戶代號(hào)等。 ? 訂單明細(xì)表，包括數(shù)據(jù)項(xiàng)、訂單明細(xì)編號(hào)、產(chǎn)品 ID、訂單 ID 等。 ? 用戶評(píng)論表，包括數(shù)據(jù)項(xiàng)、 ID 評(píng)論內(nèi)容、用戶名稱等。 ? 導(dǎo)航屬性字典表，包括數(shù)據(jù)項(xiàng)、導(dǎo)航 ID 數(shù)字類型 ID、 文本類型 ID。 數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 本實(shí)例設(shè)計(jì)規(guī)劃出的實(shí)體包括網(wǎng)站用戶實(shí)體、采購(gòu)訂單明細(xì)實(shí)體、產(chǎn)品實(shí)體、用戶評(píng)論實(shí)體、目錄信息實(shí)體、目錄屬性實(shí)體、導(dǎo)航屬性實(shí)體、查導(dǎo)航屬性對(duì)應(yīng)關(guān)系實(shí)體。圖 38 為采購(gòu)訂單的實(shí)體 ER 圖。圖 310 為產(chǎn)品實(shí)體 ER 圖。 圖 312 為目錄信息實(shí)體 ER 圖 圖 311 用戶評(píng)論實(shí)體 ER 圖 圖 312 目錄信息實(shí)體 ER 圖 圖 313 為目錄屬性實(shí)體 ER 圖。 訂單明細(xì) 產(chǎn)品 訂單 ID 產(chǎn)品 ID 產(chǎn)品數(shù)量 產(chǎn)品價(jià)格 產(chǎn)品 ID 產(chǎn)品目錄 ID 產(chǎn)品名稱 產(chǎn)品價(jià)格 產(chǎn)品論評(píng) 目錄信息 評(píng)論 ID 評(píng)論內(nèi)容 用戶 ID 產(chǎn)品 ID 目錄代號(hào) 備注 目錄名稱 圖 313 目錄屬性實(shí)體 ER 圖 圖 314 導(dǎo)航屬性字典實(shí)體 ER 圖 圖 315 為產(chǎn)品導(dǎo)航屬性對(duì)應(yīng)關(guān)系 ER 圖 圖 315 產(chǎn)品導(dǎo)航屬性對(duì)應(yīng)關(guān)系 ER 圖 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) 數(shù)據(jù)庫(kù)的概念結(jié)構(gòu)設(shè)計(jì)完畢后，現(xiàn)在可以將上面的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)轉(zhuǎn)化為某種數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型，也就是數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。 在線花店系統(tǒng)中各個(gè)表的設(shè)計(jì)結(jié)果如下面表格所示。 字段名 稱 數(shù)據(jù)類型 說(shuō)明 目錄屬性 導(dǎo)航屬性字典 目錄屬性代號(hào) 目錄名稱 所屬目錄信息代號(hào) 導(dǎo) 航 屬 性ID 導(dǎo)航屬性名稱 對(duì)應(yīng)目錄屬性 DI 產(chǎn)品導(dǎo)航屬性對(duì)應(yīng)關(guān) 系 產(chǎn)品性 目錄屬性 ID autoid 自動(dòng)編碼 主鍵，遞增，用戶在網(wǎng)站的標(biāo)識(shí) userid 文本類型 用戶 ID pwd 文本類型 用戶口令 sex 文本類型 性別： 1 男， 0 女 realname 文本類型 真實(shí)姓名 personid 文本類型 用戶身份怔 mobile 文本類型 手機(jī)號(hào)碼 phone 文本類型 固定電話 lasttime 日期類型 修改時(shí)間：第一次就是注冊(cè)時(shí)間 adrress 文本類型 用戶地址 文本類型 郵編 表 31 中 autoid 是用戶網(wǎng)站惟一標(biāo)識(shí)， Useid 是在用戶注冊(cè)時(shí)自己選擇的名字，其他是擁護(hù)需要的屬性 。 字段名稱 數(shù)據(jù)類型 說(shuō)明 autoid 自動(dòng)編寫 主鍵，遞增， 產(chǎn)品 在網(wǎng)站的標(biāo)識(shí) code 文本類型 產(chǎn)品代碼，惟一標(biāo)識(shí)，網(wǎng)站自己定義的字符串 name 文本類型 產(chǎn)品名稱 description 備注類型 產(chǎn)品描述 marketprice 貨幣類型 市場(chǎng)價(jià)格 saleprice 貨幣類型 銷售價(jià)格 myimageurl 文本類型 圖片地址 status 數(shù)字類型 產(chǎn)品狀態(tài)，是不銷售： 0 銷售， 1 停止銷售 category 文本類型 產(chǎn)品種類 lasttime 日期類型 修改時(shí)間：第一次就是增加時(shí)間 priority 數(shù)字類型 排序用的優(yōu)先級(jí)別 memberprice 貨幣類型 會(huì)員價(jià)格 imageurlsmall 文本類型 網(wǎng)絡(luò)小圖片地址 imageurlmid 文本類型 網(wǎng)絡(luò)中圖片地址 imageurlbigsign 文本類型 網(wǎng)絡(luò)大圖片地址 sign 數(shù)字類型 標(biāo)志是否特價(jià)產(chǎn)品 表 32 中 Autoid 是產(chǎn)品在網(wǎng)站的惟一標(biāo)識(shí)，在數(shù)據(jù)增加是自動(dòng)生成， category 是對(duì)應(yīng)目錄表的分類字符串。 表 33 directory 目錄信息表 字段名稱 數(shù)據(jù)類型 說(shuō)明 code 文本類型 目錄代碼，惟一標(biāo)識(shí)一個(gè)目錄 name 文本類型 目錄名稱 memo 文本類型 備注 表 33 中目錄用字符串分級(jí)表示，產(chǎn)品的種類對(duì)應(yīng)目錄代碼。 表 34 myorder 訂單信息表 字段名稱 數(shù)據(jù)類型 說(shuō)明 autoid 自動(dòng)編碼 主鍵，遞增， 訂單 在網(wǎng)站的標(biāo)識(shí) payname 文本類型 付款人姓名 payphone 文本類型 付款人電話 pay 文本類型 付款人 Email payaddress 貨幣類型 付款人地址 senddate 日期類型 送貨時(shí)間 paymemo 文本類型 付款人備注 paytime 日期類型 支付時(shí)間 lasttime 日期類型 修改時(shí)間：第一次就是增加 時(shí)間 reame 文本類型 收款人姓名 reick 文本類型 收款人稱呼 recphone 文本類型 收款人電話 recaddress 文本類型 收款人地址 recmemo 文本類型 收款人備注 recemaie 文本類型 收款人郵編 recsay 文本類型 留言 sendfee 貨幣類型 送貨費(fèi) sendarea 數(shù)字類型 送貨地區(qū) totalpay 貨幣類型 總價(jià) realpay 貨幣類型 實(shí)際價(jià)格 orderpass 文本類型 訂單密碼 userid 文本類型 用戶 ID orderstatus 文本類型 訂單狀態(tài) efrom 數(shù)字類型 來(lái)源，是否從合作網(wǎng)站來(lái)的 表 34 中的 autoid 是訂單在網(wǎng)站的惟一表識(shí)，數(shù)據(jù)增加是自動(dòng)生成， category 是對(duì)應(yīng)目錄表的分類字符串。 表 35 為訂單名細(xì)表，極力花店定單具體購(gòu)買的產(chǎn)品信息。 表 36 為目錄性表，記錄花店目錄的屬性。 表 37 為導(dǎo)航屬性字典表，記錄花店目錄的屬性值。比如鮮花目錄的用途屬性有戀情、生日、友情、祝福、婚慶、商務(wù)等不同的用途。 表 38 navigationrelation 產(chǎn)品導(dǎo)航屬性對(duì)應(yīng)表 字段名稱 數(shù)據(jù)類型 說(shuō)明 productid 數(shù)字類型 產(chǎn)品 ID navigationid 數(shù)字類型 對(duì)應(yīng)目錄屬性的 ID 一個(gè)產(chǎn)品可以對(duì)應(yīng)多個(gè)導(dǎo)航屬性，最終用戶可以根據(jù)不同的屬性瀏覽產(chǎn)品，方便用戶查找產(chǎn)品。 表 39ment 用戶評(píng)論表 字段名稱 數(shù)據(jù)類型 說(shuō)明 autoid 自動(dòng)編碼 評(píng)論 ID ment 備注類型 評(píng)論內(nèi)容 nckname 文本類型 用戶名稱 repiy 備注類型 管理答復(fù)內(nèi)容 status 識(shí)字類型 是 否顯示 文本類型 郵件 userautoid 數(shù)字類型 用戶 ID productid 數(shù)字類型 產(chǎn)品 ID lasttime 數(shù)字類型 對(duì)應(yīng)目錄屬性 ID 表 39 記錄用戶對(duì)查的評(píng)論， userautoid 為 0 客人，不是網(wǎng)站用戶。例程 31 為 頁(yè)面的參考代碼。Database name const mydblocation=db/39。 例程 31 中引入了頁(yè)面 allmon， asp,allmon,asp 頁(yè)面中定義了數(shù)據(jù)庫(kù)連接的操作函數(shù)，例程 32 為這些函數(shù)定義的參考代碼。 Debug Message Sub Debug (msg) msg amp。 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=。data source= amp。 myDatabase amp。 (0).description amp。 GetSess(dbc) else SetSess Openerror, end if End Sub 39。 close database Sub CloseRecordSet (irs) set irs=nothing end sub 39。disable property 對(duì)應(yīng)的產(chǎn)品列表 sub disableListFlower(property,value) dim ret dim myname if (property=0) then myname=List amp。 F else myname=List amp。 F amp。List property 對(duì)應(yīng)的產(chǎn)品列表 function GetListFlower(property,value) dim ret dim myname if (property=0) then myname=List amp。 F else myname=List amp。 F amp。List property 對(duì)應(yīng)的產(chǎn)品列表 從數(shù)據(jù)庫(kù) function GetListFlowerFromDb(property,value) Dim ret,dbc,query,rs,mycondition shopopendatabase dbc query = select result from navigateresult mycondition=where sort=0 and property=amp。 and value=amp。 mycondition set rs = (query) ret= if not then ret=CStr(rs(result)) end if closerecordset rs shopclosedatabase dbc GetListFlowerFromDb=ret end function 39。 dir ret=Application(dirname) if (ret=) then ret=GetDirProductFromDB(dir) Application(dirname)=ret end if GetDirProduct=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。diramp。 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。public name,autoid,saleprice,Desc,marketPrice,vipPrice,ImageSmall,ImageMid,ImageBig 39。得到對(duì)應(yīng)的產(chǎn)品 function GetProduct(ID) dim ret if (ID =null or ID=) then ID=1 end if dim productname p