网上花店毕业设计

《网上花店毕业设计》由会员分享，可在线阅读，更多相关《网上花店毕业设计（57页珍藏版）》请在装配图网上搜索。

1、华东交通大学华东交通大学毕业设计（论文）毕业设计（论文）题目：题目： 学学 院院:理工学院理工学院专专 业业:计算机科学与技计算机科学与技术术班班 级级:姓姓 名名:学学 号号:指导教指导教师师:完成日期完成日期:2010-5-4华华东东交交通通大大学学毕毕业业设设计计毕业设计（论文）诚信声明毕业设计（论文）诚信声明本人郑重声明：所呈交的毕业设计（论文）是本人郑重声明：所呈交的毕业设计（论文）是我个人在导师指导下进行的研究工作及取得的研究我个人在导师指导下进行的研究工作及取得的研究成果。就我所知，除了文中特别加以标注和致谢的成果。就我所知，除了文中特别加以标注和致谢的地方外，论文中不包含其他人

2、已经发表和撰写的研地方外，论文中不包含其他人已经发表和撰写的研究成果，也不包含为获得华东交通大学或其他教育究成果，也不包含为获得华东交通大学或其他教育机构的学位或证书所使用过的材料。机构的学位或证书所使用过的材料。如在文中涉及抄袭或剽窃行为，本人愿承担由如在文中涉及抄袭或剽窃行为，本人愿承担由此而造成的一切后果及责任。此而造成的一切后果及责任。本人签名 导师签名 2010 年年 5 月月 日日( (论文论文) )评阅书评阅书姓名姓名学号学号专业专业毕业设计毕业设计(论文论文)题目题目答辩小组评语：答辩小组评语：等级等级 组长签字：组长签字：年年 月月 日日答辩委员会综合评语：答辩委员会综合评语

3、： 等级等级 答辩委员会主任签字：答辩委员会主任签字：年年 月月 日（学院公章）日（学院公章）注：答辩小组根据评阅人的评阅签署意见、初步评定成绩，交答辩委员会审定，盖学院公章。“等级”用优、良、中、及、不及五级制（可按学院制定的毕业设计(论文)成绩评定办法评定最后成绩） 。华东交通大学毕业设计（论文）答辩记录华东交通大学毕业设计（论文）答辩记录姓名学号毕业届别专业计算机科学与技术题目答辩时间答辩组成员（签字）：答辩记录： 记录人（签字）： 年 月 日 答辩小组组长（签字）：年 月 日附注：目录一、在一、在 线线 花花 店店.2二、特二、特 色色 突突 破破.3三、三、 系系 统统 概概 述述.

4、33.1 系统设计.33.1.1 系统功能与应用背景.33.1.2 系统浏览.43.1.3 系统特点.43.2 系统设计和架构 .53.2.1 系统设计思想.53.2.2 系统结构设计.5系统功能模块细分.63.2.3服务器和ASP运作环境配置.63.3 数据库的设计、生成与配置.83.3.1 数据库需求分析.93.3.2数据库概念结构设计.93.3.3数据库逻辑结构设计.123.4 公用模块的编写.163.4.1数据库连接文件.163.4.2页面头文件.223.4.3页面尾文件.233.5 前台界面设计与实现.273.5.1首页设计.273.5.2产品详细信息.323.5.3我的购物车页面设

5、计.363.5.4结帐处理.403.5.5用户注册的设计与实现.473.5.6订单查询.49四、四、 结结 论论.50五、致五、致 谢谢.51六、参考文献六、参考文献.52摘要摘要本系统是一个相对简单的基本应用系统，主要满足传统的花店运营需要，将自己的销售渠道扩展到网上，通过简单的管理，提供给最终消费者产品的展现、购物、订单处理等一实现鲜花在线销售。通过本系统可以管理简单的在线销售模式、满足用户随时查询产品信息，随时下单购物的应用需求。由于本系统考虑到产品的适应性、安全性和访问效率，所以，在系统平台多样性、技术先进性、功能适应性和灵活性等方面都有考虑，使系统相对完善，具有更好的学习价值。关键词

6、:花店,在线,网店Abstract The present system is a relatively simple and basic applications, mainly to meet the needs of the traditional flower shop operator, will expand its sales channels to the Internet through simple management, to the final consumer products show, shopping, order processing and so on to

7、 achieve a Online sales of flowers. The system can be managed through a simple on-line sales mode, the user at any time to meet the product information, shopping at any time under a single application requirements. As a result of the system, taking into account the products adaptability, security an

8、d efficiency of the visit, so the system platform diversity, advanced technology, flexibility and adaptability features, and so on are considered relatively sound system, better learning. Key words: flower shop online, Shop一、在一、在 线线 花花 店店再线花店系统将传统的花店经营管理模式与计算机网络的综合经营管理模式结合在一起。将人、机、物的需求、活动和运作进行系统分析、设

9、计并管理，一实现现代高效、科学且安全的电子商务。本例通过一个在线花店的实例来介绍 ASP 与 Access 数据库结合开发的小型电子商务系统的过程。在系统设计时。从传统花店的经营模式，网上用户需求与业务经营模式，计算机网络管理、系统设计等几方面综合分析，定义系统的输入、输出、实现功能、系统运作能力、系统安全性、系统可维护性等各项需求。其中数据库采用 Access，动态网页开发采用 ASP，综合应用了 ADO、数据库设计、密码、身份验证和缓存等技术。二、特二、特 色色 突突 破破网上花店系统适合在线销售鲜花、礼品等，具有商品多属性检索（支持多重属性分类） 、购物车、订单提交和查询等网上花店所需的

10、基本功能。 本系统采用 ASP 编写，在 Windows 的 IIS 的支持下运行。为了提高系统的效率，使用户浏览时候响应速度更快，本实例后台采用了缓存技术。三、三、 系系 统统 概概 述述3.1 系统设计系统设计3.1.1 系统功能与应用背景系统功能与应用背景互联网以前所未有的速度发展，成为与报纸、广播、电视相比肩的第四媒体，同时正以其更捷的信息传输形式改变这人们的消费模式，利用简单、快界、低成本的电子通信方式，买卖双方不谋面就可以进行各种商贸活动，走向商业的互联网已经成为网络经济的大势所趋。眼下电子商务网站正如雨后春笋般大量涌现，企业网络化已经一种时尚。电子商务的发展可能大家都已经耳濡目染

11、，上网的朋友对这已经不再陌生，电子商务确确实实出现在我们周围。本系统是一个在线花店系统，具有在线先手鲜花的基本功能。同过配置，可以作为一个实际应用的鲜花销售网站。本系统是为传统经营的花店构建网上销售渠道而开发的。本例中的在线花店重要完成的功能如下。鲜花产品选购（可按分类方式查找鲜花种类或通过关键字进行查询）购物车功能查看鲜花详细情况用户注册用户登陆查看用户的订单信息用户评论3.1.2 系统浏览系统浏览图 3-1 是用户访问网站的第一个界面，也是本系统的主界面。用户通过这个主界面可以浏览网站各个分类页面，浏览推荐商品和查看分类属性页等。 图 3-1 网站的首页3.1.3 系统特点系统特点本章所介

12、绍的实例具有以下特点。（1）页面模块化本系统在界面设计上都采用了模块化处理思想，把很多页面功用部分集成一个模块，例如页面的头、尾和导航条，这样在开发是遇到这些相似的页面部分，就不需要重新编写，只要重用这部分即可，大大提高了开发效率。（2）缓存技术把产品导航信息放到内存中缓存起来，大大提高了网站效率和响应速度。 3.2 系统设计和架构系统设计和架构3.2.1 系统设计思想系统设计思想 电子上午发展已经有 10 多年的历史了，在中国很多人对电子商务也逐渐接受和认可。网上购物作为依仗时尚很多人去体会，更有部分人把购物同逛商场等显示社会服务一样作为生活的一部分。鲜花作为生活的点缀，也越来越为生活所需要

13、。这种网上买卖鲜花的交易越来越多，也逐渐被广大消费者所接受。本系统是一个相对简单的基本应用系统，主要满足传统的花店运营需要，将自己的销售渠道扩展到网上，通过简单的管理，提供给最终消费者产品的展现、购物、订单处理等一实现鲜花在线销售。通过本系统可以管理简单的在线销售模式、满足用户随时查询产品信息，随时下单购物的应用需求。由于本系统考虑到产品的适应性、安全性和访问效率，所以，在系统平台多样性、技术先进性、功能适应性和灵活性等方面都有考虑，使系统相对完善，具有更好的学习价值。本实例把页面中一些常用的部分集成为模块，例如页面的头和尾部，这样设计新的页面如果有重复出现的部分，只需要那现成的模块来组装就可

14、以了。3.2.2 系统结构设计系统结构设计本实例由 Web 服务器为最终用户提供展现服务和为管理员提供管理服务；用数据库保存产品、用户和订单等信息。系统结构如图 3-2 所示数据库Web 服务器管理员用户系统用户系统用户系统图 3-2 系统结构图系统功能模块细分系统功能模块细分（1）用户管理模块管理用户登录、用户注册和用户修改等用户信息的基本功能，与一般电子商务的用户管理系统基本相同。（2）产品信息模块陈列产品的详细信息（3）导航分类检索模块按不同分类和不同应用导航产品，把相关产品列出。（4）购物车处理模块通过 cookie 技术实现购物车。用户选者产品后，点击“购买”进入购物页面，陈列要购买

15、的产品明细项。（5）用户选择产品完毕，通过购物页面到订单结帐页面，填写必要的信息，产生最终订单；还提供订单查询功能。3.2.3 服务器和服务器和 ASP 运作环境配置运作环境配置1软件准备本章实例的数据库管理软件采用 Access，安装 Office 的时候便会附带安装Access 如果读者机器上没有安装 Access，请准备 Office 软件；Web 服务采用IIS，IIS 的安装请参考 1.3.4 节。2.IIS 的配置IIS 默认的 Web（主页）文件存放于系统根区的“%system%inetpu/wwwroot”中。这里简单介绍 IIS 配置虚拟目录的过程。在“控制面板” ，双击“管

16、理工具” ，在“管人站点” ，然后用鼠标右键单击“默认网站” 。从弹出的快捷菜单中选择【新建】【虚拟目录】 ，如图 3-3 所示弹出如图 3-4 所示的“虚拟目录别名”对话框。 图 3-4 指定虚拟目录别名在如图 3-4 所示对话框中填写虚拟目录别名，例如“Ivzhi”然后单击【下一步】按钮，弹出如图 3-5 所示的“网站内容目录”对话框。 图 3-5 选择实际目录在图 3-5 所示对话框中，单击【浏览】按钮为该虚拟目录选择一个实际目录（例如）“c:www” ） ，然后单击【下一步】按钮，最后单击【完成】按钮，这样名为“Ivzhii”的虚拟目录就创建好了。在实际开发时，所有页面都放到“c:ww

17、w”下，访问时从浏览器输入“http:/localhost/Ivzhi/index.asp”,该访问“c:www”下的“index.asp”页面 3.3 数据库的设计、生成与配置数据库的设计、生成与配置信息管理系统离不开数据库，它保存系统用到的数据。本系统的数据库主要用来保存用户、订单、产品等信息，所以数据库主要用到的表有：用户表、订单表、产品表和分类导航 4 类表。设计数据库系统时应该先充分了解各个方面的需求，根据需求决定数据库结构。3.3.1 数据库需求分析数据库需求分析简单来说系统有 3 个对象：用户、消化产品和订单。用户浏览鲜花产品，并且在需要的时候下订单。各这些信息提供增加、修改、保

18、存、更新和查询，这就要求数据库结构能从粉满足这些信息的输出和输入。收集基本数据、数据结构及数据处理的流程，组合一份尽的数据字典，为程序设计打下基础。系统需求积累用户资源，用用户表来记录用户的信息，具体包括用户的真名、地址、电话、邮编、身份证号、E-mail 和密码等基本信息。网站要给用户展现产品，把鲜花产品的详细信息介绍给用户，需要产品信息表，具体包括产品名称、各类属性和所属分类等。网站是电子商务网站，最终目的是为用户服务，使用户浏览查后有购买的欲望，进行购买行为。订单类表格记录用户的购买行为，需要记录购买的产品信息，付款人的信息，收款人的信息，下单时间等。为了方便用户的查找，提高网站的服务质

19、量，对产品进行不同的属性导航，一个鲜花产品分可以包含不同的属性，方便用户的查找，促进用户的消费，实现网站的价值，对具体查的属性进行分类，实现属性导航表，包括产品属性分类，产品对应产品属性的对应表。通过上述系统功能分析，针对一般的在线花店的需求，包括如下数据表。网站用户信息表，包括数据项、用户 ID、用户代号等。采购订单表，包括数据项、订单 ID、付款人姓名、付款人电话等。订单明细表，包括数据项、订单明细编号、产品 ID、订单 ID 等。产品表，包括数据项、产品 ID、产品代码、产品名称等。用户评论表，包括数据项、ID 评论内容、用户名称等。目录属性表，包括数据项、目录编号名字、目录编号等。导航

20、属性字典表，包括数据项、导航 ID 数字类型 ID、文本类型 ID。产品导航属性对应表，包括数据项、导航类型 ID、导航名称等。3.3.2 数据库概念结构设计数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包括各种具体信息，通过相互之间的作用形成数据的流动。本实例设计规划出的实体包括网站用户实体、采购订单明细实体、产品实体、用户评论实体、目录信息实体、目录属性实体、导航属性实体、查导航属性对应关系实体。图 3-6 为实体间关系的 E-R 图用户评论用户订单订单明细产品导航属性对应表导航字典产品目

21、录信息目录属性图 3-6 实体关系 E-R 图图 3-7 为网络用户实体 E-R 图。图 3-8 为采购订单的实体 E-R 图。用户用户ID用户代码用户口令用户电话订单付款人姓名产品ID付款人电话用户代号 图 3-7 网站用户实体 E-R 图 图 3-8 采购订单实体 E-R 图图 3-9 为订单明细实体 E-R 图。图 3-10 为产品实体 E-R 图。订单明细产品订单 ID产品ID产品数量产品价格产品 ID产品目录 ID产品名称产品价格 图 3-9 订单明细实体 E-R 图 图 3-10 产品实体 E-R 图图 3-11 为用户评论实体 E-R 图。 图 3-12 为目录信息实体 E-R

22、图产品论评目录信息评论 ID评论内容用户 ID产品 ID目录代号备注目录名称图 3-11 用户评论实体 E-R 图 图 3-12 目录信息实体 E-R 图图 3-13 为目录属性实体 E-R 图。 图 3-14 为导航属性字典实体 E-R 图。目录属性导航属性字典目录属性代号目录名称所属目录信息代号导航属性ID导航属性名称对应目录属性 DI图 3-13 目录属性实体 E-R 图 图 3-14 导航属性字典实体 E-R 图图 3-15 为产品导航属性对应关系 E-R 图产品导航属性对应关系产品性目录属性 ID 图 3-15 产品导航属性对应关系 E-R 图3.3.3 数据库逻辑结构设计数据库逻辑

23、结构设计数据库的概念结构设计完毕后，现在可以将上面的数据库概念结构转化为某种数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。本章实例系统采用Access 数据库，因此在设计本章实例系统数据库概念结构时，需要遵循 Access 数据库的语法结构。在线花店系统中各个表的设计结果如下面表格所示。每个表格表示在数据库中的一个表，表 3-1 为用户表，记录某个用户的信息。字段名称数据类型说明autoid自动编码主键，递增，用户在网站的标识userid文本类型用户 IDpwd文本类型用户口令sex文本类型性别：1 男，0 女realname文本类型真实姓名personid文本类型用户身份怔mobi

24、le文本类型手机号码phone文本类型固定电话lasttime日期类型修改时间：第一次就是注册时间adrress文本类型用户地址email文本类型邮编表 3-1 中 autoid 是用户网站惟一标识，Useid 是在用户注册时自己选择的名字，其他是拥护需要的属性。表 3-2 为产品信息列表，记录花店现有的产品信息。字段名称数据类型说明autoid自动编写主键，递增，产品在网站的标识code文本类型产品代码，惟一标识，网站自己定义的字符串name文本类型产品名称description备注类型产品描述marketprice货币类型市场价格saleprice货币类型销售价格myimageurl文本类

25、型图片地址status数字类型产品状态，是不销售：0 销售，1 停止销售category文本类型产品种类lasttime日期类型修改时间：第一次就是增加时间priority数字类型排序用的优先级别memberprice货币类型会员价格netimageurlsmall文本类型网络小图片地址netimageurlmid文本类型网络中图片地址netimageurlbigsign文本类型网络大图片地址sign数字类型标志是否特价产品表 3-2 中 Autoid 是产品在网站的惟一标识，在数据增加是自动生成，category 是对应目录表的分类字符串。表 3-3 中目录信息表，记录花店的分类信息。 表

26、3-3 directory 目录信息表字段名称数据类型说明code文本类型目录代码，惟一标识一个目录name文本类型目录名称memo文本类型备注表 3-3 中目录用字符串分级表示，产品的种类对应目录代码。表 3-4 为订单信息表，记录花店的订单信息。 表 3-4 myorder 订单信息表字段名称数据类型说明autoid自动编码主键，递增，订单在网站的标识payname文本类型付款人姓名payphone文本类型付款人电话payemail文本类型付款人 E-mailpayaddress货币类型付款人地址senddate日期类型送货时间paymemo文本类型付款人备注paytime日期类型支付时间

27、lasttime日期类型修改时间：第一次就是增加时间recname文本类型收款人姓名recnick文本类型收款人称呼recphone文本类型收款人电话recaddress文本类型收款人地址recmemo文本类型收款人备注recemaie文本类型收款人邮编recsay文本类型留言sendfee货币类型送货费sendarea数字类型送货地区totalpay货币类型总价realpay货币类型实际价格orderpass文本类型订单密码userid文本类型用户 IDorderstatus文本类型订单状态comefrom数字类型来源，是否从合作网站来的表 3-4 中的 autoid 是订单在网站的惟一表识

28、，数据增加是自动生成，category 是对应目录表的分类字符串。订单的付款人一般是网站的会员，收款人可以是自己，也可以是自己的朋友，所以对这两方面信息分开进行记录。表 3-5 为订单名细表，极力花店定单具体购买的产品信息。 表 3-5 orderitem 订单明细表字段名称数据类型说明autoid自动编码惟一标识用户采购的一个产品productid数字类型产品 IDproductname文本类型产品名称productprice货币类型成品价格quantity数字类型数量orderid数字类型订单 ID订单明细表和订单表是多对一的关系，就是一张订单可以有多个产品。表 3-6 为目录性表，记录花

29、店目录的属性。 表 3-6 directoryproperty 目录属性表字段名称数据类型说明autoid自动编码目录属性代码，惟一标识一个目录属性name文本类型目录属性名字directorycode文本类型属于那个目录目录属性是为了更好的导航产品，目录的产品有不同的属性，比如鲜花的用途、花材、对象等属性。表 3-7 为导航属性字典表，记录花店目录的属性值。 表 3-7 navigationdict 导航属性字典表字段名称数据类型说明autoid自动编码惟一标识一个导航属性directoryproperty数字类型对应目录属性的 IDdirectoryvalue文本类型导航属性名称导航属性字

30、典对应表 3-6 目录属性表的 auotid 字段，换种说法就是目录有什么属性，属性具体对应什么值。比如鲜花目录的用途属性有恋情、生日、友情、祝福、婚庆、商务等不同的用途。表 3-8 为产品导航属性对应表，记录花店产品对应的不同属性。 表 3-8 navigationrelation 产品导航属性对应表字段名称数据类型说明productid数字类型产品 IDnavigationid数字类型对应目录属性的 ID一个产品可以对应多个导航属性，最终用户可以根据不同的属性浏览产品，方便用户查找产品。表 3-9 为用户评论表，记录用户对产品的评论。 表 3-9comment 用户评论表字段名称数据类型说

31、明autoid自动编码评论 IDcomment备注类型评论内容nckname文本类型用户名称repiy备注类型管理答复内容status识字类型是否显示email文本类型邮件userautoid数字类型用户 IDproductid数字类型产品 IDlasttime数字类型对应目录属性 ID表 3-9 记录用户对查的评论，userautoid 为 0 客人，不是网站用户。3.4 公用模块的编写公用模块的编写3.4.1 数据库连接文件数据库连接文件把数据库连接操作作封状在一个页面 Commondb.asp 中，以方便其他页面调用。例程 3-1 为 Commondb.asp 页面的参考代码。 例程 3

32、-1 数据库连接页面 commondb.asp 例程 3-1 定义了两个常量 myDatabase 和 mydblocation，其中 m,yDatabase 为数据库名称，mydblocation 为数据库存放位置，如果需要修改数据库存放位置和名称，就修改 myDatabase 和 mydblocation 这 2 个变量的值。例程 3-1 中引入了页面 allcommon，asp,allcommon,asp 页面中定义了数据库连接的操作函数，例程 3-2 为这些函数定义的参考代码。 例呈 3-2 allcommon.asp 定义的数据库公用函数代码 打开数据库 最顶级函数% Debug M

33、essageSub Debug (msg)response.write msg & end sub get ComeFrom Cookiefunction getComeFromCookie()dim retret=Request.Cookies(comefrom)if (comefrom=null) thenret=end ifgetComeFromCookie=retend functionconst myCookieKey=lvzhiconst myUseCookies=noSub SetSess (field, value)If myUseCookiesYes then Session

34、(field)=valueelse Response.cookies(myCookiekey) (field)=valueend if end subSub ProcessAccessOpen(connection)dim strconnstrconn = provider=microsoft.jet.oledb.4.0;persist security info=false;data source= & Server.MapPath( mydblocation & myDatabase & .mdb)Set connection = Server.CreateObject(ADODB.Con

35、nection)on error resume nextconnection.open strConnIf connection.errors.count 0 thenSetSess Openerror, Open Messages & connection.errors(0).description & & GetSess(dbc)elseSetSess Openerror,end ifEnd Sub main database open for shopSub ShopOpenDataBase (connection) ProcessAccessOpen connectionend sub

36、 close database Sub CloseRecordSet (irs)irs.closeset irs=nothingend sub*Sub ShopCloseDatabase (connection)on error resume nextconnection.closeset connection=nothingEnd subdisable property 对应的产品列表sub disableListFlower(property,value)dim retdim mynameif (property=0) thenmyname=List &property & Felsemy

37、name=List &property & F &valueend ifApplication(myname)=end subList property 对应的产品列表function GetListFlower(property,value)dim retdim mynameif (property=0) thenmyname=List &property & Felsemyname=List &property & F &valueend ifret=Application(myname)if (ret=) thenret=GetListFlowerFromDB(property,valu

38、e)Application(myname)=retend ifGetListFlower=retend functionList property 对应的产品列表 从数据库function GetListFlowerFromDb(property,value)Dim ret,dbc,query,rs,myconditionshopopendatabase dbcquery = select result from navigateresult mycondition=where sort=0 and property=&property & and value=&valuequery=quer

39、y & myconditionset rs = dbc.execute(query)ret= if not rs.EOF thenret=CStr(rs(result)end ifcloserecordset rsshopclosedatabase dbcGetListFlowerFromDb=retend functiondir 对应的产品列表function GetDirProduct(dir)dim retif (dir =null or dir=) thendir=end ifdim dirnamedirname=dir & dirret=Application(dirname)if

40、(ret=) thenret=GetDirProductFromDB(dir)Application(dirname)=retend ifGetDirProduct=retend functiondir 对应的产品列表,从数据库读出function GetDirProductFromDB(dir)dim retDim dbc,query,rsshopopendatabase dbcif (dir=) then 读出所有产品query = select autoid from product order by priorityelsequery = select autoid from prod

41、uct where Left(category,+Cstr(len(dir)+)=&dir&end ifset rs = dbc.execute(query)ret= Do WHILE not rs.EOFif (ret=) thenret=CStr(rs(autoid)elseret=ret+,+CStr(rs(autoid)end ifrs.movenext Loopcloserecordset rsshopclosedatabase dbcGetDirProductFromDb=retend function产品类定义Class Productpublic name,autoid,sal

42、eprice,Desc,marketPrice,vipPrice,netImageSmall,netImageMid,netImageBigEnd Class得到对应的产品function GetProduct(ID)dim retif (ID =null or ID=) thenID=1end ifdim productnameproductname=P & IDret=Application(productname)if ( not IsArray(ret) thenret=GetProductFromDB(ID)Application(productname)=retend ifGetP

43、roduct=Application(productname)end function得到对应的产品sub disableProduct(ID)dim retif (ID =null or ID=) thenID=1end ifdim productnameproductname=P & IDApplication(productname)=end sub对应的产品,从数据库读出dim FIELDAUTOID,FIELDNAME,FIELDSALEPRICE,FIELDDESC,FIELDMARKETPRICEdim FIELDVIPPRICE,FIELDNETIMAGESMALL,FIELD

44、NETIMAGEMID,FIELDNETIMAGEBIG,FIELDCODEFIELDAUTOID=0FIELDNAME=1FIELDSALEPRICE=2FIELDDESC=3FIELDMARKETPRICE=4FIELDVIPPRICE=5FIELDNETIMAGESMALL=6FIELDNETIMAGEMID=7FIELDNETIMAGEBIG=8FIELDCODE=9function GetProductFromDB(ID)dim ret(10)Dim dbc,query,rsshopopendatabase dbcquery = select * from product where

45、 autoid=&IDset rs = dbc.execute(query) if not rs.EOF thenret(FIELDAUTOID)=rs(autoid)ret(FIELDNAME)=rs(name)ret(FIELDSALEPRICE)=rs(saleprice)ret(FIELDDESC)=rs(description)ret(FIELDMARKETPRICE)=rs(marketprice)ret(FIELDVIPPRICE)=rs(memberprice)ret(FIELDNETIMAGESMALL)=rs(myimageurl)ret(FIELDNETIMAGEMID)

46、=rs(myimageurl)ret(FIELDNETIMAGEBIG)=rs(myimageurl)ret(FIELDNETIMAGESMALL)=rs(netimageurlsmall)ret(FIELDNETIMAGEMID)=rs(netimageurlmid)ret(FIELDNETIMAGEBIG)=rs(netimageurlbig)ret(FIELDCODE)=rs(code)elseret(FIELDAUTOID)=-1end ifcloserecordset rsshopclosedatabase dbcGetProductFromDB=retend function% 3

47、.4.2 页面头文件页面头文件为了实现代码复用，把头文件设计成公用模块，单独保存为一个文件，其他页面应用的时候只要包含这个头文件就可以了。 头文件中主要放置网站标志和各个 2 级频道，保存成 HTML 文件格式，放置到文件夹 inc/下，文件名称为 top.html.这样其他页面只要应用,就可以使其他页面具有风格统一的“头” 。 图 3-16 网站头文件预览果图3.4.3 页面尾文件页面尾文件和页头一样，我们把版权声明等信息保存在尾文件 bottom.html 中，本实例的尾部文件预览果如图 3-17 所示。3.5.1用户登录判断用户登录判定一般由两个页面组成，页面 login.asp 提供表

48、单让用户输入用户名和密码，当用户单击页面中【登录】按钮时，把用户名、密码提交到另一个页面userlogindo.asp,由 userlogindo.asp 页面作具体的登录处理。Login.asp 就是一个简单的包含表单的 HTML 页面，并引入公用头尾文件，不过login.asp 需要用到 javascipt 验证表单，防止用户输入空信息。图 3-18 为网站登录页面 login.asp.的预览效果。例程 3-3 为 login.asp 页面中表单验证的 javascript 代码。 例程 3-3 javascript 校验代码 function userloginsubmit() var

49、flag=false; if(document.loginForm.USERID.value=null| document.loginForm.USERID.value=) alert(请输入您的用户名！); document.loginForm.USERID.focus(); flag=true; if(document.loginForm.PASS.value=null| document.loginForm.PASS.value=) alert(请输入密码！); if (flag=false) document.loginForm.PASS.focus(); flag=true; if(

50、flag=false) document.loginForm.submit(); return false; function userloginkeydown() if (window.event.keyCode=13) userloginsubmit(); function userloginuserid() if (window.event.keyCode=13) document.loginForm.PASS.focus(); 在例程 3-3 中函数 userloginsubmit()主要在用户单击【登录】按钮的时候验证用户输入的用户名、密码是否为空。函数 userloginkeydo

51、wn()，主要完成当用户按回车键时，提交表单，也就时说当用户输入用户名、密码后单击【登录】按钮或者按回车键都会提交表单。实现这个功能是为了用户界面友好，方便最终用户的使用。函数 userloginuserid()主要完成当用户输入完用户名按回车时，焦点跳到输入密码的文本框中。Userlogindo.asp 主要完成用户登录的判定，把用户登录信息更新数据库和 session等，例程 3-4 为页面 Uselogindo.asp 登录代码。 例程 3-4 Userlogindo.asp 登录代码 %dim dbc, urldim forwardURLdim strpassword, returnu

52、rlstrPassword=Request(strPassword)stremail=request(stremail)strpassword=replace(strpassword,=,)stremail=replace(stremail,=,)stremail=replace(stremail,)strpassword=replace(strpassword,)returnurl=request(returnurl)if strEmail= then sError = sError & 请输入 Emailend ifif strPassword= then sError = sError

53、& 请输入口令end ifIf sError= then RetrieveLoginDataelse Serror= 请登录 & & Serrorend ifsetsess Loginerror,Serror Setupreturnurl urlResponse.redirect urlSub RetrieveLogindataDim fieldvalueIf GetSess(Login)= then SetSess Login,Forceend ifLocateCustomer strLastName, stremail , strpasswordIf strCustomerID then

54、LngLoginCount=lngLoginCount+1 UpdateCustomerSessionData UpdateLoginData SetSess Login,strlastname SetSess realname,strlastname Else SError = SError & getlang(langLoginLocateFail) SetSess Login, end ifShopCloseDatabase dbcset rs=nothingend subSub UpdateLoginDataDim dbcon error resume nextOpenCustomer

55、DB dbcresponse.write Login count & lngLoginCountsql = update customers set sql = sql & logincount= & lnglogincountsql = sql & ,lastlogindate= & date() & sql = sql & ,lastlogindate= & datedelimit(date() )sql = sql & where contactid= & strcustomeriddbc.execute(sql)ShopCloseDatabase dbcend sub determin

56、e where to go toSub SetupReturnurl (url)if returnurl then if Serror= then url=returnurl exit sub else url=UserLogin.asp end if exit subend if If Getsess(Followonurl)= and getsess(Currenturl)= then If Serror= then url=getconfig(xhome) else url=UserLogin.asp end if exit sub end if If Serror= then url=

57、GetSess(FollowonURL)else url=getSess(CurrentURL)end ifend sub% 3.5 前台界面设计与实现前台界面设计与实现3.5.1 首页设计首页设计一般的电子商务网站，首页所含的信息量是非常大的，为了方便维护，对首页进行分块处理，然后用包含的方式，把各个块组装起来，这样不仅使页面结构清晰，而且维护方便。例程 3-5 为首页的参考代码。 例程 3-5 用户首页代码 3.6.1产品浏览页面 Dir.asp 和页面 list.asp 的实现类试，这里只介绍 list.asp 页面实现的核心部分。例程 3-6 为页面 ist.aspl 的开始部分代码。

58、 图 3-19 鲜花分类的目录式检索浏览页面 例程 3-6 list.asp 页面开始部分代码 在例程 3-6 中 pagenum 定义每页显示的产品数量，默认显示 16 个鲜花产品。！_ _#includefile=”commondb.asp”_ _引入 commondb.asp 公用文件。从例程 3-6 可以看出当产品个数大于 16 的时候，就需要显示在下一页，因此需要实现产品的分页显示，例程 3-7 为 list.asp 产品分页显示的代码。 例程 3-7 list.asp 产品分野显示的代码 UBound(aryReturn) thenendelment=UBound(aryRetur

59、n)end ifdim strSplitPage,allpageallpage=CInt(UBound(aryReturn)-LBound(aryReturn)/pagenum-0.5) +1strSplitPage=  &nPage&/&allpage& 页    dim startShow,endShow,nextShowif (nPage-5)allpage) thenendShow=allpageelseendShow=nPage+5end ifdim kFor k=startShow To endShowdim showon

60、eshowone=&k& strSplitPage=strSplitPage&showoneNextif (nPage1) thennextShow=上一页 end ifnextShow=nextShow   if (nPageallpage) thennextShow=nextShow&下一页 end if%   0 Thenif (n mod 4)=0) then response.write end if% % if (n mod 4)=3) then response.write end ifn=n+1end ifNext% 例程 3-8 为 l

61、ist.asp 显示产品的代码。 例程 3-8 list.asp 显示产品的代码0 Thenif (n mod 4)=0) then response.write end if% % if (n mod 4)=3) then response.write end ifn=n+1end ifNext% 例程 3-9 为页面 listone.asp 的参考代码。 例程 3-9 页面 listone.asp 的参考代码 a href=Detail.asp?id= target=_blank img alt=鲜花 border=0 height=80 src= width=80 销售价格：元a hre

62、f=javascript:add2cart() 例程 3-9 中 one 是在例程 3-8 中调用 Getproduct()方法得到的一个产品对象（one=Getproduct(aryreturn(i),one(FIELDNAME)等是获得产品的名称等属性。3.5.2 产品详细信息产品详细信息用户在产品浏览页面中单击某个产品，就会进入产品的详细信息页面，产品详细页面主要包含两部分内容：一部分是产品信息显示：另一部分是针对该产品的用户评论。图 3-20 为产品详细信息页面。 图 3-20 产品信息页面产品信息页面的实现文件问 Detail.asp,例程 3-10 为 Detail.asp 页面的

63、参考代码。 例程 3-10 Detail.asp 页面的参考代码   例程 3-10 中利用包含文件来显示单个产品的纤细信息；利用包含来显示针对该产品的所有评论信息。在页面中 Detailone.asp 先调用 Getproduct 方法得到产品对象，如例程 3-11所示/ 例程 3-11 调用 Getproduct 方法得到产品对象 % Dim one One=Getproduct (productid) If one(FIELDAYTOID) 在例程 3-11 得到产品对象后，然后调用类似 one(DIELDNAME)方法便可以得到产品名称等属性然后结合 HTML 控制便可以得到

64、图 3-10 所示的效果。主页面主要包含头、尾文件。经过处理得到产品 ID，如果没有就跳转到系统首页。Commentone.asp 页面主要显示用户针对该产品的所有评论，例程 3-12 为Commentone.asp 页面实现的参考代码。 例程 3-12 Commentone.asp 页面实现的参考代码 % dim dbc,rs,query shopopendatabase dbc query = select TOP 10 * from comment where productid = & productid & order by lasttime desc set rs = dbc.ex

65、ecute(query) dim content,ptime,pren,preply dim n n=0 Do WHILE not rs.EOF and n    %if (preply) then %   答复： 例程 3-12 中的 query = select TOP 10 * from comment where productid = & productid & order by lasttime desc语句，是从数据库 comment 表中得到相关产品的最后增加的前 10 条评论（按时间倒顺序排列，然后取前 10 条） 。3.5.3 我的购

66、物车页面设计我的购物车页面设计我的购物车页面主要暂存用户选择的预购买的产品，图 3-21 为购物车页面。. 图 3-21 购物车页面Cart.asp 购物车页面代码如例程 3-13 所示。 例程 3-13 cart.asp 购物车页面代码 %dim myactiondim cartstr,cartnumstrDimMyProductArray(20), MyNumArray(20),totalnum,MyProductArrayTmp,MyNumArrayTmpcartstr = getCartFromCookie()cartnumstr=getCartNumFromCookie()if (cartstr=NULL or cartstr =) thencartstr =end ifif (cartnumstr=NULL or cartnumstr =) thencartnumstr =end ifMyProductArrayTmp = Split(cartstr, ,-1,1) MyNumArrayTmp = Split(cartnumstr, ,-1,1) response.writ