专业课程设计及实验模板

1、赣南师范学院数计学院2014-2015第二学期软件工程课程设计项目名称: 影片租赁系统的设计与实现班 级 12计本 小组成员 范占强、汤羊羊、占艳锋 学 号 120703050、120703069、120703081 完成日期 2015年6月25日 小组成员分工说明:目 录1.引言2.可行性分析3.系统分析 3.1 功能需求说明 3.2 用例模型 3.3 用例说明 3.4 性能需求说明 3.5 运行环境说明 3.6 数据库概念设计(ER图)4.系统概要设计 4.1 系统功能模块图 4.2 系统功能模块说明 4.3 类图及说明 4.4 时序图 4.5 数据库物理设计5.系统详细设计 5.1 主要

2、模块的算法(活动图或流程图表示) 5.2 界面设计 5.3 数据输入/出设计6.实现(关键性代码)7.总结1.引言随着时代的进步，社会生产力高速发展，新技术层出不穷信息量急剧膨胀，整个人类社会已成为信息化的社会人们对信息和数据的利用和处理已经进入自动化、网络化和社会化的阶段。如在查找情报资料、处理银行帐目、仓库管理、科研生产等方面，无不需要利用大量的信息资源。因此，如何有效地进行数据信息的管理和利用，已经成为人们普遍关注的课题。互联网发展速度迅猛，电子商务成为21世纪商务发展道路上的一大热点，随着宽带网络的普及及互联网应用方式的发展，电子商务正以前所未有的速度对传统的商务方式及理论造成可很大的

3、冲击。并对以往的商务方式所进行的行业进行可很大程度的渗透。电子商务以其低廉的成本，相对方便的应用，以及互联网络所带来的前所未有的宣传效应，正成为商务活动发展的一个至关重要的平台。因此我们想开发一个在线的影片租赁系统，以此来表达我们对电子商务发展的拥护和对其前景的看好。2.可行性分析2.1经济可行性分析 1、成本：成本较低，无需大量资金，现已有一部分计算机等所需设备，可充分利用，节约不少设备资金。2、直接经济效益：1）提高工作效率，减少影片管理时消耗的时间，降低时间成本；2）及时掌握影片的租赁信息，以减少因影片归还延期或不还造成的经济损失；3）便于影片的集中管理，提高查询速度随时了解不同时期影片

4、的购入情况和库存量。2.2操作可行性分析 如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本的降低. 系统有友好的用户界面、有良好的安全性设置、有详细的操作说明书，这样更使各类用户很快地掌握系统的使用方法,操作友好因此在操作上是可行的。2.3技术可行性分析 从目前IT业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，ASP.Net和ACCESS数据库的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了业界软件开发一直坚持的非常友好、操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库接口。所以技术实行起来相对会容易。3.系统分析3.1 功能需求

5、说明传统的影片出租方式是以客户到固定的店面进行挑选，确定后找店员进行登记，交押金以后才能把片子带走，这种出租方式过程中的一些过程非常烦琐，给客户和店主带来的许多的不便。比如：商店的选址，客户在遇到业务繁忙的情况等等,这就容易造成一些本来可以避免的错误的发生。因此，我们在开发在线的影片租赁系统的时，应对传统出租过程中的一些问题进行分析，并对其进行修改。综上所述，影片租赁系统客户界面部分在开发的时候主要的功能、大致如下：客户界面部分用户的登陆和注册个人信息的查看修改影片的浏览影片的预定租赁信息的查看3.2用例模型3.2.1参与者图3.1 参与者 参与者由用户、租赁用户、普通管理员、系统管理员组成。

6、3.2.2后台管理图3.2 后台管理后台管理主要包括普通管理员和系统管理员的管理权限，以及各自主要的工作。普通管理员拥有管理影片、影片库存、影片的类型、用户的支付方式以及管理订单。系统管理员拥有管理影片供应商的信息、管理普通管理员团、管理租赁用户、统计数据、发布公告、初始化系统、恢复数据、备份数据、导入导出数据等权限。3.2.3前台租赁图3.3前台租赁租赁用户搜索要租赁的影片，把影片添加到购物车，租赁用户可以向购物车添加影片和删除影片，并可以修改购物车内影片的数量，生成订单，进入结算中心。3.2.4 租赁用户的管理图3.4租赁用户的管理租赁用户注册并登陆系统可查看和修改个人资料，也可查看自己所

7、订的影片信息（查看历史订单和当前订单）。系统管理员拥有删除租赁用户的权限。3.3用例说明本用例描述用户租赁的过程事件流1.基本流 1.用户查看影片信息来确认影片的名字价格、基本内容，租借时间。 2.用户通过影片租赁系统来确认影片的状态。 3.用户通过影片租赁系统向管理者租借影片。 4.系统确认用户的请求并由管理员收取费用。 5.管理人员在数据服务器上管理电影信息（修改，添加，删除） 6.将管理人员所做的改动返回数据服务器 7.系统保存管理人员所做改动，并备份原数据备选流 2a如果用户想要租借的影片已被租借完，给出提示，并返回。 4a如果管理员确认用户的请求失败，给出提示，并返回。用例名称：用户

8、注册描述：在租赁影片前，用户必须先在该系统中注册一个账号，以便于系统更好的管理用户，每一个账号只能针对以为用户，这样方便于系统对客户进行一对一管理。前置条件：无部署约束：无正常事件流（1） 进入注册界面（2） 填写账号和密码（3） 填写用户信息（4） 确认用户信息（5） 注册成功，进入系统主页面异常事件流（1） 用户账号或密码不符合系统要求，返回注册界面（2） 用户信息不符合系统要求，返回用户填写信息界面用例名称：用户登录描述：用户在使用系统之前，必须先要通过自己注册的账号登陆。前置条件：用户已注册部署约束：无正常事件流（1） 进入登陆界面（2） 输入账号密码等待系统确认（3） 登陆成功，进入

9、搜索界面异常事件流（1） 用户密码错误，返回登陆界面（2） 用户验证码错误，返回登陆界面（3） 等待响应事件过长，系统没有响应用例名称：查询影片描述：用户根据自己的需要按要求筛选自己所需要的影片前置条件：无部署约束：无（1） 进入搜索界面（2） 输入影片的名字（3） 浏览所需影片的信息（4） 返回搜索界面用例名称：用户租赁描述：用户利用该系统租赁影片前置条件：用户已登陆部署约束：无正常事件流：（1）用户进入搜索界面（3）用户查找和浏览所需影片（4）显示所需影片（5）返回查找界面（6）查找到所需影片，进行预租（7）进入预租界面（8）加入购物车（9）是否继续查找影片（10）确认预租订单（11）选择

10、付款方式（12）支付订单款（13）支付成功，等待订单的处理（14）返回主界面异常事件流异常事件：登陆失败（1） 密码错误返回登陆界面（2） 验证码错误返回登陆界面异常事件：预租失败(1) 该影片被租借完，返回预租界面(2) 该影片不存在，返回搜索界面(3) 网络异常支付押金失败，返回支付界面(4) 账户金额不足，支付预租失败可选事件：影片不存在（1） 查找影片不存在（2） 向管理者提出请求（3） 提供该影片名字（4） 发送请求用例名称：修改用户信息描述：修改自己账号的个人信息前置条件：用户已登陆部署约束：无正常事件流（1） 进入个人信息管理（2） 查询个人信息（3） 修改个人信息（4） 确认修

11、改信息（5） 修改成功用例名称：查询订单描述：用户登陆系统后，可以查询当前订单还有历史订单前置条件：用户有租赁记录部署约束：无正常事件流（1） 进入查询界面（2） 查询已租借订单信息（3） 查看租借影片的详细信息用例名称：删除历史订单描述：用户登陆自己的账号后，可以删除历史订单前置条件：用户已登陆部署约束：无正常事件流（1） 进入已租赁订单界面（2） 删除已归还影片订单（3） 删除成功，返回以租赁订单界面用例名称：退出登陆描述：使用户的账号安全退出前置条件：用户已登录部署约束：无正常事件流（1） 进入主界面（2） 退出系统（3） 确定退出登陆（4） 成功退出登陆用户模板表编号用例名称描述1用户

12、注册在租赁影片前，用户必须先在该系统中注册一个账号，以便于系统更好的管理用户，每一个账号只能针对以为用户，这样方便于系统对客户进行一对一管理。2用户登录用户在使用系统之前，必须先要通过自己注册的账号登陆3用户租赁用户利用该系统进行租赁4查询影片用户根据自己的需要按要求筛选自己所需要的影片5查看当前订单用户登陆系统后，可以查询当前订单还有历史订单6删除历史订单用户登陆自己的账号后，可以删除历史订单7修改个人信息修改自己账号的个人信息8退出登陆用户的账号安全退出表3.1用户模板表用例名称：管理员注册描述：管理员在对系统进行操作前，需要注册一个账号，一位管理员只能使用一个账号，这样方便区分是哪一个管

13、理员对系统进行管理等操作。前置条件：无部署约束：无正常事件流（6） 进入注册界面（7） 填写账号和密码（8） 确认密码（9） 注册成功，进入搜索界面异常事件流（3） 管理员密码不符合系统要求，返回注册界面（4） 用户信息不符合系统要求，返回用户填写信息界面用例名称：管理员登录描述：用户在使用系统之前，必须先要通过自己注册的账号登陆。前置条件：管理员已注册部署约束：无正常事件流（4） 进入登陆界面（5） 输入账号密码等待系统确认（6） 登陆成功，进入搜索界面异常事件流（4） 用户密码错误，返回登陆界面（5） 用户验证码错误，返回登陆界面（6） 等待响应事件过长，系统没有响应用例名称：管理租赁订单

14、描述：对用户订单处理的操作前置条件：用户提出订单部署约束：无正常事件流（1） 进入管理界面（2） 接受用户的订单（3） 更新影片的数据库（4） 提示用户已接受订单用例名称：管理用户信息描述：管理者对用户的信息进行管理等操作前置条件：管理者登陆成功部署约束：无正常事件流（1） 进入查询界面（2） 查询用户信息（3） 对逾期未满一个月的客户，发出提示进行催促。（4） 对逾期未还超过三个月的客户，删除它的租借订单（5） 返回查询界面异常事件流（1） 操作不成功，返回操作界面（2） 网络异常，系统没用响应用例名称：管理影片信息描述：管理者对影片进行更新，删除等操作前置条件：无部署约束：无正常事件流（1

15、） 进入管理界面（2） 上传新影片的信息（3） 上传成功（4） 更新数据库（5） 返回上传界面用例名称：退出登陆描述：使管理者的账号安全退出前置条件：管理者已登录部署约束：无正常事件流（1） 进入主界面（2） 退出系统（3） 确定退出登陆（4） 成功退出登陆管理员模板表编号用例名称描述1管理者注册管理员在对系统进行操作前，需要注册一个账号，一位管理员只能使用一个账号，这样方便区分是哪一个管理员对系统进行管理等操作。2管理者登陆用户在使用系统之前，必须先要通过自己注册的账号登陆3处理用户租赁订单对用户订单处理的操作4管理用户信息管理者对用户的信息进行管理的操作5管理数据库管理者对影片进行更新，删

16、除等操作6退出登陆管理者的账号安全退出表3.2管理员模板表3.4性能需求说明开发环境：windows操作系统服务器：IIS5.X开发工具：ASP、ACCESS数据库、Dreamweaver运行环境的基本需求：IE浏览器3.5运行环境说明软件运行环境：WindowsXP专业版内存：128MB硬盘：20G3.6数据库概念设计数据库概念结构设计阶段是在需求分析的基础上，依照需求分析中的信息要求，对用户信息加以分类、聚集、和概括，建立信息模型。下面是根据数据库概念设计，得出的实体E-R图：（1） 供应商：供应商ID 供应商地址 电话 e-mail邮箱 （2） 影片：影片类型 影片ID 简介 图片（3）

17、 顾客：顾客ID 电话 地址 身份证号码 （4） 租赁信息：租借时间 影片ID 用户ID 归还时间 押金 退还金额（5） 用户分为普通用户和管理员用户 影片从属与影片类型 一个用户可以拥有多个预定和租借关系 一部影片也可以同时拥有多个用户租赁和预定 一个租赁关系只能拥有一个相对应的租赁信息图3.5总E-R图图3.6 管理员E-R图图3.7 影片类别E-R图图3.8订单详情E-R图图3.9注册用户E-R图图3.10租赁信息E-R图图3.11影片信息E-R图图3.12供应商E-R图图3.13支付方式E-R图4.系统概要设计4.1系统功能模块图图4.1 登陆模

18、块图4.2用户模块图4.3普通管理员模块图4.4 系统管理员模块4.2系统功能模块说明（1）登陆：登陆界面分为两种用户登陆。用户登陆和管理员登陆（2）租赁信息：顾客可以了解租赁的时间，租赁多久返还，价格数量，如果是会员的话租赁时间可以比普通客户租赁时间长一个星期。（3）查看修改个人信息：顾客在注册之后可以通过登陆系统查看自己的信息和修改自己的信息。（4）筛选影片：顾客登陆系统后，可一按条件筛选自己需要的影片。（5）预定影片：顾客可以通过系统预定要租赁的影片。（6）影片预览：顾客在租赁前可以先预览影片前十分钟。（7）支付租金：顾客在确定支付后，根据需要选择不同的支付方式（支付宝、银行卡）支付一定

19、的租金。（8）查看用户租赁信息：管理员可以查看客户租赁的具体影片，租赁时间，返还时间，如果客户没有在规定的日期返还影片，管理员可以根据逾期时间扣除客户相应的押金。（9）查看当前订单：管理员可以查看客户已租赁的影片和已预订的影片。（10）关闭账号：管理员可以关闭系统账号。（11）删除租赁用户：如果客户逾期（月以上）没有返还影片或者长时间（一年以上）管理员可以删除租赁用户。（12）管理影片：普通管理员将影片分类，管理影片的库存。（13）配置系统：系统管理员可以对系统进行配置。（14）备份数据：系统管理员在修复或者更新系统是可以备份数据。（15）发布公告：系统管理员可以在系统中发布公告，比如暂停租赁

20、，系统维护中等。（16）管理普通管理员：系统管理员可以新增和删除普通管理员。（17）恢复数据：如果系统出现故障，系统管理员可以恢复系统中的所有数据。4.3类图及说明4.3.1、实体类图图4.5 实体类图实体类名称属性管理员ID、姓名、密码、类型影片类别ID、类型、描述、图片订单详情订单ID、顾客ID、影片价格、供应商ID、影片数量注册用户ID、姓名身份证号、地址、电话、邮箱、登录密码影片信息ID、名字、供应商ID、价格、简介、图片租赁信息顾客ID、租赁ID、租赁日期、租赁数量、归还日期、退还金额、押金供应商ID、名字、地址、电话、e-mail支付方式支付宝、现金、网银表4.1实体类表属性4.3

21、.2、控制类图图4.6控制类图控制类名称控制类属性查询当前订单当前订单、注册用户、租赁查询个人资料个人资料页面、注册用户、查看当前订单、查看历史订单查询历史订单历史订单、注册用户、租赁 处理登录注册页面、注册用户检查未处理订单租赁用户、租赁 处理账号关闭显示当前账号、注册用户处理注册注册页面、注册用户显示当前账号 关闭账号页面、处理账号关闭、删除用户页面、注册用户表4.2控制类表属性4.3.3边界类图图4.7 边界类图边界类名称边界类属性当前订单租赁用户、查询当前订单登录页面租赁用户、处理登录个人资料页面租赁用户、注册用户、查看当前订单、查看历史订单、查询个人资料关闭账号页面租赁用户、显示当前

22、账号历史订单租赁用户、查询历史订单、删除用户页面系统管理员、显示当前账号、关闭账号注册页面租赁用户、处理注册表4.3边界类图属性4.4 时序图4.4.1 查看当前订单图4.8查看当前订单用户登录个人注册的账号进入当前订单页面可以查询当前的订单，又从最后一层把信息逐一反馈给用户。4.4.2查看个人资料图4.9查看个人资料租赁用户登录账号后，进入资料设置页面查看自己的资料，个人资料中包括个人基本信息、当前订单和历史订单。4.4.3删除用户图4.10 删除用户系统管理员登录系统系统可以对已经注册的用户进行删除管理，进入删除用户页面，页面中显示要删除的用户当前账号，再处理删除就完成了用户账号的删除。4

23、.4.4用户登录图4.11用户登录租赁用户登录账号，首先点击进入登录页面，输入用户名和密码最后输入验证码，反馈信息登陆成功。4.4.5注册用户图4.12注册用户租赁用户确定注册账号后，进入注册账号页面，填写进本信息，系统会自动处理注册，提示提醒用户填入必填的信息，用户填写完后系统处理注册，最后把注册用户确认输入的信息，用户确认后系统再成功这条信息反馈给用户。4.4.6注销登陆图4.13 注销登录租赁用户登录后，也可以关闭账号即退出登录。用户进入关闭账号页面，选择关闭后，系统处理账号关闭，提示用户是否确认关闭，确认后关闭账号，把成功注销这条信息反馈给租赁用户。4.5数据库物理设计系统的物理结构如

24、下：  租价方案表:字段名描述键类型 长度空值 默认值PMT_ID_N租价方案IDautocountNot NullPMT_Price_N日租价singleNot Null0PMT_Deposit_N押金singleNot NullPMT_Description_N租价方案描述varchar50Not Null0PMT_LateFee_N滞纳金singleNot Null0 供应商信息表:字段名描述键类型 长度空值 默认值PI_ID_N供应商ID autocountNot NullPI_Name_S名称varcharNot

25、NullPI_Description_S描述varchar250 系统信息表:字段名描述键类型 长度空值 默认值SI_Owner_S系统使用者 varchar 250SI_Copyright_N版权所有者 varchar 200SI_About_S关于varchar  250SI_Logo_S Logo地址varchar250SI_Content_S 联系人varchar250 租赁信息表:字段名 描述 键 类型 长度 空值&

26、#160;默认值TAC_ID_N 租赁号  auto count  Not Null TAC_VI_ID_FN 租赁影片ID  int  Not Null TAC_UI_ID_FN 租赁用户ID  int  Not Null TAC_ReserveTime_D 预定时间  datetime  Not Null TAC_TimeOut_B 是否超时&

27、#160; datetime  Not Null FalseTAC_Return_B 是否返还  boolean  Not Null FalseTAC_StartTime_D 起租时间  datetime   TAC_Lease_N 租期  int   1TAC_EndTime_D 结租时间  datetime   T

28、AC_UserPayment_N 用户付款数  single   0TAC_Status_N 租赁状态  int  Not Null 影片承载介质表:字段名描述键类型 长度空值 默认值TI_ID_N介质IDautocountNot NullTI_Description_S介质名varchar100Not Null影片信息表:字段名描述键类型 长度空值 默认值VI_ID_N影片IDautocountNot NullVI_TI_ID_FN影

29、片介质IDintNot Null VI_VS_ID_FN影片类型IDintNot NullVI_PMT_ID_FN租价方案IDintNot NullVI_PI_ID_FN 供应商IDint Not NullVI_Title_S影片名varchar50Not Null VI_Content_S 内容  big50Not Null VI_Director_S 导演  varchar 100VI_Issuer_S 发行商  varchar V

30、I_Rank_N评价 int Not Null1VI_RentCount_N 出租次数int   Not Null 0VI_Count_N 浏览计数int   Not Null 0VI_Status_N 影片状态int  Not Null1VI_AddTime_D 添加时间datetime Not Null Now()VI_Img_S  图片地址varchar 150影片类型表:字段名描述键类型 

31、长度空值 默认值VS_ID_N影片类型IDautocountNot NullVS_Description_S描述varchar50Not NullVS_Count_N类型浏览技术intNot Null0VS_RentCount_N类型租赁计数intNot Null0 用户信息表:字段名描述键类型 长度空值 默认值字段名用户IDautocountNot NullUI_PI_ID_FN供应商IDintNot Null 0UI_Name_S  密码varchar100Not NullUI_IsLock_B用户是否锁定 b

32、oolean Not NullFalseUI_CerRank_N信用级别intNot Null0UI_IsProvider_B用户是否为供应商booleanNot NullFalseUI_Email_SEmailvarchar50Not NullUI_QQ_SQQvarchar20 UI_IsAdmin_B用户是否为管理员 boolean   Not NullFalseUI_RentCount_N用户租赁计数int Not Null05.系统详细设计5.1主要模块的算法（活动图或流程图表示）5.1.1租赁流程活动图图5.1租

33、赁流程活动图用户通过注册的账号登陆，登陆成功可以查看影片，通过系统的帅选功能搜索到自己想要的影片，然后添加到购物车，提交订单成功，会提供网上银行信息，用户自己选择付款方式，租赁成功后商家就会立即发货。5.1.2 商品状态图图5.2商品状态图租赁用户选定影片加入购物车，租赁用户可删除也可加入购物车内的影片，当确认购物车内的影片时，确认生成订单，选择付款方式，支付成功，影片出库，如果影片缺货，有管理员采购影片并发货。5.1.3租赁订单处理活动图图5.3租赁订单处理活动图租赁用户提交订单，管理员联系租赁用户确认支付方式，并修改订单信息。租赁用户提交订单时，管理员检查订单，并检查库存，修改订单。5.1

34、.4租赁用户的账号管理图5.4租赁用户的账号管理用户注册账号，登陆系统，当在线时间过长或账号出现异常，账号自动离线，并要求重新登陆。5.2界面设计用户界面信息用户资料管理界面用户租赁信息界面用户预订影片界面6.实现（关键性代码）6.1用户注册代码If Request("IsReg")<>"" Then   '判断用户输入的合法性 用户名、密码、确认密码、Email不能为空 If Request("UserName")="" Or Request("

35、;UserPassword")=""&_ Or Request("ConfirmPassword")="" Or Request("Email")="" Then  ResultMsg("必填的项目没有填写，请返回重新填写完整的信息！")  Response.End End If 用户名不能为一排空格 Dim tmpUserName For i=1 To Len(Req

36、uest("UserName")  tmpUserName=tmpUserName&" " Next If tmpUserName=Request("UserName") Then  ResultMsg("请不要输入空格代替必填项目，请返回重新填写完整的信息！")  Response.End End If 密码与确认密码的输入必须匹配 If Request("UserPassword&qu

37、ot;)<>Request("ConfirmPassword") Then  ResultMsg("两次输入的密码不匹配，请返回重新输入！")  Response.End End If Email必须符合格式 If IsValidEmail(Request("Email")=False Then  ResultMsg("Email输入不符合规范，请返回重新输入！")  Response.End&

38、#160;End If 若QQ号不为空，则输入必须为数字 If Request("QQ")<>"" Then  If IsNumeric(Request("QQ")=False Then   ResultMsg("QQ号码必须为数字，请返回重新输入！")   Response.End  End If End If 用户名与密码中不能包含SQL字符“”If InStr

39、(Request("UserName"),"'")>0 Or InStr(Request("UserPassword"),"'")>0 Then  ResultMsg("字符“'”为非法输入，请去掉此字符！")  Response.End End If 用户名、密码、Email和QQ的字符数量不能超过数据库项目的数据类型的限制 If Len(Request("UserName&qu

40、ot;)>20 Or Len(Request("UserPassword")>20&_ Or Len(Request("Email")>50 Or Len(Request("QQ")>20 Then  ResultMsg("输入超出了最大字符数量限制（用户名20字符以内”&_”，密码20字符以内，Email 50字符以内，QQ 20字符以内。）")  Response.End End If '取得用

41、户输入 Dim UserName,UserPassword,Email,QQ UserName=Server.HTMLEncode(Request("UserName") '根据用户名判断用户是否已存在 strSQL="SELECT UI_Name_S FROM UserInfo”&_” WHERE UI_Name_S='"&Request("UserName")&"'" Set objRS=Server.Create

42、Object("ADODB.RecordSet") objRS.Open strSQL,objConn,1,3 如果没有找到任何用户，则输出操作信息 If Not objRS.BOF Or Not objRS.BOF Then  ResultMsg("所注册的用户名已存在，请更换用户重新注册！")  Response.End End If objRS.Close '将用户信息写入数据库 strSQL="INSERT INTO U

43、serInfo (UI_PI_ID_FN,UI_Name_S,UI_Password_S”&_”,UI_IsLocked_B”,UI_CerRank_N,UI_IsProvider_B,UI_Email_S,UI_QQ_S,”&_”UI_IsAdmin_B,UI_RentCount_N)VALUES(0,'"&UserName&"','"&UserPassword&_"',False,0,False,'"&Email&"',

44、'"&QQ&"',False,0)" objConn.Execute(strSQL) ResultMsg("您的注册已成功！") Set objRS=Nothing CloseDatabaseElse6.1.2用户登录界面代码Dim strSQL,objRSSet objRS=Server.CreateObject("ADODB.RecordSet")'取得用户文件名、密码Dim UserName,UserPassword'过滤SQL字符

45、，防止SQL漏洞注入UserName=ChkSQL(Request("UserName") UserPassword= Request("UserPassword")'在数据库中查找用户strSQL="SELECT * FROM UserInfo WHERE UI_Name_S='"&UserName&"'"objRS.Open strSQL,objConn,1,3'判断用户是否存在'若用户不存在则通过GetErr()函数提交并显示错误代码If objRS.B

46、OF Or objrs.EOF Then objRS.Close  Set objRS=Nothing Response.Write GetErr(3) Response.EndElse '若用户存在，则检测用户密码的正误 If objRS("UI_Password_S")<>UserPassword Then  objRS.Close  Set objRS=Nothing  Response.Write GetErr(4) 

47、 Response.End End IF '判断用户是否被锁定 If objRS("UI_IsLocked_B")=True Then  objRS.Close  Set objRS=Nothing  Response.Write GetErr(5)  Response.End End If  '建立用户私有变量 Session.Timeout =30 Session("UserID")=objRS("UI_ID_N") objRS.Close '每当有用户登录则刷新数据库，判断是否有影片的预订超时或超期未还 strSQL="SELECT TAC_ReserveTime_D,TAC_StartTime_D FR