<% '========================================================= ' File: modifypsw.asp ' Version:5.0 ' Date: 2002-9-11 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= response.buffer=true stats="修改密码" dim psw dim password dim oldpassword dim quesion dim answer dim usercookies call nav() if Cint(GroupSetting(16))=0 then Errmsg=Errmsg+"
"+"

您没有在本论坛修改资料的权限，请登陆或者同管理员联系。" founderr=true end if if not founduser then Errmsg=Errmsg+"
"+"

您还没有登陆，请登陆后进行修改。" founderr=true end if if founderr then errmsg=errmsg+"
"+"

您没有登录。" call head_var(2,0,"","") call dvbbs_error() else call head_var(0,0,membername & "的控制面板","usermanager.asp") if request("action")="updat" then call update() if founderr then call dvbbs_error() else sucmsg="

修改密码成功！" call dvbbs_suc() end if else call userinfo() end if end if call activeonline() call footer() sub userinfo() set rs=server.createobject("adodb.recordset") sql="Select * from [User] where userid="&userid rs.open sql,conn,1,1 if rs.eof and rs.bof then errmsg=errmsg+"
"+"

该用户名不存在。" founderr=true exit sub else %>

控制面板首页	基本资料修改	用户密码修改	联系资料修改	用户短信服务	编辑好友列表	用户收藏管理

用户密码资料
旧密码确认： 如要修改请输入旧密码进入确认
新密码确认： 如要修改请直接输入新密码进入更新
密码问题： 请填写做为密码答案依据	">
问题答案： 请认真填写以便您日后取回密码 答案采用了MD5加密，只供取回密码使用，如要修改可直接填写。	"> ">

<% end if rs.close set rs=nothing end sub sub update() set rs=server.createobject("adodb.recordset") sql="Select userpassword from [User] where userid="&userid set rs=conn.execute(sql) if rs.eof and rs.bof then errmsg=errmsg+"
"+"

该用户名不存在。" founderr=true exit sub else if request("oldpsw")="" then errmsg=errmsg+"
"+"

请输入您的旧密码,才能完成修改。" founderr=true exit sub elseif md5(trim(request("oldpsw")))<>trim(rs("userpassword")) then errmsg=errmsg+"
"+"

输入的旧密码错误，请重新输入。" founderr=true exit sub else oldpassword=request("oldpsw") end if if request("psw")<>"" then password=md5(request("psw")) else password=rs("userpassword") end if if request("quesion")="" then errmsg=errmsg+"
"+"

请输入密码提示问题。" founderr=true exit sub else quesion=request("quesion") end if if request("answer")="" then errmsg=errmsg+"
"+"

请输入密码提示问题答案。" founderr=true exit sub elseif request("answer")=request("oldanswer") then answer=request("answer") else answer=md5(request("answer")) end if end if set rs=server.createobject("adodb.recordset") sql="Select * from [User] where userid="&userid rs.open sql,conn,1,3 if rs.eof and rs.bof then errmsg=errmsg+"
"+"

该用户名不存在。" founderr=true exit sub else rs("userpassword")=password rs("quesion")=quesion rs("answer")=answer rs.Update Response.Cookies("aspsky")("password") = password Response.Cookies("aspsky").path=cookiepath end if rs.close set rs=nothing end sub %>