实验8设计实例.docVIP

实验8 设计实例 目的与要求 1、通过本次实验掌握用户登录模块的设计方法。 2、通过本次实验掌握用户注册模块的设计方法。 3、通过本次实验掌握用户个人资料管理的设计方法。 实验内容: 1、使用vbScript编写客户端脚本进行登录信息的验证。 登录提交页面（login.asp） !--#Include file=inc/conn_fun.asp-- %获取传递过来的表单数据 userName_form=Trim(Request.Form(userName)) passWord_form=Trim(Request.Form(passWord)) 判断登陆的帐号与密码的合法性 getConn() userSql=select * from userInfo where userName=userName_form rs.open userSql,conn,1,1 If rs.eof Then errmsg=不存在此用户，请注册！ returnURL=register.htm ElseIf rs(passWord)passWord_form Then errmsg=密码不正确，请重新登陆！ returnURL=default.htm ElseIf Instr(Application(online_name),userName_form) Then errmsg=该帐号正在被使用！登录失败！ returnURL=default.htm Else Session(userName)=userName_form conn.Execute(update userInfo set visitCount=rs(visitCount)+1 where userName=userName_form) errmsg=登录成功！进入论坛！ returnURL=mainPage.asp End If Set rs=Nothing Set conn=Nothing % HTMlHEADMETA http-equiv=Refresh content=1;URL=%=returnURL% /HEADBODY%=errmsg%/BODY/HTMl 2、使用表单来进行注册信息的收集。 注册提交页面（register.asp） !--#Include file=inc/conn_fun.asp-- %获取传递过来的表单数据 userName_form=Trim(Request.Form(userName)) passWord_form=Trim(Request.Form(passWord)) userSex_form=Request.Form(userSex) EMail_form=Trim(Request.Form(Email)) userSign_form=Trim(Request.Form(userSign)) regDate=Date() Time() getConn() 判断填写的用户名是否已经被注册 Set checkUserNameRs=conn.Execute(select * from userInfo where userName= userName_form) 若用户名已存在，则返回前一页，保持表单中填写的内容不变 If not checkUserNameRs.Eof Then errmsg=用户名已存在，请重新填写！ returnURL=javascript:history.back(); 若用户名未被使用，则插入用户表中一条记录，注册成功 Else registerSql=insert into userInfo(userName, passWord, userSex, userEMail, userSign, userLevel, visitCount, topicCount, regDate, islocked) values (userName_form,passWord_form,userSex_form,EMail_form, userSign_form, 1, 1,0,regDate,0) conn.execute(registerSql) Session(userName)=userName_form errmsg=注册成功！自动登录论坛！ returnURL=mainPage.asp End If Set checkUserNameRs=Nothing Set conn=Nothing % HTMl HEAD META http-equiv=Refresh content=1;URL=%=returnURL% META http-equiv=Conten