<% Sub APIEnable(U,P) 'API整合接口 If API_Enable Then Dim API Set API = New API_WRMPS API.LoadXmlFile True API.UserName=U API.PassWord=P Call API.ProcessMultiPing("update") Set API=Nothing End If End Sub Call DBConnBegin() Dim UserName,Code,Question,Answer,NewPass,PassWord,Pass Select Case Request("Action") Case "PassFour" Call WRMPS.CheckSubmit() If Int(WRMPS.GetCookies("GetPass")) > Int(WR_User(2)) Then Call WRMPS.ErrView("","GetPass.asp","
  • 您取回密碼次數已超出系統限制,請24小時后再試。",0) UserName = WRMPS.CheckStr(Request.Form("UserName"),0) PassWord = WRMPS.CheckStr(Request.Form("PassWord"),0) Pass = WRMPS.CheckStr(Request.Form("Pass"),0) Code = WRMPS.CheckStr(Request.form("Code"),0) Question = WRMPS.CheckStr(Request.form("Question"),0) Answer = WRMPS.CheckStr(Request.form("Answer"),0) If UserName = "" Then If Int(WR_User(2)) > 0 Then WRMPS.SCookies "GetPass",WRMPS.GetCookies("GetPass")+1,1 Call WRMPS.ErrView("","GetPass.asp","
  • 操作錯誤",0) End If If PassWord = "" Or Len(PassWord) < Int(Split(WR_User(4),"|")(0)) Or Len(PassWord) > Int(Split(WR_User(4),"|")(1)) Then Call WRMPS.ErrView("","","
  • 用戶密碼不正確",0) If Pass <> PassWord Then Call WRMPS.ErrView("","","
  • 確認密碼不正確",0) If WRMPS.CheckCode("GetPass",1) Then If Code = "" Or Code <> Session("Code") Then Call WRMPS.ErrView("","GetPass.asp","
  • 驗證碼不正確",0) Session("Code") = "" If Question = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 操作錯誤",0) If Answer = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 操作錯誤",0) Set Rs = Conn.Execute("Select WM_UserName From WM_Member Where WM_UserName = '"&UserName&"' and WM_Question = '"&Question&"' and WM_Answer = '"&MD5(2,Answer)&"'") If Not Rs.Eof Then Call APIEnable(UserName,PassWord) Conn.Execute("Update WM_Member Set WM_PassWord='"&MD5(2,PassWord)&"' Where WM_UserName = '"&UserName&"'") WRMPS.SCookies "GetPass",0,0 Call WRMPS.ErrView("現在登錄?","login.asp","
  • 密碼修改成功",1) Else If Int(WR_User(2)) > 0 Then WRMPS.SCookies "GetPass",WRMPS.GetCookies("GetPass")+1,1 Call WRMPS.ErrView("","GetPass.asp","
  • 操作錯誤",0) End If Rs.Close Set Rs = Nothing Case "PassThree" Call WRMPS.CheckSubmit() If Int(WRMPS.GetCookies("GetPass")) > Int(WR_User(2)) Then Call WRMPS.ErrView("","GetPass.asp","
  • 您取回密碼次數已超出系統限制,請24小時后再試。",0) UserName = WRMPS.CheckStr(Request.Form("UserName"),0) Question = WRMPS.CheckStr(Request.form("Question"),0) Answer = WRMPS.CheckStr(Request.form("Answer"),0) Code = WRMPS.CheckStr(Request.form("Code"),0) If UserName = "" Then If Int(WR_User(2)) > 0 Then WRMPS.SCookies "GetPass",WRMPS.GetCookies("GetPass")+1,1 Call WRMPS.ErrView("","GetPass.asp","
  • 操作錯誤",0) End If If Question = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 請輸入密碼提示問題",0) If Answer = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 請輸入密碼提示密碼",0) If WRMPS.CheckCode("GetPass",1) Then If Code = "" Or Code <> Session("Code") Then Call WRMPS.ErrView("","GetPass.asp","
  • 驗證碼不正確",0) Session("Code") = "" Set Rs = Conn.Execute("Select WM_Answer,WM_Email From WM_Member Where WM_UserName = '"&UserName&"' and WM_Question = '"&Question&"'") If Not Rs.Eof Then If Rs(0) <> MD5(2,Answer) Then If Int(WR_User(2)) > 0 Then WRMPS.SCookies "GetPass",WRMPS.GetCookies("GetPass")+1,1 Call WRMPS.ErrView("","GetPass.asp","
  • 用戶問題提示密碼不正確,請重新輸入",0) End If If Int(WR_User(6)) > 0 And WR_Mail(5) <> "NO" Then '郵件發密碼 Randomize Timer NewPass = Left(Md5(0,Cint(8999*Rnd+1000)),10) MailBody = WR_Mail(7)&vbCrLf&vbCrLf&WR_Mail(4) MailBody = Replace(MailBody,"{$User}",UserName) MailBody = Replace(MailBody,"{$Pass}",NewPass) Subject = WR_Setting(0)&"會員密碼修改成功!" If WRMPS.SendMail(WRTemp.SiteLabel(MailBody),WR_Setting(0),Subject,Rs(1)) = True Then Call APIEnable(UserName,NewPass) Conn.Execute("Update WM_Member Set WM_PassWord='"&MD5(2,NewPass)&"' Where WM_UserName = '"&UserName&"'") WRMPS.SCookies "GetPass",0,0 Call WRMPS.ErrView("現在登錄?","login.asp","
  • 新密碼已經發送到您的郵箱,請注意查收",1) End If End If SitePath = ",找回密碼第三步" SitePath = WRMPS.GetSitePath(-1,SitePath) Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,9,0) Call WRMPS.FsoEnd() If Instr(TempStr,"{$IDCode}") > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("GetPass",1)) If WRMPS.CheckCode("GetPass",1) Then TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","") Else TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""") End If End If TempStr = WRMPS.GetReplace(TempStr,"{$User}",UserName) TempStr = WRMPS.GetReplace(TempStr,"{$Question}",Question) TempStr = WRMPS.GetReplace(TempStr,"{$Answer}",Answer) TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Else If Int(WR_User(2)) > 0 Then WRMPS.SCookies "GetPass",WRMPS.GetCookies("GetPass")+1,1 Call WRMPS.ErrView("","GetPass.asp","
  • 操作錯誤",0) End If Rs.Close Set Rs = Nothing Response.write TempStr Case "PassTwo" Call WRMPS.CheckSubmit() If Int(WRMPS.GetCookies("GetPass")) > Int(WR_User(2)) Then Call WRMPS.ErrView("","GetPass.asp","
  • 您取回密碼次數已超出系統限制,請24小時后再試。",0) UserName = WRMPS.CheckStr(Request.Form("UserName"),0) Email = WRMPS.CheckStr(Request.Form("Email"),0) Code = WRMPS.CheckStr(Request.form("Code"),0) If UserName = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 請輸入登錄用戶名",0) If Email = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 請輸入用戶郵箱",0) If WRMPS.CheckCode("GetPass",1) Then If Code = "" Or Code <> Session("Code") Then Call WRMPS.ErrView("","GetPass.asp","
  • 驗證碼不正確",0) Session("Code") = "" Set Rs = Conn.Execute("Select WM_Question From WM_Member Where WM_UserName = '"&UserName&"' And WM_Email = '"&Email&"'") If Not Rs.Eof Then If Rs(0) = "" Then Call WRMPS.ErrView("","GetPass.asp","
  • 您沒有設置密碼提示問題及答案,不能使用此功能",0) SitePath = ",找回密碼第二步" SitePath = WRMPS.GetSitePath(-1,SitePath) Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,8,0) Call WRMPS.FsoEnd() If Instr(TempStr,"{$IDCode}") > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("GetPass",1)) If WRMPS.CheckCode("GetPass",1) Then TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","") Else TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""") End If End If Question = Rs(0) If Question = "" Or IsNull(Question) Then Call WRMPS.ErrView("","GetPass.asp","
  • 對不起,您沒有設置密碼問題及答案
  • 請聯系管理員獲取會員密碼!",0) TempStr = WRMPS.GetReplace(TempStr,"{$User}",UserName) TempStr = WRMPS.GetReplace(TempStr,"{$Question}",Rs(0)) TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Else Call WRMPS.ErrView("","GetPass.asp","
  • 用戶不存在或郵箱填寫不正確,請重新輸入",0) End If Rs.Close Set Rs = Nothing Response.write TempStr Case Else If IsEmpty(WRMPS.GetCookies("GetPass")) Then WRMPS.SCookies "GetPass",0,1 If Int(WRMPS.GetCookies("GetPass")) > Int(WR_User(2)) Then Call WRMPS.ErrView("","GetPass.asp","
  • 您取回密碼次數已超出系統限制,請24小時后再試。",0) SitePath = ",找回密碼第一步" SitePath = WRMPS.GetSitePath(-1,SitePath) Call WRMPS.FsoBegin() TempStr = WRTemp.SiteTemplates(1,0,7,0) Call WRMPS.FsoEnd() If Instr(TempStr,"{$IDCode}") > 0 Then TempStr = WRMPS.GetReplace(TempStr,"{$IsIDCode}",WRMPS.CheckCode("GetPass",1)) If WRMPS.CheckCode("GetPass",1) Then TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}","") Else TempStr = WRMPS.GetReplace(TempStr,"{$IDCode}"," style=""display:none""") End If End If TempStr = WRTemp.SiteLabel(TempStr) Call ClassEnd() Response.write TempStr End Select Call DBConnEnd() %>我爱玩山西麻将app