forget

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Private blnError
Private strError
Private strReferer

Private Sub Class_Initialize()
    Set MyXML = MyKernel.XMLParser
    blnError = True
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub main()
    strReferer = MyIO.QueryString("Referer")
    MyXML.Align = "center"
    MyXML.Println MyKernel.Config("SiteName") & "取回密码"
    MyXML.Align = "left"
    If MyIO.Env("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
    If strReferer <> "" Then
        MyXML.Println MyXML.CreateA(strReferer, "快速返回", GetImagePrefix("images/back.gif"), "")
    End If
    Call BackHomeX(0)
    Call SetLog("forget", 0)
    Call MyKernel.OutputXML(Empty)
End Sub

Private Sub doGet()
    MyXML.SetF GetURL("forget.asp", "Referer", strReferer), "post", "", True
    MyXML.SetN "UserName", "text", "", "您的昵称：", "", True, 0, 0, ""
    MyXML.SetN "Mobile", "text", "", "手机号码：", "", True, 11, 0, "NNNNNNNNNNN"
    MyXML.SetN "Passwd", "password", "", "重设密码：", "", True, 0, 0, ""
    MyXML.SetN "", "submit", "确定", "", "", True, 0, 0, ""
    MyXML.Printf "还没有注册？"
    MyXML.Println MyXML.CreateA(GetURL("register.asp", "Referer", strReferer), "点此注册", "", "")
    MyXML.Printf "已经注册了？"
    MyXML.Println MyXML.CreateA(GetURL("login.asp", "Referer", strReferer), "点此登录", "", "")
End Sub

Private Sub doPost()
    Dim strUserName, strPass, strMobile
    Dim objCmd, strSQL
    Dim lngTime
    strUserName = Trim(MyIO.Form("UserName"))
    strPass = Trim(MyIO.Form("Passwd"))
    strMobile = Trim(MyIO.Form("Mobile"))
    Set objCmd = MyKernel.Command(T_USER)
    objCmd.CommandType = "SELECT"
    objCmd.Where = "USERNAME='" & SafeString(strUserName) & "'"
    If strUserName = "" Then
        strError = "请输入您的昵称"
    ElseIf strPass = "" Then
        strError = "请输入您的新密码"
    ElseIf Not objCmd.Exec Then
        strError = "昵称或手机号码错误"
    ElseIf objCmd("Mobile") <> strMobile Then
        strError = "昵称或手机号码错误"
    Else
        blnError = False
        strError = "密码取回成功" & vbCrLf & _
        "您的新密码：" & strPass & vbCrLf & _
        "现在您可以尽情使用本站提供的服务了！"
        lngTime = GetTime(Now())
        objCmd("Passwd") = MD5(strPass)
        objCmd("LastVisitIP") = MyIO.Env("REMOTE_ADDR")
        objCmd("LastVisitTime") = lngTime
        objCmd("LastUserAgent") = MyIO.Env("HTTP_USER_AGENT")
        objCmd.CommandType = "UPDATE"
        objCmd.Where = "SEQID=" & objCmd("SeqId")
        objCmd.Add "Passwd", objCmd("Passwd")
        objCmd.Add "LastVisitIP", objCmd("LastVisitIP")
        objCmd.Add "LastVisitTime", objCmd("LastVisitTime")
        objCmd.Add "LastUserAgent", objCmd("LastUserAgent")
        objCmd.Exec
        Call AsyncMemory(objCmd)
        If AddOnline(objCmd("SeqID"), strUserName, lngTime) Then
            Call SetUserStat(stOnlineUser & "|" & stVisitToday, 1)
        End If
    End If
    Set objCmd = NOthing
    MyXML.Println strError
    If blnError Then
        Call doGet
    End If
End Sub