📄 person_pwd.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/Commoncode.asp"-->
<!--#include file="../inc/CommonFunction.asp"-->
<!--#include file="../inc/md5.asp"-->
<%link="person_pwd.asp"%>
<!--#include file="checkpmember.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>个人会员中心--<%=SiteTitle%></title>
<link href="../css/<%=MainWebCss%>.css" rel="stylesheet" type="text/css" />
<script src="../inc/main.js" language="javascript"></script></head>
<body>
<center>
<div id="head">
<div id="logo"><img src="<%=SiteUrl&InstallDir&LogoUrl%>" alt="欢迎访问<%=SiteName%>" /></div>
<div id="banner"><%Call Loginshow()%></div>
<ul><%Call Membernav(1)%></ul>
</div>
<%Call Pmembermenu(1)%>
<div class="maintaba">
<%step=trim(request("step"))
Select Case step
Case "Modifypwd"
Call ShowpwdData()
Case "Modifyname"
Call ShownameData()
Case "NameOk"
Call SavenameData()
Case "PwdOk"
Call SavepwdData()
Case Else
Call main()
End Select%>
<%Sub main()%>
<span class="maintit">修改帐户信息</span>
<ul><%
set rs=server.createobject("ADODB.Recordset")
sql="select member_login,member_name,member_email from job_member where member_login='"&pmember_login&"'"
rs.open sql,conn,1,1
%><li><span style="LINE-HEIGHT: 21px">用 户 名： <b><font
style="FONT-SIZE: 11px" face="Verdana"><%=rs("member_login")%> <a class="04d" href="person_pwd.asp?step=Modifyname"><u><b>修改用户名</b></u></a></font></b></span></li>
<li><span style="LINE-HEIGHT: 21px">密 码： <b><font color="#ff6600"><a class="04d"
href="person_pwd.asp?step=Modifypwd"><u>修改密码</u></a></font></b></span></li>
<li><span style="LINE-HEIGHT: 21px">姓 名： <b><font
style="FONT-SIZE: 11px" face="Verdana"><%=rs("member_name")%></font></b></span></li>
<li><span style="LINE-HEIGHT: 21px">电子邮件： <b><font
style="FONT-SIZE: 11px" face="Verdana"><%=rs("member_email")%> </font></b>(若需修改，请到<a href="person_email.asp" class="04d">修改邮箱</a>修改。)</span></li>
<%
rs.close
set rs=nothing
%></ul>
<%End Sub
Sub ShowpwdData()%>
<span class="maintit">修改密码</span>
<ul>
<form name="form1" action="person_pwd.asp?step=PwdOk" method="post" onSubmit="return pwdmodi()">
<li> 旧 密 码： <INPUT name=oldpwd type=password id="oldpwd" class="inputl" maxLength=20></li>
<li> 新 密 码： <INPUT name=pwd type=password id="pwd" class="inputl" maxLength=20></li>
<li> 确定新密码： <INPUT name=repwd type=password id="repwd" class="inputl" maxLength=20></li>
<li><input name="Submit" type="submit" class="inputa3" value="保 存">
<input name="Submit2" type="button" class="inputa3" value="返 回" onClick="window.history.back();"></li>
<li><FONT color=#ff0000><B>注：4-20个字母或数字组成，区分大小写。</B></FONT></li>
</form>
</ul>
<%End Sub
Sub ShownameData()%>
<span class="maintit">修改用户名</span>
<ul>
<form name="form1" action="person_pwd.asp?step=NameOk" method="post" onSubmit="return loginmodi()">
<li> 旧 帐 号： <input name=oldlogin id="oldlogin" class="inputl" value="<%=pmember_login%>" size=25 maxlength=20 readonly></li>
<li> 新 帐 号： <input id=login class="inputl" maxlength=20 name=login onBlur="return checkLogins();"><span id="logins"></span></li>
<li><input name="Submit" type="submit" class="inputa3" value="保 存">
<input name="Submit1" type="button" class="inputa3" id="Submit1" value="返 回" onClick=window.history.back();></li>
<li><FONT color=#ff0000><B>注：4-20个字母或数字组成，不区分大小写。</B></FONT></li>
</form>
</ul>
<%End Sub%>
</div>
<%call bottom()
conn.close:set conn=nothing%>
<%Sub SavenameData()
login=Replace(request("login"),"'","")
set rs=server.createobject("adodb.recordset")
sql="select member_login from JOB_member where member_login='"&login&"'"
rs.open sql,conn,1,1
if not rs.eof then
rs.close
set rs=nothing
response.write("<script language=JavaScript>{alert('该帐号已经有人使用了！');location.href = 'javascript:history.back()';}</script>")
Response.End()
else
conn.execute("update job_p_myfavorite set myfavorite_pmember='"&login&"' where myfavorite_pmember='"&pmember_login&"'")
conn.execute("update job_p_myinterview set myinterview_pmember='"&login&"' where myinterview_pmember='"&pmember_login&"'")
conn.execute("update job_p_mysend set mysend_pmember='"&login&"' where mysend_pmember='"&pmember_login&"'")
conn.execute("update job_p_education set education_pmember='"&login&"' where education_pmember='"&pmember_login&"'")
conn.execute("update job_p_training set train_pmember='"&login&"' where train_pmember='"&pmember_login&"'")
conn.execute("update job_p_lang set lang_pmember='"&login&"' where lang_pmember='"&pmember_login&"'")
conn.execute("update job_p_work set work_pmember='"&login&"' where work_pmember='"&pmember_login&"'")
conn.execute("update job_p_picture set picture_pmember='"&login&"' where picture_pmember='"&pmember_login&"'")
conn.execute("update job_p_letter set letter_pmember='"&login&"' where letter_pmember='"&pmember_login&"'")
conn.execute("update job_p_resume set resume_pmember='"&login&"' where resume_pmember='"&pmember_login&"'")
conn.execute("update job_Member set member_login='"&login&"' where member_login='"&pmember_login&"'")
session(""&FRHRCMS&"user_login")=login
end if
rs.close
set rs=nothing
response.write("<script language=JavaScript>{alert('恭喜您，修改成功！');location.href = 'person_pwd.asp';}</script>")
response.end
End Sub
Sub SavepwdData()
pmember_oldpwd=MD5(trim(Request("oldpwd")))
set rs=server.createobject("ADODB.Recordset")
sql="select * from job_member where member_login='"&pmember_login&"'"
rs.open sql,conn,3,3
if pmember_oldpwd<>rs("member_pwd") then
rs.close
set rs=nothing
response.write "<script language=javascript>alert('旧密码错误！请重新输入。');location.href='javascript:history.back()';</script>"
response.end
else
rs("member_pwd")=MD5(trim(request("pwd")))
rs.update
rs.close
set rs=nothing
session(""&FRHRCMS&"user_pass")=MD5(trim(request("pwd")))
end if
response.write("<script language=JavaScript>{alert('恭喜您，修改成功！');location.href = 'person_pwd.asp';}</script>")
response.end
End Sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -