Forget the password>> First step: input username
Input your username:

<% elseif Action="step2" then if UserName="" or strLength(UserName)>14 or strLength(UserName)<4 then founderr=true errmsg=errmsg & "
  • Input username (between 4 and 14 characters)
    • " else if Instr(UserName,"=")>0 or Instr(UserName,"%")>0 or Instr(UserName,chr(32))>0 or Instr(UserName,"?")>0 or Instr(UserName,"&")>0 or Instr(UserName,";")>0 or Instr(UserName,",")>0 or Instr(UserName,"'")>0 or Instr(UserName,",")>0 or Instr(UserName,chr(34))>0 or Instr(UserName,chr(9))>0 or Instr(UserName,"£ ")>0 or Instr(UserName,"$")>0 then errmsg=errmsg+"
  • The illegal word in the username!
    • " founderr=true end if end if if FoundErr=true then call WriteErrMsg() else set rsGetPassword=server.createobject("adodb.recordset") rsGetPassword.open "select UserName,Question,Answer,Password from [User] where UserName='" & UserName & "'",conn,1,1 if rsGetPassword.bof and rsGetPassword.eof then FoundErr=True ErrMsg=ErrMsg & "
  • The illegal word in the username£¡
    • " call WriteErrMsg() else %>
    Forget the password >> Second step: answer question
    Password hints the question: <%=rsGetPassword("Question")%>
    You answer:

    ">    
    <% end if rsGetPassword.close set rsGetPassword=nothing end if elseif Action="step3" then if Answer="" then FoundErr=True ErrMsg=ErrMsg & "
  • Please input hints question of the answer!
    • " call WriteErrmsg() else set rsGetPassword=server.createobject("adodb.recordset") rsGetPassword.open "select UserName,Question,Answer,Password from [User] where UserName='" & UserName & "'",conn,1,1 if rsGetPassword.bof and rsGetPassword.eof then FoundErr=True ErrMsg=ErrMsg & "
  • Customer nonexistent! Possibility has already delete by administer.
    • " call WriteErrMsg() else if rsGetPassword("Answer")<>md5(Answer) then FoundErr=True ErrMsg=ErrMsg & "
  • You have wrong answer!
    • " Call WriteErrMsg() else %>
    Forget the password>> Third step: setup new password
    Password hints the question: <%=rsGetPassword("Question")%>
    You answer: <%=Answer%> ">
    New password:
    Confirm new password:

    ">    
    <% end if end if rsGetPassword.close set rsGetPassword=nothing end if elseif Action="step4" then if Password="" or strLength(Password)>12 or strLength(Password)<6 then founderr=true errmsg=errmsg & "
  • Input confirm password(between 6 and 12 characters)
    • " else if Instr(Password,"=")>0 or Instr(Password,"%")>0 or Instr(Password,chr(32))>0 or Instr(Password,"?")>0 or Instr(Password,"&")>0 or Instr(Password,";")>0 or Instr(Password,",")>0 or Instr(Password,"'")>0 or Instr(Password,",")>0 or Instr(Password,chr(34))>0 or Instr(Password,chr(9))>0 or Instr(Password,"£ ")>0 or Instr(Password,"$")>0 then errmsg=errmsg+"
  • The illegal words in password
    • " founderr=true end if end if if PwdConfirm="" then founderr=true errmsg=errmsg & "
  • Input username (between 4 and 14 characters)
    • " else if Password<>PwdConfirm then founderr=true errmsg=errmsg & "
  • Password and confirm password inconformity
    • " end if end if if FoundErr=True then call WriteErrmsg() else set rsGetPassword=server.createobject("adodb.recordset") rsGetPassword.open "select UserName,Question,Answer,Password from [User] where UserName='" & UserName & "'",conn,1,3 if rsGetPassword.bof and rsGetPassword.eof then FoundErr=True ErrMsg=ErrMsg & "
  • Customer nonexistent! Possibility has already delete by administer.
    • " call WriteErrMsg() else if rsGetPassword("Answer")<>Answer then FoundErr=True ErrMsg=ErrMsg & "
  • You have wrong answer!
    • " Call WriteErrMsg() else rsGetPassword("Password")=md5(Password) rsGetPassword.update %>
    Forget the password>> Fourth step: success to setup new password
    User name: <%=UserName%>
    New password£º <%=Password%>

    Please remember your new password and use the new passwordLogin£¡

    ¡¾Back¡¿¡¾Close¡¿