Else

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

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

EndIf

%>

（2）个人信息修改模块

<%

'=========================================================================================

'用户修改个人信息页

'1.这其实就是一个普通的更新记录页面。

首先将原有内容显示在表单中，提交表单后再更新记录。

'2.在更新记录时有些信息可以省略，所以SQL语句较为复杂。

以QQ号码为例，如果用户原来提交了QQ号码，在这里删除了QQ号码。

那么此时就需要将该字段值清空，这里使用NULL关键字，这样该字段值就被清空了。

事实上此时也可以用空字符串""将其清空。

'=========================================================================================

%>

<%OptionExplicit%>

--#IncludeFile=""-->

functioncheck_Null（）{

alert（"真实姓名不能为空!

"）;

returnfalse;

}

alert（"E-mail不能为空!

"）;

returnfalse;

}

returntrue;

}

修改个人信息

<%

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

DimstrSql,rs

strSql="Select*FromtbAddress5WherestrUserId='"&Session（"strUserId"）&"'"

Setrs=（strSql）

%>

returncheck_Null（）;"action=""method="post">

用户名

<%=Session（"strUserId"）%>

真实姓名

">*

性别

>男

>女

电话

">

E-mail

">*

QQ号码

">

个人简介

<%=rs（"strIntro"）%>

<%

If（"txtName"）<>""And（"txtEmail"）<>""Then

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

strSql="UpdatetbUsersSetstrName='"&（"txtName"）&"'"

strSql=strSql&",strEmail='"&（"txtEmail"）&"'"

strSql=strSql&",strSex='"&（"rdoSex"）&"'"

strSql=strSql&",dtmSubmit=#"&Date（）&"#"

'注意：

如果用户没有提交QQ号码，那么不管原来有没有QQ号码，都将该字段值用NULL清空了。

If（"txtQQ"）<>""Then

strSql=strSql&",strQQ='"&（"txtQQ"）&"'"

Else

strSql=strSql&",strQQ=NULL"

EndIf

'注意：

关于电话的解释同上面的QQ

If（"txtTel"）<>""Then

strSql=strSql&",strTel='"&（"txtTel"）&"'"

Else

strSql=strSql&",strTel=NULL"

EndIf

'注意：

关于备注的解释同上面的QQ

If（"txtIntro"）<>""Then

strSql=strSql&",strIntro='"&（"txtIntro"）&"'"

Else

strSql=strSql&",strIntro=NULL"

EndIf

strSql=strSql&"WherestrUserId='"&Session（"strUserId"）&"'"

（strSql）

'关闭对象

Setconn=Nothing

""

EndIf

%>

（3）密码修改模块

<%

'=========================================================================================

'用户修改密码页

'1.首先判断用户输入的旧密码是否正确？

如果正确，就更新为新密码，如果不正确，就提醒重新填写。

'=========================================================================================

%>

<%OptionExplicit%>

--#IncludeFile=""-->

functioncheck_Null（）{

alert（"旧密码不能为空!

"）;

returnfalse;

}

alert（"新密码不能为空!

"）;

returnfalse;

}

alert（"新密码和确认密码必须一致!

"）;

returnfalse;

}

returntrue;

}

修改密码

returncheck_Null（）;"action=""method="post">

旧密码

*

新密码

*

确认密码

*

<%

'如果提交了表单，就执行下面更新操作

If（"txtOldPwd"）<>""And（"txtNewPwd"）<>""Then

'下面先判断旧密码是否正确

DimstrSql,rs

strSql="SelectstrPwdFromtbAddress5WherestrUserId='"&Session（"strUserId"）&"'"

Setrs=（strSql）

Ifrs（"strPwd"）<>（"txtOldPwd"）Then

"对不起，旧密码不正确，请重新输入！

"

Else

'下面更新密码

strSql="UpdatetbAddress5SetstrPwd='"&（"txtNewPwd"）&"'WherestrUserId='"&Session（"strUserId"）&"'"

（strSql）

'关闭对象

Setconn=Nothing

'重定向到首页

""

EndIf

EndIf

%>

（4）用户注册模块

<%

'=========================================================================================

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

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

'2.如果用户名可以使用，就添加到数据库中，继续下一步。

要注意此时会将用户名保存到Session中，以备下一个页面使用。

'3.如果用户名已经被使用，就提醒用户修改用户名。

'=========================================================================================

%>

<%OptionExplicit%>

--#INCLUDEFILE=""-->

functioncheck_Null（）{

alert（"用户名不能为空!

"）;

returnfalse;

}

alert（"用户名不能少于4个字符，也不能多于20个字符"）;

returnfalse;

}

alert（"密码不能为空!

"）;

returnfalse;

}

alert（"密码和密码确认必须一致!

"）;

returnfalse;

}

returntrue;

}

用户注册

第一步申请用户名（注意：

所有带*号的项目必须填写）

returncheck_Null（）;">

用户名