实验十四用户注册系统设计.docx

1、实验十四 用户注册系统设计实验十四 用户注册系统设计1、新建一个动态站点，并进行测试，测试的代码为：2、在站点的根目录下建立如下图所示的结构目录（红色标注）。3、双击打开注册页面即register.html，并进行如下图所示的设计：该表单的属性名字输入如下：用户名的文本框：username密码的文本框：pwd 重复密码的文本框：secpwd真实姓名的文本框：truename性别的单选框：sex（选定值分别设置为：男 、女）Emai的文本框：emailQQ号码的文本框：qqnum自我介绍的文本框：userdesc4、打开代码视图，找到如图所示的地方，给action设置跳转页面。5、打开acces

2、s数据库建立一个webdb.mdb数据库,并建立一张和注册页面对应的数据表表名为Users，并把此数据库保存在站点的根目录下。结构如下图所示：6、双击打开dbconn.asp页面，删除原有代码，并编写如图所示的代码：红色标注的为数据库的路径，根据自己的网站进行修改。7、双击打开endconn.asp页面，删除原有代码，并编写如图所示的代码：7、双击打开register.asp页面，在标签之间插入如下代码：% Dim UserName,Pwd,TrueName,Sex Dim Email,QQNumber,UserDescription Dim objRS,sqlStr,ErrMsg UserN

3、ame = Trim(Request(username) Pwd = Trim(Request(pwd) TrueName = Trim(Request(truename) Sex = Trim(Request(sex) Email = Trim(Request(email) QQNumber = Trim(Request(qqnum) UserDescription = Trim(Request(userdesc)Set objRS = Server.CreateObject(ADODB.RecordSet) sqlStr = SELECT * FROM users WHERE userna

4、me LIKE & UserName & objRS.Open sqlStr,objConn,1,3 If Not objRS.EOF Then ErrMsg = 该用户名已被别人注册了，请换个用户名！Else objRS.AddNew objRS(username) = UserName objRS(pwd) = Pwd objRS(truename) = TrueName objRS(sex) = Sex If Email Then objRS(email) = Email If QQNumber Then objRS(qqnumber) = QQNumber If UserDescrip

5、tion Then objRS(userdesc) = UserDescription objRS(regtime) = Now() objRS.Update End If% If IsEmpty(ErrMsg) Then Response.Write(恭喜您注册成功！) Else Response.Write(ErrMsg&) End If%返回登陆注：红色为表单的名称，蓝色标注的为数据库的字段预览结果：8、双击打开登陆页面即：login.html，并进行页面设计如下图所示：并设置表单的属性：用户名的文本框:username密码的文本框：pwd设计完成后打开代码视图，修改action的值。1

6、0、双击打开login.asp页面，在标签之间插入如下代码：% dim username,pwd,logintimes,errmsg dim objrs,sqlstr username = trim(request(username) pwd = trim(request(pwd) if username = then errmsg = 您没有填写用户名，无法登录！ if pwd = then errmsg = 您没有填写密码，无法登录！set objrs = server.createobject(ADODB.recordset)sqlstr = select pwd from users

7、where username like & username & objrs.open sqlstr,objconn,1,1if objrs.eof then errmsg = 没有该注册用户！if objrs(pwd) pwd then errmsg = 密码错误，登录失败！if isempty(errmsg)then response.redirect(/users/index.asp)response.write(errmsg&)% 11、打开index.asp页面设计图下图所示：12、双击打开userinfo.asp页面，在标签之间插入如下代码：% dim user dim objrs

8、,sqlstr sqlstr = select*from users set objrs = server.createobject(ADODB.recordset) objrs.open sqlstr,objconn,1,1do while not objrs.eof response.write(用户编号：&objrs(userid)&)response.write(用户名：&objrs(username)&)response.write(用户密码：&objrs(pwd)&)response.write(真实姓名：&objrs(truename)&)response.write(性别：&o

9、bjrs(sex)&)response.write(邮箱：&objrs(email)&)response.write(qq号码：&objrs(qqnumber)&)response.write(自我介绍：&objrs(userdesc)&)response.write(注册时间：&objrs(regtime)&)objrs.movenextloop% 13、完成用户注册模块，保存并进行测试预览。14、访问计数模块设计15、打开webcnt.txt页面，删除原有代码，并写入：注：里面的内容可进行修改，第一行为总访问数，第二行为日期，第三行为当日访问数。16、双击打开webcnt.asp页面，删除

10、原有代码，并录入如下代码：% Dim objFS, objFile, cntfile Dim ttlcnt, tdycnt, lastvisitdate, nowdate nowdate = Datecntfile = Server.MapPath(/counters)&webcnt.txt Set objFS = Server.CreateObject(Scripting.FileSystemObject) Set objFile = objFS.OpenTextFile(cntfile,1,True,0)If objFile.AtEndOfLine Then ttlcnt = 1 tdyc

11、nt = 1 lastvisitdate = nowdate Else ttlcnt = CLng(objFile.ReadLine) lastvisitdate = CDate(objFile.ReadLine) tdycnt = CLng(objFile.ReadLine) End IfIf Session(counted) True Then ttlcnt = ttlcnt + 1 If nowdate lastvisitdate Then lastvisitdate = nowdate tdycnt = 1 Else tdycnt = tdycnt + 1 End If Session(counted) = TrueSet objFile = objFS.OpenTextFile(cntfile, 2) objFile.WriteLine (ttlcnt) objFile.WriteLine (lastvisitdate) objFile.WriteLine (tdycnt) End If Set objFile = Nothing Set objFS = NothingResponse.Write(您是本站第 &ttlcnt& 位访客)Response.Write(本站今日共有 &tdycnt& 位访客)%