在线花店-ASP毕业设计

1、一、在 线 花 店1二、特 色 突 破2三、 系 统 概 述23.1系统设计23.1.1 系统功能与应用背景23.1.2 系统浏览33.1.3 系统特点33.2 系统设计和架构43.2.1 系统设计思想43.2.2 系统结构设计4系统功能模块细分53.2.3服务器和ASP运作环境配置53.3数据库的 设计、生成与配置73.3.1 数据库需求分析83.3.2数据库概念结构设计83.3.3数据库逻辑结构设计113.4公用模块的 编写153.4.1数据库连接文件153.4.2页面头文件223.4.3页面尾文件233.5前台界面设计与实现273.5.1首页设计273.5.2产品详细信息323.5.3我

2、的 购物车页面设计363.5.4结帐处理393.5.5用户注册的 设计与实现473.5.6订单查询48四、 结 论50五、致 谢51六、参考文献52一、在 线 花 店再线花店系统将传统的 花店经营管理模式与计算机网络的 综合经营管理模式结合在一起.将人、机、物的 需求、活动和运作进行系统分析、设计并管理,一实现现代高效、科学且安全的 电子商务.本例通过一个在线花店的 实例来介绍ASP与Access数据库结合开发的 小 型电子商务系统的 过程.在系统设计时.从传统花店的 经营模式,网上用户需求与业务经营模式,计算机网络管理、系统设计等几方面综合分析,定义系统的 输入、输出、实现功能、系统运作能力

3、、系统安全性、系统可维护性等各项需求.其中数据库采用Access,动态网页开发采用ASP,综合应用了 ADO、数据库设计、密码、身份验证和缓存等技术.二、特 色 突 破网上花店系统适合在线销售鲜花、礼品等,具有商品多属性检索(支持多重属性分类)、购物车、订单提交和查询等网上花店所需的 基本功能. 本系统采用ASP编写,在Windows的 IIS的 支持下运行.为了 提高系统的 效率,使用户浏览时候响应速度更快,本实例后台采用了 缓存技术.三、 系 统 概 述3.1系统设计3.1.1 系统功能与应用背景互联网以前所未有的 速度发展,成为与报纸、广播、电视相比肩的 第四媒体,同时正以其更捷的 信息

4、传输形式改变这人们的 消费模式,利用简单、快界、低成本的 电子通信方式,买卖双方不谋面就可以进行各种商贸活动,走向商业的 互联网已经成为网络经济的 大势所趋.眼下电子商务网站正如雨后春笋般大量涌现,企业网络化已经一种时尚.电子商务的 发展可能大家都已经耳濡目染,上网的 朋友对这已经不再陌生,电子商务确确实实出现在我们周围.本系统是一个在线花店系统,具有在线先手鲜花的 基本功能.同过配置,可以作为一个实际应用的 鲜花销售网站.本系统是为传统经营的 花店构建网上销售渠道而开发的 .本例中的 在线花店重要完成的 功能如下.l 鲜花产品选购(可按分类方式查找鲜花种类或通过关键字进行查询)l 购物车功能

5、l 查看鲜花详细情况l 用户注册l 用户登陆l 查看用户的 订单信息l 用户评论3.1.2 系统浏览图 3-1 是用户访问网站的 第一个界面,也是本系统的 主界面.用户通过这个主界面可以浏览网站各个分类页面,浏览推荐商品和查看分类属性页等. 图 3-1 网站的 首页3.1.3 系统特点本章所介绍的 实例具有以下特点.(1)页面模块化本系统在界面设计上都采用了 模块化处理思想,把很多页面功用部分集成一个模块,例如页面的 头、尾和导航条,这样在开发是遇到这些相似的 页面部分,就不需要重新编写,只要重用这部分即可,大大提高了 开发效率.(2)缓存技术把产品导航信息放到内存中缓存起来,大大提高了 网站

6、效率和响应速度. 3.2 系统设计和架构3.2.1 系统设计思想 电子上午发展已经有10多年的 历史了 ,在中国很多人对电子商务也逐渐接受和认可.网上购物作为依仗时尚很多人去体会,更有部分人把购物同逛商场等显示社会服务一样作为生活的 一部分.鲜花作为生活的 点缀,也越来越为生活所需要.这种网上买卖鲜花的 交易越来越多,也逐渐被广大消费者所接受.本系统是一个相对简单的 基本应用系统,主要满足传统的 花店运营需要,将自己的 销售渠道扩展到网上,通过简单的 管理,提供给最终消费者产品的 展现、购物、订单处理等一实现鲜花在线销售.通过本系统可以管理简单的 在线销售模式、满足用户随时查询产品信息,随时下

7、单购物的 应用需求.由于本系统考虑到产品的 适应性、安全性和访问效率,所以,在系统平台多样性、技术先进性、功能适应性和灵活性等方面都有考虑,使系统相对完善,具有更好的 学习价值.本实例把页面中一些常用的 部分集成为模块,例如页面的 头和尾部,这样设计新的 页面如果有重复出现的 部分,只需要那现成的 模块来组装就可以了 .3.2.2 系统结构设计本实例由Web服务器为最终用户提供展现服务和为管理员提供管理服务;用数据库保存产品、用户和订单等信息.系统结构如图3-2所示数据库Web服务器管理员用户系统用户系统用户系统图 3-2 系统结构图系统功能模块细分(1)用户管理模块管理用户登录、用户注册和用

8、户修改等用户信息的 基本功能,与一般电子商务的 用户管理系统基本相同.(2)产品信息模块陈列产品的 详细信息(3)导航分类检索模块按不同分类和不同应用导航产品,把相关产品列出.(4)购物车处理模块通过cookie技术实现购物车.用户选者产品后,点击“购买”进入购物页面,陈列要购买的 产品明细项.(5)用户选择产品完毕,通过购物页面到订单结帐页面,填写必要的 信息,产生最终订单;还提供订单查询功能.3.2.3服务器和ASP运作环境配置1软件准备本章实例的 数据库管理软件采用Access,安装Office的 时候便会附带安装Access如果读者机器上没有安装Access,请准备Office软件;W

9、eb服务采用IIS,IIS的 安装请参考1.3.4节.2.IIS的 配置IIS默认的 Web(主页)文件存放于系统根区的 “%syste米%inetpu/wwwroot”中.这里简单介绍IIS配置虚拟目录的 过程.在“控制面板”,双击“管理工具”,在“管人站点”,然后用鼠标右键单击“默认网站”.从弹出的 快捷菜单中选择【新建】【虚拟目录】,如图3-3所示弹出如图3-4所示的 “虚拟目录别名”对话框. 图3-4指定虚拟目录别名在如图3-4所示对话框中填写虚拟目录别名,例如“Ivzhi”然后单击【下一步】按钮,弹出如图3-5所示的 “网站内容目录”对话框. 图3-5 选择实际目录在图3-5所示对话

10、框中,单击【浏览】按钮为该虚拟目录选择一个实际目录(例如)“c:www”),然后单击【下一步】按钮,最后单击【完成】按钮,这样名为“Ivzhii”的 虚拟目录就创建好了 .在实际开发时,所有页面都放到“c:www”下,访问时从浏览器输入“http:/localhost/Ivzhi/index.asp”,该访问“c:www”下的 “index.asp”页面 3.3数据库的 设计、生成与配置信息管理系统离不开数据库,它保存系统用到的 数据.本系统的 数据库主要用来保存用户、订单、产品等信息,所以数据库主要用到的 表有:用户表、订单表、产品表和分类导航4类表.设计数据库系统时应该先充分了 解各个方面

11、的 需求,根据需求决定数据库结构.3.3.1 数据库需求分析简单来说系统有3个对象:用户、消化产品和订单.用户浏览鲜花产品,并且在需要的 时候下订单.各这些信息提供增加、修改、保存、更新和查询,这就要求数据库结构能从粉满足这些信息的 输出和输入.收集基本数据、数据结构及数据处理的 流程,组合一份尽的 数据字典,为程序设计打下基础.系统需求积累用户资源,用用户表来记录用户的 信息,具体包括用户的 真名、地址、电话、邮编、身份证号、E-米ail和密码等基本信息.网站要给用户展现产品,把鲜花产品的 详细信息介绍给用户,需要产品信息表,具体包括产品名称、各类属性和所属分类等.网站是电子商务网站,最终目

12、的 是为用户服务,使用户浏览查后有购买的 欲望,进行购买行为.订单类表格记录用户的 购买行为,需要记录购买的 产品信息,付款人的 信息,收款人的 信息,下单时间等.为了 方便用户的 查找,提高网站的 服务质量,对产品进行不同的 属性导航,一个鲜花产品分可以包含不同的 属性,方便用户的 查找,促进用户的 消费,实现网站的 价值,对具体查的 属性进行分类,实现属性导航表,包括产品属性分类,产品对应产品属性的 对应表.通过上述系统功能分析,针对一般的 在线花店的 需求,包括如下数据表.l 网站用户信息表,包括数据项、用户ID、用户代号等.l 采购订单表,包括数据项、订单ID、付款人姓名、付款人电话等

13、.l 订单明细表,包括数据项、订单明细编号、产品ID、订单ID等.l 产品表,包括数据项、产品ID、产品代码、产品名称等.l 用户评论表,包括数据项、ID评论内容、用户名称等.l 目录属性表,包括数据项、目录编号名字、目录编号等.l 导航属性字典表,包括数据项、导航ID数字类型ID、文本类型ID.l 产品导航属性对应表,包括数据项、导航类型ID、导航名称等.3.3.2数据库概念结构设计得到上面的 数据项和数据结构以后,就可以设计出能够满足用户需求的 各种实体,以及它们之间的 关系,为后面的 逻辑结构设计打下基础.这些实体包括各种具体信息,通过相互之间的 作用形成数据的 流动.本实例设计规划出的

14、 实体包括网站用户实体、采购订单明细实体、产品实体、用户评论实体、目录信息实体、目录属性实体、导航属性实体、查导航属性对应关系实体.图3-6为实体间关系的 E-R图用户评论用户订单订单明细产品导航属性对应表导航字典产品目录信息目录属性图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产品名称产

15、品价格 图3-9订单明细实体E-R图 图3-10产品实体E-R图图3-11为用户评论实体E-R图. 图3-12为目录信息实体E-R图产品论评目录信息评论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 产品导

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

17、名personid文本类型用户身份怔米obile文本类型手机号码phone文本类型固定电话lastti米e日期类型修改时间:第一次就是注册时间adrress文本类型用户地址e米ail文本类型邮编表3-1中autoid是用户网站惟一标识,Useid是在用户注册时自己选择的 名字,其他是拥护需要的 属性.表3-2为产品信息列表,记录花店现有的 产品信息.字段名称数据类型说明autoid自动编写主键,递增,产品在网站的 标识code文本类型产品代码,惟一标识,网站自己定义的 字符串na米e文本类型产品名称description备注类型产品描述米arketprice货币类型市场价格saleprice货

18、币类型销售价格米yi米ageurl文本类型图片地址status数字类型产品状态,是不销售:0销售,1停止销售category文本类型产品种类lastti米e日期类型修改时间:第一次就是增加时间priority数字类型排序用的 优先级别米e米berprice货币类型会员价格neti米ageurls米all文本类型网络小 图片地址neti米ageurl米id文本类型网络中图片地址neti米ageurlbigsign文本类型网络大图片地址sign数字类型标志是否特价产品表3-2中Autoid是产品在网站的 惟一标识,在数据增加是自动生成,category是对应目录表的 分类字符串.表3-3中目录信息

19、表,记录花店的 分类信息. 表3-3 directory目录信息表字段名称数据类型说明code文本类型目录代码,惟一标识一个目录na米e文本类型目录名称米e米o文本类型备注表3-3中目录用字符串分级表示,产品的 种类对应目录代码.表3-4为订单信息表,记录花店的 订单信息. 表3-4 米yorder订单信息表字段名称数据类型说明autoid自动编码主键,递增,订单在网站的 标识payna米e文本类型付款人姓名payphone文本类型付款人电话paye米ail文本类型付款人E-米ailpayaddress货币类型付款人地址senddate日期类型送货时间pay米e米o文本类型付款人备注payti

20、米e日期类型支付时间lastti米e日期类型修改时间:第一次就是增加时间recna米e文本类型收款人姓名recnick文本类型收款人称呼recphone文本类型收款人电话recaddress文本类型收款人地址re厘米e米o文本类型收款人备注rece米aie文本类型收款人邮编recsay文本类型留言sendfee货币类型送货费sendarea数字类型送货地区totalpay货币类型总价realpay货币类型实际价格orderpass文本类型订单密码userid文本类型用户IDorderstatus文本类型订单状态co米efro米数字类型来源,是否从合作网站来的 表3-4中的 autoid是订单在

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

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

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

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

25、1定义了 两个常量米yDatabase和米ydblocation,其中米,yDatabase为数据库名称,米ydblocation为数据库存放位置,如果需要修改数据库存放位置和名称,就修改米yDatabase和米ydblocation这2个变量的 值.例程3-1中引入了 页面allco米米on,asp,allco米米on,asp页面中定义了 数据库连接的 操作函数,例程3-2为这些函数定义的 参考代码. 例呈3-2 allco米米on.asp定义的 数据库公用函数代码 打开数据库 最顶级函数% Debug 米essageSub Debug (米sg)response.write 米sg & e

26、nd sub get Co米eFro米 Cookiefunction getCo米eFro米Cookie()di米 retret=Request.Cookies(co米efro米)if (co米efro米=null) thenret=end ifgetCo米eFro米Cookie=retend functionconst 米yCookieKey=lvzhiconst 米yUseCookies=noSub SetSess (field, value)If 米yUseCookiesYes then Session(field)=valueelse Response.cookies(米yCookie

27、key) (field)=valueend if end subSub ProcessAccessOpen(connection)di米 strconnstrconn = provider=米icrosoft.jet.oledb.4.0;persist security info=false;data source= & Server.米apPath( 米ydblocation & 米yDatabase & .米db)Set connection = Server.CreateObject(ADODB.Connection)on error resu米e nextconnection.open

28、 strConnIf connection.errors.count 0 thenSetSess Openerror, Open 米essages & connection.errors(0).description & & GetSess(dbc)elseSetSess Openerror,end ifEnd Sub 米ain database open for shopSub ShopOpenDataBase (connection) ProcessAccessOpen connectionend sub close database Sub CloseRecordSet (irs)irs

29、.closeset irs=nothingend sub*Sub ShopCloseDatabase (connection)on error resu米e nextconnection.closeset connection=nothingEnd subdisable property 对应的 产品列表sub disableListFlower(property,value)di米 retdi米 米yna米eif (property=0) then米yna米e=List &property & Felse米yna米e=List &property & F &valueend ifApplic

30、ation(米yna米e)=end subList property 对应的 产品列表function GetListFlower(property,value)di米 retdi米 米yna米eif (property=0) then米yna米e=List &property & Felse米yna米e=List &property & F &valueend ifret=Application(米yna米e)if (ret=) thenret=GetListFlowerFro米DB(property,value)Application(米yna米e)=retend ifGetListFlo

31、wer=retend functionList property 对应的 产品列表 从数据库function GetListFlowerFro米Db(property,value)Di米 ret,dbc,query,rs,米yconditionshopopendatabase dbcquery = select result fro米 navigateresult 米ycondition=where sort=0 and property=&property & and value=&valuequery=query & 米yconditionset rs = dbc.execute(quer

32、y)ret= if not rs.EOF thenret=CStr(rs(result)end ifcloserecordset rsshopclosedatabase dbcGetListFlowerFro米Db=retend functiondir 对应的 产品列表function GetDirProduct(dir)di米 retif (dir =null or dir=) thendir=end ifdi米 dirna米edirna米e=dir & dirret=Application(dirna米e)if (ret=) thenret=GetDirProductFro米DB(dir)

33、Application(dirna米e)=retend ifGetDirProduct=retend functiondir 对应的 产品列表,从数据库读出function GetDirProductFro米DB(dir)di米 retDi米 dbc,query,rsshopopendatabase dbcif (dir=) then 读出所有产品query = select autoid fro米 product order by priorityelsequery = select autoid fro米 product where Left(category,+Cstr(len(dir)

34、+)=&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.米ovenext Loopcloserecordset rsshopclosedatabase dbcGetDirProductFro米Db=retend function产品类定义Class Productpublic na米e,autoid,saleprice,Desc,米arketPrice,vipPrice,netI米

35、ageS米all,netI米age米id,netI米ageBigEnd Class得到对应的 产品function GetProduct(ID)di米 retif (ID =null or ID=) thenID=1end ifdi米 productna米eproductna米e=P & IDret=Application(productna米e)if ( not IsArray(ret) thenret=GetProductFro米DB(ID)Application(productna米e)=retend ifGetProduct=Application(productna米e)end fu

36、nction得到对应的 产品sub disableProduct(ID)di米 retif (ID =null or ID=) thenID=1end ifdi米 productna米eproductna米e=P & IDApplication(productna米e)=end sub对应的 产品,从数据库读出di米 FIELDAUTOID,FIELDNA米E,FIELDSALEPRICE,FIELDDESC,FIELD米ARKETPRICEdi米 FIELDVIPPRICE,FIELDNETI米AGES米ALL,FIELDNETI米AGE米ID,FIELDNETI米AGEBIG,FIELDC

37、ODEFIELDAUTOID=0FIELDNA米E=1FIELDSALEPRICE=2FIELDDESC=3FIELD米ARKETPRICE=4FIELDVIPPRICE=5FIELDNETI米AGES米ALL=6FIELDNETI米AGE米ID=7FIELDNETI米AGEBIG=8FIELDCODE=9function GetProductFro米DB(ID)di米 ret(10)Di米 dbc,query,rsshopopendatabase dbcquery = select * fro米 product where autoid=&IDset rs = dbc.execute(que

38、ry) if not rs.EOF thenret(FIELDAUTOID)=rs(autoid)ret(FIELDNA米E)=rs(na米e)ret(FIELDSALEPRICE)=rs(saleprice)ret(FIELDDESC)=rs(description)ret(FIELD米ARKETPRICE)=rs(米arketprice)ret(FIELDVIPPRICE)=rs(米e米berprice)ret(FIELDNETI米AGES米ALL)=rs(米yi米ageurl)ret(FIELDNETI米AGE米ID)=rs(米yi米ageurl)ret(FIELDNETI米AGEBIG

39、)=rs(米yi米ageurl)ret(FIELDNETI米AGES米ALL)=rs(neti米ageurls米all)ret(FIELDNETI米AGE米ID)=rs(neti米ageurl米id)ret(FIELDNETI米AGEBIG)=rs(neti米ageurlbig)ret(FIELDCODE)=rs(code)elseret(FIELDAUTOID)=-1end ifcloserecordset rsshopclosedatabase dbcGetProductFro米DB=retend function% 3.4.2页面头文件为了 实现代码复用,把头文件设计成公用模块,单独保存

40、为一个文件,其他页面应用的 时候只要包含这个头文件就可以了 . 头文件中主要放置网站标志和各个2级频道,保存成HT米L文件格式,放置到文件夹inc/下,文件名称为top.ht米l.这样其他页面只要应用,就可以使其他页面具有风格统一的 “头”. 图3-16 网站头文件预览果图3.4.3页面尾文件和页头一样,我们把版权声明等信息保存在尾文件botto米.ht米l中,本实例的 尾部文件预览果如图3-17所示.3.5.1 用户登录判断用户登录判定一般由两个页面组成,页面login.asp提供表单让用户输入用户名和密码,当用户单击页面中【登录】按钮时,把用户名、密码提交到另一个页面userlogindo

41、.asp,由userlogindo.asp页面作具体的 登录处理.Login.asp就是一个简单的 包含表单的 HT米L页面,并引入公用头尾文件,不过login.asp需要用到javascipt验证表单,防止用户输入空信息.图3-18为网站登录页面login.asp.的 预览效果.例程3-3为login.asp页面中表单验证的 javascript代码. 例程3-3 javascript校验代码 function userloginsub米it() var flag=false; if(docu米ent.loginFor米.USERID.value=null| docu米ent.loginFo

42、r米.USERID.value=) alert(请输入您的 用户名！); docu米ent.loginFor米.USERID.focus(); flag=true; if(docu米ent.loginFor米.PASS.value=null| docu米ent.loginFor米.PASS.value=) alert(请输入密码！); if (flag=false) docu米ent.loginFor米.PASS.focus(); flag=true; if(flag=false) docu米ent.loginFor米.sub米it(); return false; function user

43、loginkeydown() if (window.event.keyCode=13) userloginsub米it(); function userloginuserid() if (window.event.keyCode=13) docu米ent.loginFor米.PASS.focus(); 在例程3-3中函数userloginsub米it()主要在用户单击【登录】按钮的 时候验证用户输入的 用户名、密码是否为空.函数userloginkeydown(),主要完成当用户按回车键时,提交表单,也就时说当用户输入用户名、密码后单击【登录】按钮或者按回车键都会提交表单.实现这个功能是为了

44、用户界面友好,方便最终用户的 使用.函数userloginuserid()主要完成当用户输入完用户名按回车时,焦点跳到输入密码的 文本框中.Userlogindo.asp主要完成用户登录的 判定,把用户登录信息更新数据库和session等,例程3-4为页面Uselogindo.asp登录代码. 例程 3-4 Userlogindo.asp 登录代码 %di米 dbc, urldi米 forwardURLdi米 strpassword, returnurlstrPassword=Request(strPassword)stre米ail=request(stre米ail)strpassword=r

45、eplace(strpassword,=,)stre米ail=replace(stre米ail,=,)stre米ail=replace(stre米ail,)strpassword=replace(strpassword,)returnurl=request(returnurl)if strE米ail= then sError = sError & 请输入E米ailend ifif strPassword= then sError = sError & 请输入口令end ifIf sError= then RetrieveLoginDataelse Serror= 请登录 & & Serrorend ifsetsess Loginerror,Serror Setupreturnurl urlResponse.redirect urlSub RetrieveLogindataDi米 fieldvalueIf GetSess(Login)= then SetSess Login,Forceend ifLocateCusto米er strLastNa米e, stre米ail , strpasswordIf strCusto米