【文章內(nèi)容簡(jiǎn)介】 串。 表 33 中目錄信息表，記錄花店的分類(lèi)信息。 表 33 directory 目錄信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 code 文本類(lèi)型 目錄代碼，惟一標(biāo)識(shí)一個(gè)目錄 name 文本類(lèi)型 目錄名稱(chēng) memo 文本類(lèi)型 備注 表 33 中目錄用字符串分級(jí)表示，產(chǎn)品的種類(lèi)對(duì)應(yīng)目錄代碼。 表 34 為訂單信息表，記錄花店的訂單信息。 表 34 myorder 訂單信息表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 autoid 自動(dòng)編碼 主鍵，遞增， 訂單 在網(wǎng)站的標(biāo)識(shí) payname 文本類(lèi)型 付款人姓名 payphone 文本類(lèi)型 付款人電話 pay 文本類(lèi)型 付款人 Email payaddress 貨幣類(lèi)型 付款人地址 senddate 日期類(lèi)型 送貨時(shí)間 paymemo 文本類(lèi)型 付款人備注 paytime 日期類(lèi)型 支付時(shí)間 lasttime 日期類(lèi)型 修改時(shí)間：第一次就是增加時(shí)間 reame 文本類(lèi)型 收款人姓名 reick 文本類(lèi)型 收款人稱(chēng)呼 recphone 文本類(lèi)型 收款人電話 recaddress 文本類(lèi)型 收款人地址 recmemo 文本類(lèi)型 收款人備注 recemaie 文本類(lèi)型 收款人郵編 recsay 文本類(lèi)型 留言 sendfee 貨幣類(lèi)型 送貨費(fèi) sendarea 數(shù)字類(lèi)型 送貨地區(qū) totalpay 貨幣類(lèi)型 總價(jià) realpay 貨幣類(lèi)型 實(shí)際價(jià)格 orderpass 文本類(lèi)型 訂單密碼 userid 文本類(lèi)型 用戶(hù) ID orderstatus 文本類(lèi)型 訂單狀態(tài) efrom 數(shù)字類(lèi)型 來(lái)源，是否從合作網(wǎng)站來(lái)的 表 34 中的 autoid 是訂單在網(wǎng)站的惟一表識(shí)，數(shù)據(jù)增加是自動(dòng)生 成， category 是對(duì) 親愛(ài)的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。如需，請(qǐng)?jiān)L問(wèn) 為幫助大家作論文時(shí)參考，還整理了計(jì)算機(jī)類(lèi)論文 23 套、機(jī)機(jī)械類(lèi)論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類(lèi)各題目開(kāi)題報(bào)告 .請(qǐng)聯(lián)系 810354974 獲取 (請(qǐng)先加 為好友，再聯(lián)系 ) 應(yīng)目錄表的分類(lèi)字符串。訂單的付款人一般是網(wǎng)站的會(huì)員，收款人可以是自己，也可以是自己的朋友，所以對(duì)這兩方面信息分開(kāi)進(jìn)行記錄。 表 35 為訂單名細(xì)表，極力花店定單具體購(gòu)買(mǎi)的產(chǎn)品信息。 表 35 orderitem 訂單 明細(xì)表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 autoid 自動(dòng)編碼 惟一標(biāo)識(shí)用戶(hù)采購(gòu)的一個(gè)產(chǎn)品 productid 數(shù)字類(lèi)型 產(chǎn)品 ID productname 文本類(lèi)型 產(chǎn)品名稱(chēng) productprice 貨幣類(lèi)型 成 品價(jià)格 quantity 數(shù)字類(lèi)型 數(shù)量 orderid 數(shù)字類(lèi)型 訂單 ID 訂單明細(xì)表和訂單表是多對(duì)一的關(guān)系，就是一張訂單可以有多個(gè)產(chǎn)品。 表 36 為目錄性表，記錄花店目錄的屬性。 表 36 directoryproperty 目錄屬性表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 autoid 自動(dòng)編碼 目錄屬性代碼，惟一標(biāo)識(shí)一個(gè)目錄屬性 name 文本類(lèi)型 目錄屬性名字 directorycode 文本類(lèi)型 屬于那個(gè)目錄 目錄屬性是為了更好的導(dǎo) 航產(chǎn)品，目錄的產(chǎn)品有不同的屬性，比如鮮花的用途、花材、對(duì)象等屬性。 表 37 為導(dǎo)航屬性字典表，記錄花店目錄的屬性值。 表 37 navigationdict 導(dǎo)航屬性字典表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 autoid 自動(dòng)編碼 惟一標(biāo)識(shí)一個(gè) 導(dǎo)航屬性 directoryproperty 數(shù)字類(lèi)型 對(duì)應(yīng)目錄屬性的 ID directoryvalue 文本類(lèi)型 導(dǎo)航屬性名稱(chēng) 導(dǎo)航屬性字典對(duì)應(yīng)表 36 目錄屬性表的 auotid 字段，換種說(shuō)法就是目錄有什么 屬性，屬性具體對(duì)應(yīng)什么值。比如鮮花目錄的用途屬性有戀情、生日、友情、祝福、婚慶、商務(wù)等不同的用途。 表 38 為產(chǎn)品導(dǎo)航屬性對(duì)應(yīng)表，記錄花店產(chǎn)品對(duì)應(yīng)的不同屬性。 表 38 navigationrelation 產(chǎn)品導(dǎo)航屬性對(duì)應(yīng)表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 productid 數(shù)字類(lèi)型 產(chǎn)品 ID navigationid 數(shù)字類(lèi)型 對(duì)應(yīng)目錄屬性的 ID 一個(gè)產(chǎn)品可以對(duì)應(yīng)多個(gè)導(dǎo)航屬性，最終用戶(hù)可以根據(jù)不同的屬性瀏覽產(chǎn)品，方便用戶(hù)查找產(chǎn)品。 表 39 為用戶(hù)評(píng)論表，記錄用戶(hù)對(duì)產(chǎn)品的評(píng)論。 表 39ment 用戶(hù)評(píng)論表 字段名稱(chēng) 數(shù)據(jù)類(lèi)型 說(shuō)明 autoid 自動(dòng)編碼 評(píng)論 ID ment 備注類(lèi)型 評(píng)論內(nèi)容 nckname 文本類(lèi)型 用戶(hù)名稱(chēng) repiy 備注類(lèi)型 管理答復(fù)內(nèi)容 status 識(shí)字類(lèi)型 是否顯示 文本類(lèi)型 郵件 userautoid 數(shù)字類(lèi)型 用戶(hù) ID productid 數(shù)字類(lèi)型 產(chǎn)品 ID lasttime 數(shù)字類(lèi)型 對(duì)應(yīng)目錄屬性 ID 表 39 記錄用戶(hù)對(duì)查的評(píng)論， userautoid 為 0 客人，不是網(wǎng)站用戶(hù)。 數(shù)據(jù)庫(kù)連接文件 把數(shù)據(jù)庫(kù)連接操作作封狀在一個(gè)頁(yè)面 中，以方便其他頁(yè)面調(diào)用。例程 31 為 頁(yè)面的參考代碼。 例程 31 數(shù)據(jù)庫(kù)連接頁(yè)面 % const myDatabase=lvzhi 39。Database name const mydblocation=db/39。location of database relative to % 例程 31 定義了兩個(gè)常量 myDatabase 和 mydblocation，其中 m,yDatabase 為數(shù)據(jù)庫(kù)名稱(chēng)， mydblocation 為數(shù)據(jù)庫(kù)存放位置，如果需要修改數(shù)據(jù)庫(kù)存放位置和名稱(chēng)，就修改 myDatabase 和 mydblocation 這 2 個(gè)變量的值。 親愛(ài)的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。如需，請(qǐng)?jiān)L問(wèn) 為幫助大家作論文時(shí)參考，還整理了計(jì)算機(jī)類(lèi)論文 23 套、機(jī)機(jī)械類(lèi)論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類(lèi)各題目開(kāi)題報(bào)告 .請(qǐng)聯(lián)系 810354974 獲取 (請(qǐng)先加 為好友，再聯(lián)系 ) 例程 31 中引入了頁(yè)面 allmon， asp,allmon,asp 頁(yè)面中定義了數(shù)據(jù)庫(kù)連接的操作函數(shù)，例程 32 為這些函數(shù)定義的參考代碼。 例呈 32 定義的數(shù)據(jù)庫(kù)公用函數(shù)代碼 打開(kāi)數(shù)據(jù)庫(kù) 最頂級(jí)函數(shù) % 39。 Debug Message Sub Debug (msg) msg amp。 br end sub 39。 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=。persist security info=false。data source= amp。 ( mydblocation amp。 myDatabase amp。 .mdb) Set connection = () on error resume next strConn If 0 then SetSess Openerror, Open Messagesbr amp。 (0).description amp。 br amp。 GetSess(dbc) else SetSess Openerror, end if End Sub 39。 main database open for shop Sub ShopOpenDataBase (connection) ProcessAccessOpen connection end sub 39。 close database Sub CloseRecordSet (irs) set irs=nothing end sub 39。*************** Sub ShopCloseDatabase (connection) on error resume next set connection=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。property amp。 F else myname=List amp。property amp。 F amp。value end if Application(myname)= end sub 39。List property 對(duì)應(yīng)的產(chǎn)品列表 function GetListFlower(property,value) dim ret dim myname if (property=0) then myname=List amp。property amp。 F 親愛(ài)的朋友 ,注意啦 ! 此套設(shè)計(jì)除此論文資料外，還包括完整源程序。如需，請(qǐng)?jiān)L問(wèn) 為幫助大家作論文時(shí)參考，還整理了計(jì)算機(jī)類(lèi)論文 23 套、機(jī)機(jī)械類(lèi)論文 50 套，歡迎下載以作參考 另外，本站免費(fèi)提供計(jì)算機(jī)類(lèi)各題目開(kāi)題報(bào)告 .請(qǐng)聯(lián)系 810354974 獲取 (請(qǐng)先加 為好友，再聯(lián)系 ) else myname=List amp。property amp。 F amp。value end if ret=Application(myname) if (ret=) then ret=GetListFlowerFromDB(property,value) Application(myname)=ret end if GetListFlower=ret end function 39。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。property amp。 and value=amp。value query=query 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 對(duì)應(yīng)的產(chǎn)品列表 function GetDirProduct(dir) dim ret if (dir =null or dir=) then dir= end if dim dirname dirname=dir amp。 dir ret=Application(dirname) if (ret=)