user_editpass.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

<!--#include file="Cook.asp" -->
<!--#include file="../API/HiAPI/Class_API.asp"-->
<%

If WRMPS.CheckStr(Request("Action"),0) = "Save" Then
  Dim password,password1,password2,Question,Answer,PassEdit,AnswerEdit
  password = WRMPS.CheckStr(Request("password"),0)
  If password = "" Then Call WRMPS.ErrView("·请输入原始密码<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",0)
  
  password1 = WRMPS.CheckStr(Request("password1"),0)
  password2 = WRMPS.CheckStr(Request("password2"),0)
  If password1 <> "" Then
    If password1 <> password2 Then Call WRMPS.ErrView("·请输入相同的新密码及确认密码<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",0)
    If Len(password1)<5 Or Len(password1)>15 Then Call WRMPS.ErrView("·新密码必须在 "&Split(WR_User(4),"|")(0)&"-"&Split(WR_User(4),"|")(1)&" 位之间<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",0)
    If MemName = password1 Then  Call WRMPS.ErrView("·密码不能与用户名相同<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",0)
    PassEdit = ",WM_PassWord='"&MD5(2,PassWord1)&"'"
  Else
    PassEdit = ""
  End If

  Question = WRMPS.CheckStr(Request("Question"),0)
  If Question = "" Then Call WRMPS.ErrView("·请输入密码提示问题<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",0)

  Answer = WRMPS.CheckStr(Request("Answer"),0)
  If Answer <> "" Then
    AnswerEdit = ",WM_Answer='"&MD5(2,Answer)&"'"
  Else
    AnswerEdit = ""
  End If

  Set Rs = Server.CreateObject("ADODB.RecordSet")
  Rs.Open "Select WM_PassWord,WM_Question,WM_Answer From WM_Member Where WM_ID="&MemID,Conn,1,1
  If Not Rs.Eof Then
    If MD5(2,PassWord) <> Rs(0) Then
	  Call WRMPS.ErrView("·您输入的原始密码有错误<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",0)
	End If
  End If
  Rs.Close
  'API整合接口
  If API_Enable Then 
    Dim API
    Set API = New API_WRMPS
    API.LoadXmlFile True
    API.UserName=MemName
    If PassEdit <> "" Then API.PassWord=PassWord1
    API.Question=Question
    If AnswerEdit <> "" Then API.Answer=Answer
    Call API.ProcessMultiPing("update")
    Set API=Nothing
  End If
  Conn.Execute("Update WM_Member Set WM_Question='"&Question&"'"&PassEdit&AnswerEdit&" Where WM_ID="&MemID)
  Set Rs = Nothing
  Call WRMPS.ErrView("·密码修改成功<meta http-equiv=refresh content='1;URL=User_EditPass.asp'>",1)  
End If

Content = Content & PageTop()
Content = Content & UserPath(",<a href=User_EditPass.asp>密码修改</a>")

Set Rs=server.createobject("adodb.recordset")
Rs.Open "Select WM_Question,WM_Answer From WM_Member Where WM_ID = "&MemID ,Conn,1,1
If Not Rs.Eof Then

      Content = Content & "<table width=""100%"" border=""0"" cellspacing=""1"" cellpadding=""3"" class=td1 align=center>" & vbCrlf
      Content = Content & "<form method=""POST"" action=""?Action=Save"" name=addform>" & vbCrlf
      Content = Content & "  <tr><td class=td4 colspan=3>安全设置</td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td width=""30%""><strong>原始密码</strong></td><td width=""70%""><input name=""password"" size=""20"" maxlength=""50"" type=""password""> <font Class=Font2>*</font></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>新密码</strong><br>不改请不要动</td><td><input name=""password1"" size=""20"" maxlength=""50"" type=""password""></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>确认新密码</strong><br>不改请不要动</td><td><input name=""password2"" size=""20"" maxlength=""50"" type=""password""></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>密码提示问题</strong></td><td><input name=""Question"" type=""text"" Style=""width:200"" maxlength=""50"" value='"&Rs(0)&"'><br><SELECT size=1 name=""QuestionSelect"" onchange=""document.addform.Question.value=this.options[this.selectedIndex].value;rQuestion(this.options[this.selectedIndex].value)"">      " & vbCrlf
      Content = Content & "   <OPTION value="""">从这里选择问题</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你在哪所中学读初中？"">你在哪所中学读初中？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你的宠物叫什么名字？"">你的宠物叫什么名字？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你最喜欢的音乐是？"">你最喜欢的音乐是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你最喜欢的球队是？"">你最喜欢的球队是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你最喜欢的书是？"">你最喜欢的书是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你最好的朋友是？"">你最好的朋友是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你的出生年月是？"">你的出生年月是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你爱人的名字是？"">你爱人的名字是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你父亲的名字是？"">你父亲的名字是？</OPTION>      " & vbCrlf
      Content = Content & "   <OPTION value=""你母亲的名字是？"">你母亲的名字是？</OPTION>      " & vbCrlf
      Content = Content & "</SELECT></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td><strong>提示问题签案</strong><br>不改请不要动</td><td><input name=""Answer"" type=""password"" Style=""width:200"" maxlength=""50""></td></tr>" & vbCrlf
      Content = Content & "  <tr class=td2><td></td><td><input type=""submit"" value=""确定修改""></td></tr>     " & vbCrlf
      Content = Content & "</form>" & vbCrlf
      Content = Content & "</table>" & vbCrlf

End If
Rs.Close
Set Rs = Nothing
Content = Content & PageButtom()
Call ClassEnd()
Call DBConnEnd()
response.write Content

%>