📄 edit_user.asp
字号:
if (document.tcjdxr1.Password.value =="")
{
alert("请填写您的登录密码！");
document.tcjdxr1.Password.focus();
return false;
}
if (document.tcjdxr1.Question.value =="")
{
alert("请输入您的密码问题！");
document.tcjdxr1.Question.focus();
return false;
}
if (document.tcjdxr1.Answer.value =="")
{
alert("请输入您的问题答案！");
document.tcjdxr1.Answer.focus();
return false;
}
return true;
}
</script>
<table cellspacing="1" cellpadding="3" class="table" width="98%" align="center" border="0">
<form action="Edit_User.asp?Action=PassSave" method="post" name="tcjdxr" id="tcjdxr" onSubmit="return CheckForm();">
<tr class="title">
<td height="22" colspan="2" align="center" class="bg_tr"> 修 改 密 码 </td>
</tr>
<tr class="tdbg">
<td width="28%" height="22" class="td_bg"><span style="font-weight: bold">旧 密 码： </span><br>
您的旧登录密码，必须正确填写。</td>
<td width="72%" class="td_bg">
<input name="oldpassword" class="textbox" type="password" id="oldpassword" size="30" maxlength="50" />
<span style="color: red">*</span></td>
</tr>
<tr class="tdbg">
<td width="28%" height="22" class="td_bg"><span style="font-weight: bold"> 新 密 码：</span><br>
请输入您的新密码！</td>
<td width="72%" class="td_bg">
<input name="newpassword" class="textbox" type="password" id="newpassword" size="30" maxlength="50" />
<span style="color: red">* </span></td>
</tr>
<tr class="tdbg">
<td width="28%" height="22" class="td_bg"><span style="font-weight: bold"> 确认密码：</span><br>
同上。</td>
<td width="72%" class="td_bg">
<input name="renewpassword" class="textbox" type="password" id="renewpassword" size="30" maxlength="50" />
<span style="color: red">* </span></td>
</tr>
<tr class="tdbg">
<td width="28%" height="30" class="td_bg"> </td>
<td width="72%" class="td_bg"><input class="ACT_btn" name="Submit" type="submit" value=" 修 改 " />
<input class="ACT_btn" name="Submit2" type="reset" value=" 重 填 " /> </td>
</tr>
</form>
</table>
<br>
<table cellspacing="1" cellpadding="3" class="table" width="98%" align="center" border="0">
<form action="Edit_User.asp?Action=PassQuestionSave" method="post" name="tcjdxr1" id="tcjdxr1" onSubmit="return CheckForm1();">
<tr class="title">
<td height="22" colspan="2" align="center" class="bg_tr">更 改 找 回 密 码 设 置</td>
</tr>
<tr class="tdbg">
<td width="28%" height="22" class="td_bg"><span style="font-weight: bold"> 登录密码：</span><br>
同上。</td>
<td width="72%" class="td_bg">
<input name="Password" class="textbox" type="password" id="Password" size="30" maxlength="50" />
<span style="color: red">* </span></td>
</tr>
<tr class="tdbg">
<td width="28%" height="22" class="td_bg"><span style="font-weight: bold"> 密码问题：</span><br>
当密码忘记时，取回密码的提示问题。</td>
<td width="72%" class="td_bg">
<input name="Question" class="textbox" type="text" id="Question" value="<%=UserHS.Question%>" size="30" maxlength="50" />
<span style="color: red">* </span></td>
</tr>
<tr class="tdbg">
<td width="28%" height="22" class="td_bg"><span style="font-weight: bold"> 问题答案：</span><br>
当密码忘记时，取回密码提示问题的答案。</td>
<td width="72%" class="td_bg">
<input name="Answer" class="textbox" type="text" id="Answer" value="<%=UserHS.Answer%>" size="30" maxlength="50" />
<span style="color: red">* </span></td>
</tr>
<tr class="tdbg">
<td width="28%" height="30" class="td_bg"> </td>
<td width="72%" class="td_bg"><input class="ACT_btn" name="Submit" type="submit" value=" OK,修 改 " />
<input class="ACT_btn" name="Submit2" type="reset" value=" 重 填 " /> </td>
</tr>
</form>
</table>
<%
End SUb
Sub BasicInfoSave()
Dim RealName:RealName=ACTCMS.S("RealName")
Dim Sex:Sex=ACTCMS.S("Sex")
Dim Birthday:Birthday=ACTCMS.S("Birthday")
Dim Privacy:Privacy=ACTCMS.S("Privacy")
If Not IsDate(Birthday) Then
Response.Write "<script>alert('出生日期格式有误!');history.back();</script>"
response.end
end if
Dim RS: Set RS=Server.CreateObject("Adodb.RecordSet")
RS.Open "Select * From "&UserHS.TableName(UserHS.UModeID)&" Where UserName='" & UserHS.UserName & "'",Conn,1,3
IF RS.Eof And RS.Bof Then
Response.End
Else
RS("RealName")=RealName
RS("Sex")=Sex
RS("Birthday")=Birthday
RS("Privacy")=Privacy
RS.Update
Response.Write "<script>alert('会员基本信息资料修改成功！');location.href='right.asp';</script>"
Response.End()
End if
RS.Close:Set RS=Nothing
End Sub
'保存联系信息
Sub ContactInfoSave()
Dim IF_NULL,i
IF_NULL=U_M.Act_U_MX_Arr(UserHS.UModeID)
If IsArray(IF_NULL) Then
For I=0 To Ubound(IF_NULL,2)
If IF_NULL(2,I)=0 And Trim(ACTCMS.S(IF_NULL(0,I)))="" Then Call ACTCMS.ALERT(IF_NULL(1,I)&"不能为空","")
Next
End If
Dim Email:Email=ACTCMS.S("Email")
if ACTCMS.IsValidEmail(Email)=false then
Response.Write("<script>alert('请输入正确的电子邮箱!');history.back();</script>")
Exit Sub
end if
Dim OfficeTel:OfficeTel=ACTCMS.S("OfficeTel")
Dim HomeTel:HomeTel=ACTCMS.S("HomeTel")
Dim Mobile:Mobile=ACTCMS.S("Mobile")
Dim Fax:Fax=ACTCMS.S("Fax")
Dim province:province=ACTCMS.S("prov")
Dim city:city=ACTCMS.S("city")
Dim ZIP:ZIP=ACTCMS.S("ZIP")
Dim HomePage:HomePage=ACTCMS.S("HomePage")
Dim QQ:QQ=ACTCMS.S("QQ")
Dim MSN:MSN=ACTCMS.S("MSN")
Dim RS:Set RS=Server.CreateObject("Adodb.RecordSet")
RS.Open "Select * From "&UserHS.TableName(UserHS.UModeID)&" Where UserName='" & UserHS.UserName & "'",Conn,1,3
IF RS.Eof And RS.Bof Then
Response.End
Else
RS("Email")=Email
RS("Province")=Province
RS("City")=City
If IsArray(IF_NULL) Then
For I=0 To Ubound(IF_NULL,2)
RS("" & IF_NULL(0,I) & "")=ACTCMS.S(IF_NULL(0,I))
Next
End If
RS.Update
Response.Write "<script>alert('您的联系信息修改成功！');location.href='right.asp';</script>"
Response.End()
End if
RS.Close:Set RS=Nothing
End Sub
'保存密码设置
Sub PassSave()
Dim Oldpassword:Oldpassword=ACTCMS.S("Oldpassword")
Dim NewPassWord:NewPassWord=ACTCMS.S("NewPassWord")
Dim ReNewPassWord:ReNewPassWord=ACTCMS.S("ReNewPassWord")
If Oldpassword = "" Then
Response.Write("<script>alert('请输入旧登录密码!');history.back();</script>")
Response.End
End IF
If NewPassWord = "" Then
Response.Write("<script>alert('请输入登录密码!');history.back();</script>")
Response.End
ElseIF ReNewPassWord="" Then
Response.Write("<script>alert('请输入确认密码');history.back();</script>")
Response.End
ElseIF NewPassWord<>ReNewPassWord Then
Response.Write("<script>alert('两次输入的密码不一致');history.back();</script>")
Response.End
End If
OldPassWord =MD5(OldPassWord)
NewPassWord =MD5(NewPassWord)
Dim RS:Set RS=Server.CreateObject("Adodb.RecordSet")
RS.Open "Select PassWord From "&UserHS.TableName(UserHS.UModeID)&" Where UserName='" & UserHS.UserName & "' And PassWord='" & OldPassWord & "'",Conn,1,3
IF RS.Eof And RS.Bof Then
Response.Write("<script>alert('您输入的旧密码有误！');history.back();</script>")
Response.End
Else
RS(0)=NewPassWord
RS.Update
Response.Cookies(AcTCMSN)("PassWord") = NewPassWord
End if
RS.Close:Set RS=Nothing
%>
<table class="border" cellspacing="1" cellpadding="2" width="98%" align="center" border="0">
<tbody>
<tr class="title">
<td height="25" align=center>密码修改成功</td>
</tr>
<tr class="tdbg">
<td height="42" align="center">您的会员登录密码修改成功！新密码 <font color="red"><%=ACTCMS.S("NewPassWord")%></font> 请牢记。 </td>
</tr>
<tr class="tdbg">
<td height="42" align="center"><input type="button" onClick="location.href='right.asp'" class="ACT_btn" value="进入会员首页">
<input type="button" onClick="top.location.href='userlogout.asp'" value="退出重新登录" class="ACT_btn"></td>
</tr>
</tbody>
</table>
<%
End Sub
'提示问题保存
Sub PassQuestionSave()
Dim PassWord:PassWord=ACTCMS.S("PassWord")
Dim Question:Question=ACTCMS.S("Question")
Dim Answer:Answer=ACTCMS.S("Answer")
PassWord=MD5(PassWord)
Dim RS: Set RS=Server.CreateObject("Adodb.RecordSet")
RS.Open "Select * From "&UserHS.TableName(UserHS.UModeID)&" Where UserName='" & UserHS.UserName & "' And PassWord='" & PassWord & "'",Conn,1,3
IF RS.Eof And RS.Bof Then
rs.close:set rs=nothing
Response.Write "<script>alert('您输入的登录密码不正确!');history.back();</script>"
Exit Sub
Else
RS("Question")=Question
RS("Answer")=Answer
RS.Update
Response.Write "<script>alert('你的密码找回资料修改成功！');location.href='right.asp';</script>"
Response.End()
End if
RS.Close:Set RS=Nothing
End Sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -