gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\modifypsw.asp
<!--#include file="conn.asp"--> <!-- #include file="inc/const.asp" --> <!--#include file="inc/md5.asp"--> <% Mybbs.LoadTemplates("Usermanager") Mybbs.Stats=Mybbs.MemberName&template.Strings(2) Mybbs.Nav() Mybbs.Head_var 0,0,template.Strings(0),"Usermanager.asp" Dim psw,password,oldpassword,quesion,answer,Usercookies,ErrCodes If Mybbs.Userid=0 Then Mybbs.AddErrCode(6) End If If Cint(Mybbs.GroupSetting(16))=0 Then Mybbs.AddErrCode(28) End If Mybbs.Showerr() Response.write template.html(0) If request("action")="updat" Then Call update() If ErrCodes<>"" Then Response.redirect "showerr.asp?ErrCodes="&ErrCodes&"&action=OtherErr" Mybbs.Showerr() Mybbs.Dvbbs_Suc("<li>"+template.Strings(26)) Else Call Userinfo() Mybbs.Showerr() End If Mybbs.ActiveOnline() Mybbs.Footer() sub Userinfo() If Mybbs.chkpost=False Then Mybbs.AddErrCode(16) Exit Sub End If Dim Rs,Sql,tempstr tempstr=template.html(9) sql="Select Userid,UserAnswer,UserQuesion from [Dv_User] where Userid="&Mybbs.Userid Set Rs=Mybbs.Execute(Sql) If Rs.eof And Rs.bof Then Mybbs.AddErrCode(32) Exit Sub Else tempstr=Replace(tempstr,"{$user_id}",Rs(0)) tempstr=Replace(tempstr,"{$user_answer}",Rs(1) & "") tempstr=Replace(tempstr,"{$user_quesion}",Rs(2) & "") tempstr=Replace(tempstr,"{$color}",Mybbs.mainsetting(1)) Response.write tempstr End If Rs.Close:Set Rs=Nothing End Sub Sub Update() Dim Rs,sql sql="Select Userpassword from [Dv_User] where Userid="&Mybbs.Userid Set Rs=Mybbs.Execute(Sql) if Rs.eof and Rs.bof then Mybbs.AddErrCode(32) Else if Request.Form("oldpsw")="" then ErrCodes=ErrCodes+"<li>"+template.Strings(27)'Mybbs.AddErrMsg "请输入您的旧密码,才能完成修改。" ElseIf md5(trim(Request.Form("oldpsw")),16)<>trim(RS("Userpassword")) then ErrCodes=ErrCodes+"<li>"+template.Strings(28)'Mybbs.AddErrMsg "输入的旧密码错误,请重新输入。" Else oldpassword=Request.Form("oldpsw") End If If Request.Form("psw")<>"" then password=md5(Request.Form("psw"),16) Else password=RS("Userpassword") End If If Request.Form("quesion")="" then ErrCodes=ErrCodes+"<li>"+template.Strings(29)'Mybbs.AddErrMsg "请输入密码提示问题。" Else quesion=Request.Form("quesion") End If If Request.Form("answer")="" then ErrCodes=ErrCodes+"<li>"+template.Strings(30)'Mybbs.AddErrMsg "请输入密码提示问题答案。" ElseIf Request.Form("answer")=Request.Form("oldanswer") then answer=Request.Form("answer") Else answer=md5(Request.Form("answer"),16) End If End If If ErrCodes<>"" Then Exit sub Mybbs.Showerr() set rs=server.createobject("adodb.recordset") sql="Select * from [Dv_User] where Userid="&Mybbs.Userid rs.open sql,conn,1,3 if rs.eof and rs.bof then Mybbs.AddErrCode(32) Exit Sub Else 'If Not Mybbs.FoundIsChallenge Then Rs("Userpassword")=password rs("UserQuesion")=quesion rs("UserAnswer")=answer rs.Update End If rs.close:set rs=nothing End Sub %>