📄 edit_user.asp
字号:
<input 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 >
<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 >
<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 >
<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 >
<td width="28%" height="30" class="td_bg"> </td>
<td width="72%" class="td_bg"><input name="Submit" type="submit" value=" OK,修 改 " />
<input name="Submit2" type="reset" value=" 重 填 " /> </td>
</tr>
</form>
</table>
<%
End SUb
Sub BasicInfoSave()
Dim RealName:RealName=S("RealName")
Dim Sex:Sex=S("Sex")
Dim Birthday:Birthday=S("Birthday")
Dim Privacy:Privacy=S("Privacy")
Dim IDCard:IDCard=S("IDCard")
Dim UserFace:UserFace=S("UserFace")
Dim Sign:Sign=S("Sign")
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 Art_User 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("UserFace")=UserFace
RS("IDCard")=IDCard
RS("Sign")=Sign
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 Email:Email=S("Email")
if IsValidEmail(Email)=false then
Response.Write("<script>alert('请输入正确的电子邮箱!');history.back();</script>")
Exit Sub
end if
Dim EmailMultiRegTF:EmailMultiRegTF=UserSetting(9)
If EmailMultiRegTF=1 Then
Dim EmailRSCheck:Set EmailRSCheck = Conn.Execute("select UserID from Art_User where UserName<>'" & UserHS.UserName & "' And Email='" & Email & "'")
If Not (EmailRSCheck.BOF And EmailRSCheck.EOF) Then
EmailRSCheck.Close:Set EmailRSCheck = Nothing
Call Alert("您注册的Email已经存在！请更换Email再试试！","")
Exit Sub
End If
EmailRSCheck.Close:Set EmailRSCheck = Nothing
End If
Dim OfficeTel:OfficeTel=S("OfficeTel")
Dim HomeTel:HomeTel=S("HomeTel")
Dim Mobile:Mobile=S("Mobile")
Dim Fax:Fax=S("Fax")
Dim province:province=S("prov")
Dim city:city=S("city")
Dim Address:Address=S("Address")
Dim ZIP:ZIP=S("ZIP")
Dim HomePage:HomePage=S("HomePage")
Dim QQ:QQ=S("QQ")
Dim ICQ:ICQ=S("ICQ")
Dim MSN:MSN=S("MSN")
Dim UC:UC=S("UC")
Dim RS:Set RS=Server.CreateObject("Adodb.RecordSet")
RS.Open "Select * From Art_User Where UserName='" & UserHS.UserName & "'",Conn,1,3
IF RS.Eof And RS.Bof Then
Response.End
Else
RS("Email")=Email
RS("OfficeTel")=OfficeTel
RS("HomeTel")=HomeTel
RS("Mobile")=Mobile
RS("Fax")=Fax
RS("Province")=Province
RS("City")=City
RS("Address")=Address
RS("Zip")=Zip
RS("HomePage")=HomePage
RS("QQ")=QQ
RS("ICQ")=ICQ
RS("MSN")=MSN
RS("UC")=UC
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=S("Oldpassword")
Dim NewPassWord:NewPassWord=S("NewPassWord")
Dim ReNewPassWord:ReNewPassWord=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 Art_User 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(Art2008)("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 >
<td height="42" align="center">您的会员登录密码修改成功！新密码 <font color="red"><%=S("NewPassWord")%></font> 请牢记。 </td>
</tr>
<tr >
<td height="42" align="center"><input type="button" onClick="location.href='right.asp'" value="进入会员首页">
<input type="button" onClick="top.location.href='userlogout.asp'" value="退出重新登录" ></td>
</tr>
</tbody>
</table>
<%
End Sub
'提示问题保存
Sub PassQuestionSave()
Dim PassWord:PassWord=S("PassWord")
Dim Question:Question=S("Question")
Dim Answer:Answer=S("Answer")
PassWord=MD5(PassWord)
Dim RS: Set RS=Server.CreateObject("Adodb.RecordSet")
RS.Open "Select * From Art_User 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
%>
<% Set UserHS = Nothing:call CloseConn() %>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -