'如果没有记录，表示用户名或密码可能不正确，请给出提示信息

Response.Write\"对不起，用户名或密码有误，请返回首页重新登录\"

海量资源，欢迎共阅

EndIf %>

(2)个人信息修改模块

<%

'========================================================================================= '用户修改个人信息页 '1.这其实就是一个普通的更新记录页面。首先将原有内容显示在表单中，提交表单后再更新记录。 '2.在更新记录时有些信息可以省略，所以SQL语句较为复杂。以QQ号码为例，如果用户原来提交了QQ号码，在这里删除了QQ号码。那么此时就需要将该字段值清空，这里使用NULL关键字，这样该字段值就被清空了。事实上此时也可以用空字符串\"\"将其清空。 '========================================================================================= %>

<%OptionExplicit%>

海量资源，欢迎共阅

ml;charset=gb2312\">

functioncheck_Null(){ } if } if } returntrue; alert(\"E-mail不能为空!\"); returnfalse; alert(\"真实姓名不能为空!\"); returnfalse;

海量资源，欢迎共阅

修改个人信息 <%

'下面读取该用户的信息，然后将其显示在后面的表格中 DimstrSql,rs

strSql=\"Select*FromtbAddress5WherestrUserId='\"&Session(\"strUserId\")&\"'\"

Setrs=conn.Execute(strSql) %>

<%=Session(\"strUserId\")%>

真实姓名 用户名 海量资源，欢迎共阅

e=\"<%=rs(\"strName\")%>\">* 男

性别 >男 女 >女 电话 \"<%=rs(\"strTel\")%>\">

E-mail

海量资源，欢迎共阅

e=\"<%=rs(\"strEmail\")%>\">*

QQ号码 =\"<%=rs(\"strQQ\")%>\"> <% 个人简介 =rs(\"strIntro\")%> 确

定\">

<%

IfRequest.Form(\"txtName\")<>\"\"AndRequest.Form(\"tx

海量资源，欢迎共阅

tEmail\")<>\"\"Then

'下面建立SQL语句，因为某些字段允许为空，所以需

要判断一下

strSql=\"UpdatetbUsersSetstrName='\"&Request.Form

(\"txtName\")&\"'\" \"'\"

strSql=strSql&\ strSql=strSql&\'注意：如果用户没有提交QQ号码，那么不管原来有strSql=strSql&\没有QQ号码，都将该字段值用NULL清空了。 strSql=strSql&\ Else

strSql=strSql&\IfRequest.Form(\"txtQQ\")<>\"\"Then EndIf

'注意：关于电话的解释同上面的QQ IfRequest.Form(\"txtTel\")<>\"\"Then

海量资源，欢迎共阅

strSql=strSql&\ strSql=strSql&\ Else strSql=strSql&\Else

strSql=strSql&\

EndIf

'注意：关于备注的解释同上面的QQ IfRequest.Form(\"txtIntro\")<>\"\"Then EndIf strSql=strSql&\"WherestrUserId='\"&Session(\"strUserId\")&\"'\"

conn.Execute(strSql) '关闭对象 conn.close Setconn=Nothing

Response.Redirect\"index.asp\"

EndIf %>

海量资源，欢迎共阅

(3)密码修改模块

<%

'========================================================================================= '用户修改密码页 '1.首先判断用户输入的旧密码是否正确？如果正确，就更新为新密码，如果不正确，就提醒重新填写。 '========================================================================================= %> <%OptionExplicit%>

ml;charset=gb2312\">

海量资源，欢迎共阅

functioncheck_Null(){ } if } if } if } returntrue; alert(\"新密码和确认密码必须一致!\"); returnfalse; alert(\"新密码不能为空!\"); returnfalse; alert(\"旧密码不能为空!\"); returnfalse;

海量资源，欢迎共阅

修改密码

heck_Null();\"action=\"\"method=\"post\">

B0B0\"bordercolordark=\"#FFFFFF\"cellspacing=\"0\"cellpadding=\"0\"align=\"center\"> 旧密码 =\"15\">* 新密码 =\"15\">*

确认密码

海量资源，欢迎共阅

e=\"15\">*

确

定

\"name=\"submit\"class=\"inputbutton\">

<% '如果提交了表单，就执行下面更新操作 IfRequest.Form(\"txtOldPwd\")<>\"\"AndRequest.Form(\"txtNewPwd\")<>\"\"Then

strSql=\"SelectstrPwdFromtbAddress5WherestrUserId '下面先判断旧密码是否正确 DimstrSql,rs ='\"&Session(\"strUserId\")&\"'\"

Setrs=conn.Execute(strSql) Ifrs(\"strPwd\")<>Request.Form(\"txtOldPwd\")Then

Response.Write\"对不起，旧密

码不正确，请重新输入！\" Else

'下面更新密码

海量资源，欢迎共阅

strSql=\"UpdatetbAddress5SetstrPwd='\"&Request.For

m(\"txtNewPwd\")&\"'WherestrUserId='\"&Session(\"strUserId\")&\"'\" conn.Execute(strSql) '关闭对象 conn.close Setconn=Nothing '重定向到首页 Response.Redirect\"index.asp\" EndIf EndIf %> (4)用户注册模块 <% '=========================================================================================

'用户注册页---第一步

'1.这一步要让用户输入用户名和密码。

海量资源，欢迎共阅

'2.如果用户名可以使用，就添加到数据库中，继续下一步。要注意此时会将用户名保存到Session中，以备下一个页面使用。

'3.如果用户名已经被使用，就提醒用户修改用户名。 '========================================================================================= %> <%OptionExplicit%>

functioncheck_Null(){ if } if||

alert(\"用户名不能为空!\"); returnfalse;

海量资源，欢迎共阅

alert(\"用户名不能少于4个字符，也不能多于

20个字符\"); } if } if } returntrue; } alert(\"密码和密码确认必须一致!\"); returnfalse; alert(\"密码不能为空!\"); returnfalse; returnfalse;

海量资源，欢迎共阅

eight=\"100\"/>

用户注册

第一步申请用户名（注意：所有带*

号的项目必须填写）

* 用户名 （大于或等于4位，小于20位）

密码

\">*

海量资源，欢迎共阅

确认密码

2\">*

<% '各项验证正确无误，则可继续注册，否则返回 IfRequest(\"txtUserId\")<>\"\"Then

'下面首先获取提交的用户名和密码 DimstrUserId,strPwd strUserId=Request.Form(\"txtUserId\") strPwd=Request.Form(\"txtPwd\")

'以下检查该用户是否已经存在，如存在，则需要更换

用户名

DimstrSql,rs

海量资源，欢迎共阅

strSql=\"Select*FromtbAddress5WherestrUserId='\"&R

equest.Form(\"txtUserId\")&\"'\"

Setrs=conn.execute(strSql) IfNotrs.EofAndNotrs.BofThen

Response.Write\"提示：已有人

使用该用户名,请重新填写

6. 系统测试概述

模块测试由各组员完成，对模块进行调试。

海量资源，欢迎共阅

白盒测试：

由于该系统由各组员合作完成，系统的测试属于白盒测试，首先就是登陆，在登陆时，输入正确的用户名和密码进行登陆，然后再输入错误的密码和用户进行登陆，看看错误的能不能登陆进去。然后就是数据的操作，首先用正确的数据进行操作，然后再用错误的数据进行操作，看看有没有什么异常，这样反复测试多次。直到用任何数据操作都不会出现软件异常为止。在进行操作时遇到了像添加或修改管理员时密码不小心输入错误而不能记住的问题，解决办法就是在添加和修改管理员时，密码必须重复输入一次，判断是否一致，如果不一致就不予操作。其次就是对数据的操作，如：对学生入住宿舍的添加，查看，修改和删除。先用合法的数据进行学生入住，然后用非法的数据进行学生入住，合法的数据可以添加，非法的则不可以。还有就是看学生管理里的数据的修改，删除和查询，在修改数据的时候有没有错，结果是没有错误，删除数据都可以成功删除。经过测试，该系统可以满足管理学生宿舍的基本要求。此外，我们新加的带收快递功能也能够正常运行，若能被使用，定能方便学生的学习生活。