| 忘记密码

<%Sub ForgotPassword() NewPassword=MakeRandomChar(8) Set Rs=Server.CreateObject(YWNT_TMS_RS) sql="select UsersPassword from YWNT_TMS_Users where UsersName='"&NoSqlHack(Request.Form("userid"))&"' And UsersProblems='"&NoSqlHack(Request.Form("Problems"))&"' And UsersAnswer='"&NoSqlHack(Request.Form("Answer"))&"'" Rs.open sql,Conn,1,3 if not Rs.eof then RS("UsersPassword")=md5(NewPassword,16) If API_Enable Then FoundErr = False ErrMsg = "" sPE_Items(conAction, 1) = "update" sPE_Items(conUsername, 1) = NoSqlHack(request.Form("userid")) sPE_Items(UsersPassword, 1) = NewPassword If createXmlDom Then prepareXML True SendPost If FoundErr Then ErrMsg = "
- " & ErrMsg & "
" End If Else FoundErr = True ErrMsg = "
- 目前注册服务不可用! [APIError-XmlDom-Runtime]
" End If End If else call ShowErr("
- 没有成功返回上一步
","Users_ForgotPassword.asp",0) end if Rs.Update Rs.Close Set Rs = Nothing call ShowErr("
- 用户找会密码成功
- 请使用下面的新密码登陆注意区分大小写
- "&NewPassword&"
","Users_ForgotPassword.asp",1) End Sub Action=Trim(request("Action")) Select Case Action Case "ForgotPassword" call ForgotPassword() Case else call Password() End Select sub Password()%>

用户名称： |
提示问题： |
问题答案： |

<%end sub%>

<%call connclose()%>