asp网上花店毕业设计论文

asp网上花店毕业设计论文内容摘要：

目录名称 memo 文本类型 备注 表 33 中目录用字符串分级表示，产品的种类对应目录代码。 表 34 为订单信息表，记录花店的订单信息。 表 34 myorder 订单信息表 字段名称 数据类型 说明 autoid 自动编码 主键，递增， 订单 在网站的标识 payname 文本类型 付款人姓名 payphone 文本类型 付款人电话 pay 文本类型 付款人 Email payaddress 货币类型 付款人地址 senddate 日期类型 送货时间 paymemo 文本类型 付款人备注 paytime 日期类型 支付时间 lasttime 日期类型 修改时间：第一次就是增加 时间 reame 文本类型 收款人姓名 reick 文本类型 收款人称呼 recphone 文本类型 收款人电话 recaddress 文本类型 收款人地址 recmemo 文本类型 收款人备注 recemaie 文本类型 收款人邮编 recsay 文本类型 留言 sendfee 货币类型 送货费 sendarea 数字类型 送货地区 totalpay 货币类型 总价 realpay 货币类型 实际价格 orderpass 文本类型 订单密码 userid 文本类型 用户 ID orderstatus 文本类型 订单状态 efrom 数字类型 来源，是否从合作网站来的 表 34 中的 autoid 是订单在网站的惟一表识，数据增加是自动生成， category 是对应目录表的分类字符串。 订单的付款人一般是网站的会员，收款人可以是自己，也可以是自己的朋友，所以对这两方面信息分开进行记录。 表 35 为订单名细表，极力花店定单具体购买的产品信息。 表 35 orderitem 订单 明细表 字段名称 数据类型 说明 autoid 自动编码 惟一标识用户采购的一个产品 productid 数字类型 产品 ID productname 文本类型 产品名称 productprice 货币类型 成品价格 quantity 数字类型 数量 orderid 数字类型 订单 ID 订单明细表和订单表是多对一的关系，就是一张订单可以有多个产品。 表 36 为目录性表，记录花店目录的属性。 表 36 directoryproperty 目录属性表 字段名称 数据类型 说明 autoid 自动编码 目录属性代码，惟一标识一个目录属性 name 文本类型 目录属性名字 directorycode 文本类型 属于那个目录 目录属性是为了更好的导航产品，目录的产品有不同的属性，比如鲜花的用途、花材、对象等属性。 表 37 为导航属性字典表，记录花店目录的属性值。 表 37 navigationdict 导航属性字典表 字段名称 数据类型 说明 autoid 自动编码 惟一标识一个 导航属性 directoryproperty 数字类型 对应目录属性的 ID directoryvalue 文本类型 导航属性名称 导航属性字典对应表 36 目录属性表的 auotid 字段，换种说法就是目录有什么属性，属性具体对应什么值。 比如鲜花目录的用途属性有恋情、生日、友情、祝福、婚庆、商务等不同的用途。 表 38 为产品导航属性对应表，记录花店产品对应的不同属性。 表 38 navigationrelation 产品导航属性对应表 字段名称 数据类型 说明 productid 数字类型 产品 ID navigationid 数字类型 对应目录属性的 ID 一个产品可以对应多个导航属性，最终用户可以根据不同的属性浏览产品，方便用户查找产品。 表 39 为用户评论表，记录用户对产品的评论。 表 39ment 用户评论表 字段名称 数据类型 说明 autoid 自动编码 评论 ID ment 备注类型 评论内容 nckname 文本类型 用户名称 repiy 备注类型 管理答复内容 status 识字类型 是 否显示 文本类型 邮件 userautoid 数字类型 用户 ID productid 数字类型 产品 ID lasttime 数字类型 对应目录属性 ID 表 39 记录用户对查的评论， userautoid 为 0 客人，不是网站用户。 数据库连接文件 把数据库连接操作作封状在一个页面 中，以方便其他页面调用。 例程 31 为 页面的参考代码。 例程 31 数据库连接页面 % const myDatabase=lvzhi 39。 Database name const mydblocation=db/39。 location of database relative to % 例程 31 定义了两个常量 myDatabase 和 mydblocation，其中 m,yDatabase 为数据库名称， mydblocation 为数据库存放位置，如果需要修改数据库存放位置和名称，就修改 myDatabase 和 mydblocation 这 2 个变量的值。 例程 31 中引入了页面 allmon， asp,allmon,asp 页面中定义了数据库连接的操作函数，例程 32 为这些函数定义的参考代码。 例呈 32 定义的数据库公用函数代码 打开数据库 最顶级函数 % 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 对应的产品列表 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 对应的产品列表 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 对应的产品列表 从数据库 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 对应的产品列表 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 对应的产品列表 ,从数据库读出 function GetDirProductFromDB(dir) dim ret Dim dbc,query,rs shopopendatabase dbc if (dir=) then 39。 读出所有产品 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 产品类定义 39。 Class Pr。