Else

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

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

EndIf

%>

（2）个人信息修改模块

<%

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

'用户修改个人信息页

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

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

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

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

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

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

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

%>

<%OptionExplicit%>

--#IncludeFile="odbc_connection.asp"-->

functioncheck_Null（）{

if（document.frmInfo.txtName.value==""）{

alert（"真实不能为空!

"）;

returnfalse;

}

if（document.frmInfo.txtEmail.value==""）{

alert（"E-mail不能为空!

"）;

returnfalse;

}

returntrue;

}

修改个人信息

<%

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

DimstrSql,rs

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

Setrs=conn.Execute（strSql）

%>

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

用户名

<%=Session（"strUserId"）%>

真实

">*

性别

>男

>女

">

E-mail

">*

QQ

">

个人简介

<%=rs（"strIntro"）%>

<%

IfRequest.Form（"txtName"）<>""AndRequest.Form（"txtEmail"）<>""Then

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

strSql="UpdatetbUsersSetstrName='"&Request.Form（"txtName"）&"'"

strSql=strSql&",strEmail='"&Request.Form（"txtEmail"）&"'"

strSql=strSql&",strSex='"&Request.Form（"rdoSex"）&"'"

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

'注意：

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

IfRequest.Form（"txtQQ"）<>""Then

strSql=strSql&",strQQ='"&Request.Form（"txtQQ"）&"'"

Else

strSql=strSql&",strQQ=NULL"

EndIf

'注意：

关于的解释同上面的QQ

IfRequest.Form（"txtTel"）<>""Then

strSql=strSql&",strTel='"&Request.Form（"txtTel"）&"'"

Else

strSql=strSql&",strTel=NULL"

EndIf

'注意：

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

IfRequest.Form（"txtIntro"）<>""Then

strSql=strSql&",strIntro='"&Request.Form（"txtIntro"）&"'"

Else

strSql=strSql&",strIntro=NULL"

EndIf

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

conn.Execute（strSql）

'关闭对象

conn.close

Setconn=Nothing

Response.Redirect"index.asp"

EndIf

%>

（3）密码修改模块

<%

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

'用户修改密码页

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

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

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

%>

<%OptionExplicit%>

--#IncludeFile="odbc_connection.asp"-->

functioncheck_Null（）{

if（document.frmPwd.txtOldPwd.value==""）{

alert（"旧密码不能为空!

"）;

returnfalse;

}

if（document.frmPwd.txtNewPwd.value==""）{

alert（"新密码不能为空!

"）;

returnfalse;

}

if（document.frmPwd.txtNewPwd.value!

=document.frmPwd.txtNewPwd2.value）{

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

"）;

returnfalse;

}

returntrue;

}

修改密码

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

旧密码

*

新密码

*

确认密码

*

<%

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

IfRequest.Form（"txtOldPwd"）<>""AndRequest.Form（"txtNewPwd"）<>""Then

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

DimstrSql,rs

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

Setrs=conn.Execute（strSql）

Ifrs（"strPwd"）<>Request.Form（"txtOldPwd"）Then

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

"

Else

'下面更新密码

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

conn.Execute（strSql）

'关闭对象

conn.close

Setconn=Nothing

'重定向到首页

Response.Redirect"index.asp"

EndIf

EndIf

%>

（4）用户注册模块

<%

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

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

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

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

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

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

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

%>

<%OptionExplicit%>

--#INCLUDEFILE="odbc_connection.asp"-->