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 
%>