1、第 8 章 补充内容 8.1 用户注册页 Regist.asp Regist.asp 是用户注册页,用于用户注册。任何用户要进入图书馆进行借阅图书就必须先到注册页面进行注册。注册成功后即可用注册的账号和密码登录图书馆管理系统,否则需重新注册,直到成功为止。用户在图书馆管理系统首页 Default.asp,单击【注册】链接即可进入该页面,进行注册。页面显示效果图,如图 8.1 所示。图 8.1 用户注册页显示效果图 页面控件及功能如表 8.1 所示。表 8.1 用户注册页页面控件及功能 对 象 功 能 表格 用于控制页面显示信息位置 表单 名称为form1,提交目标网页为ChkRegist.as
2、p,数据采用隐式传递方式 文本框 名称为name,用于输入用户名 密码框 名称为pwd,用于输入用户密码 密码框 名称为pwd1,用于进行密码确认 单选按钮 名称为gender,用于选择用户性别 文本框 名称为email,用于输入用户E-mail 文本框 名称为qq,用于选择用户QQ 文本框 名称为tel,用于输入用户电话 文本框 名称为department,用于输入用户工作单位 文本框 名称为deaddress,用于输入用户单位地址 文本框 名称为hoaddress,用于输入用户家庭住址 文本框 名称为post,用于输入邮编 文本框 名称为number,用于输入用户身份证号 图像框 名称为i
3、magespath,用于上传用户照片 按钮 单击【提交】按钮提交表单 按钮 单击【重置】按钮清空文本框和密码框等中的内容 下面介绍 Regist.asp 的主要代码。页面代码分析如下所示。页面设计:利用网页表单把用户注册的信息传递给目标网页由目标网页把用户注册的信息保存到数据库。页面首先创建网页表单并对表单控件进行设置。代码如下所示。新用户注册(带 *号 项 为 必 填 项)*用户名: *密码: (长度大于 6 位)*重复密码: (长度大于 6 位)*性别: input type=radio name=gender v
4、alue=0 *电子邮箱: *QQ号码: *电话: *工作单位: *单位地址: *家庭住址: *邮编: *身份证号码: *上传照片: 8.2 检查用户注册页 ChkRegist.asp ChkRegist.asp 是检查用户注册信息页,用于检查并保存用户注册信息。下面介绍 ChkRegist.asp 的主要代码。页面代码分析如下所示。页面设计:首先接收用户注册页 Regist.asp 网页表单传递过来的数据,然后根据接收的数据判断注册信息的合法性,如果检验成功则把用户注册信息保存到数据库,并且页面会自动转
5、向系统首页。如果检验失败则给出相应提示信息,直到成功为止。代码如下所示。%Dim name 声明变量 Dim pwd Dim pwd1 Dim gender Dim email Dim qq Dim tel Dim department Dim deaddress Dim hoaddress Dim post Dim number Dim images 获取传递过来的表单数据 name=Trim(Request.Form(name)获取注册用户姓名 pwd=Trim(Request.Form(pwd)获取注册用户密码 pwd1=Trim(Request.Form(pwd1)获取注册用户密码确认
6、 gender=Trim(Request.Form(gender)获取注册用户性别 email=Trim(Request.Form(email)获取注册用户 email qq=Trim(Request.Form(qq)获取注册用户 qq tel=Trim(Request.Form(tel)获取注册用户电话 department=Trim(Request.Form(department)获取注册用户工作单位 deaddress=Trim(Request.Form(deaddress)获取注册用户单位地址 headdress=Trim(Request.Form(hoaddress)获取注册用户家庭
7、住址 post=Trim(Request.Form(post)获取注册用户邮编 number=Trim(Request.Form(number)获取注册用户身份证号 images=Request.Form(imagespath)获取注册用户照片 如果用户有照片,则上传照片 If images Then upImages(images)End If 检验用户注册信息的合法性 If name=Then 如果用户名为空,则提示请输入注册用户名!Response.Write alert(请输入注册用户名!);history.go(-1);Response.End ElseIf tel=Then 如果用
8、户电话为空,则提示请输入您的电话!Response.Write alert(请输入您的电话!);history.go(-1);Response.End ElseIf number=Then 如果身份证号为空,则提示请输入您的身份证号码!Response.Write alert(请输入您的身份证号码!);history.go(-1);Response.End ElseIf IsNumeric(number)=false Then 如果身份证号不是数字,则提示输入的身份证号码只能为数字!Response.Write alert(输入的身份证号码只能为数字!);history.go(-1);Resp
9、onse.End ElseIf pwd=Or pwd1=Then 如果密码或重复密码为空,则提示请输入密码或重复密码!Response.Write alert(请输入密码或重复密码!);history.go(-1);Response.End ElseIf pwd pwd1 Then 如果密码与重复密码不同,则提示两次输入的密码不相同!Response.Write alert(两次输入的密码不相同!);history.go(-1);Response.End 如果密码或重复密码位数小于 6,则提示密码项或重复密码项少于 6 位!ElseIf Len(pwd)6 Or Len(pwd1)6 Then
10、 Response.Write alert(密码项或重复密码项少于 6 位!);history.go(-1);Response.End 如果 qq 不为空,但 qq 不为数字,则提示输入的 QQ 号码只能为数字!ElseIf qq And IsNumeric(qq)=false Then Response.Write alert(输入的 QQ 号码只能为数字!);history.go(-1);Response.End Else 判断注册用户名的合法性 Set Rs=Server.CreateObject(ADODB.Recordset)创建记录集对象 根据接收的用户名将用户信息从用户信息表 u
11、serInfo 中取出来 Sql=Select*From userInfo Where name=&name&Rs.Open Sql,conn,3,3 把取出的信息放在记录集对象中 如果记录集对象中有此用户名记录,则提示已有此用户名,请重新注册!If not Rs.EOF Then Response.Write alert(已 有 此 用 户 名,请 重 新 注 册!);history.go(-1);Response.End 通过检验,把注册信息保存到数据库 Else Rs.AddNew Rs(name)=name Rs(pwd)=pwd Rs(gender)=gender Rs(images
12、)=GetFileName(images)Rs(email)=email Rs(qq)=qq Rs(tel)=tel Rs(department)=department Rs(reg_time)=Now()Rs(deaddress)=deaddress Rs(hoaddress)=hoaddress Rs(post)=post Rs(number)=number Rs.Update id=Rs(id)Response.Redirect Default.asp End If End If Rs.Close Set Rs=nothing Conn.close Set Conn=nothing%专家
13、指导:使用 Request.Form()方法取得表单传递过来的数据,并把数据赋值给所定义的变量。然后检验接收的用户注册信息的合法性。然后检验注册用户名在数据库中是否已存在,如果在注册页面输入的用户名与数据库中已存的用户名相同,则给出相应的提示信息并要求用户重新注册。如果一切检验合格,则把用户注册信息保存到数据库,并且页面重定向至系统首页。页面设计效果:由于该页面没有任何 HTML 代码,也没有任何 ASP 的输出显示代码,所以浏览该页面时没有任何效果。8.3 用户登录页 Login.asp Login.asp 是用户登录页,用于用户登录。任何用户要进入图书馆进行借阅图书就必须正常登录后才可以。
14、用户在图书馆管理系统首页 Default.asp,单击导航栏上的【登录】链接即可进入该页面,进行登录。用户在该页面输入注册用户名和密码单击【登录】即可。页面显示效果图,如图 8.2 所示。图 8.2 用户登录页显示效果图 页面控件及功能如表 8.2 所示。表 8.2 用户登录页页面控件及功能 对 象 功 能 表格 用于控制页面显示信息位置 表单 名称为Login,提交目标网页为ChkLogin.asp,数据采用隐式传递方式 文本框 名称为name,用于输入用户名 密码框 名称为pwd,用于输入用户密码 按钮 单击【登录】按钮提交表单 按钮 单击【重置】按钮清空文本框和密码框中的内容 下面介绍
15、Login.asp 的主要代码。页面代码分析如下所示。该页面设计:利用网页表单把用户输入的用户名和密码提交给目标网页由目标网页验证用户输入的信息。页面首先创建网页表单并对表单控件进行设置。代码如下所示。用户名: 密 码: 8.4 检验用户登录页 ChkLogin.asp ChkLogin.asp 是检验用户登录页,用于检查用户登录信息并校验用户输入的账号和密码是否正确。登录成功进入用户借书记录页,登录失败给出相应提示信息。下面介绍 ChkLogin.asp 的主要代码。页面代码分析如下所示。该页面设计:页面接收传递过来的表单数据,判断登录账号和密码的合法性。若未通过密码和账
16、号验证则给出相应的提示信息,若通过了登录验证,则生成 Session 变量 name(用户名)并重定向到用户借书记录页 BorrowBook.asp。代码如下所示。%检验用户登录信息,如果验证失败给出相应提示信息,如果通过验证则生成 Session 变量并进入用户借书记录页 Dim name 声明变量 Dim pwd 获取传递过来的表单数据 name=Trim(Request.Form(name)获取用户账号 pwd=Trim(Request.Form(pwd)获取用户密码 检验用户登录信息的合法性 If name=Or pwd=Then 如果账号或密码为空,则提示请输入账号或密码!Response.Write alert(请输入账号或密码!);history.go(-1);Response.End 检验用户名是否正确 Else Set Rs=Server.CreateObject(ADODB.Recordset)创建记录集对象 以接收的用户账号为条件把用户信息从用户信息表中取出来 Sql=Select*From userInfo Where name=&name&Rs.Open Sq
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1