asp網(wǎng)上花店系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)(編輯修改稿)

　

【文章內(nèi)容簡(jiǎn)介】 目錄名稱 memo 文本類型 備注 表 33 中目錄用字符串分級(jí)表示，產(chǎn)品的種類對(duì)應(yīng)目錄代碼。 表 34 為訂單信息表，記錄花店的訂單信息。 表 34 myorder 訂單信息表 字段名稱 數(shù)據(jù)類型 說明 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)目錄表的分類字符串。訂單的付款人一般是網(wǎng)站的會(huì)員，收款人可以是自己，也可以是自己的朋友，所以對(duì)這兩方面信息分開進(jìn)行記錄。 表 35 為訂單名細(xì)表，極力花店定單具體購(gòu)買的產(chǎn)品信息。 表 35 orderitem 訂單 明細(xì)表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動(dòng)編碼 惟一標(biāo)識(shí)用戶采購(gòu)的一個(gè)產(chǎn)品 productid 數(shù)字類型 產(chǎn)品 ID productname 文本類型 產(chǎn)品名稱 productprice 貨幣類型 成品價(jià)格 quantity 數(shù)字類型 數(shù)量 orderid 數(shù)字類型 訂單 ID 訂單明細(xì)表和訂單表是多對(duì)一的關(guān)系，就是一張訂單可以有多個(gè)產(chǎn)品。 表 36 為目錄性表，記錄花店目錄的屬性。 表 36 directoryproperty 目錄屬性表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動(dòng)編碼 目錄屬性代碼，惟一標(biāo)識(shí)一個(gè)目錄屬性 name 文本類型 目錄屬性名字 directorycode 文本類型 屬于那個(gè)目錄 目錄屬性是為了更好的導(dǎo)航產(chǎn)品，目錄的產(chǎn)品有不同的屬性，比如鮮花的用途、花材、對(duì)象等屬性。 表 37 為導(dǎo)航屬性字典表，記錄花店目錄的屬性值。 表 37 navigationdict 導(dǎo)航屬性字典表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動(dòng)編碼 惟一標(biāo)識(shí)一個(gè) 導(dǎo)航屬性 directoryproperty 數(shù)字類型 對(duì)應(yīng)目錄屬性的 ID directoryvalue 文本類型 導(dǎo)航屬性名稱 導(dǎo)航屬性字典對(duì)應(yīng)表 36 目錄屬性表的 auotid 字段，換種說法就是目錄有什么屬性，屬性具體對(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)表 字段名稱 數(shù)據(jù)類型 說明 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)品。 表 39 為用戶評(píng)論表，記錄用戶對(duì)產(chǎn)品的評(píng)論。 表 39ment 用戶評(píng)論表 字段名稱 數(shù)據(jù)類型 說明 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)站用戶。 數(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ù)名稱， mydblocation 為數(shù)據(jù)庫(kù)存放位置，如果需要修改數(shù)據(jù)庫(kù)存放位置和名稱，就修改 myDatabase 和 mydblocation 這 2 個(gè)變量的值。 例 程 31 中引入了頁(yè)面 allmon， asp,allmon,asp 頁(yè)面中定義了數(shù)據(jù)庫(kù)連接的操作函數(shù)，例程 32 為這些函數(shù)定義的參考代碼。 例呈 32 定義的數(shù)據(jù)庫(kù)公用函數(shù)代碼 打開數(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 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=) then ret=GetDirProductFromDB(dir) Application(dirname)=ret end if GetDirProduct=ret end function 39。dir 對(duì)應(yīng)的產(chǎn)品列表 ,從數(shù)據(jù)庫(kù)讀出 function GetDirProductFromDB(dir) dim ret Dim dbc,query,rs shopopendatabase dbc if (dir=) then 39。讀出所有產(chǎn)品 query = select autoid from product order by priority else query = select autoid from product where Left(category,+Cstr(len(dir))+)=39。amp。diramp。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。Class