以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  退出  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121876)
--  作者：刘林
--  发布时间：2018/7/14 17:16:00
--  退出
Dim e As RequestEventArgs = args(0)
Dim wb As New  weui
Dim dr As DataRow = DataTables("用户").sqlfind("身份证号=\'" & e.Cookies("username") & "\'")
If e.PostValues.Count = 0 Then
    wb.AddPageTitle("","pageheader","内江市教务系统","密码修改")
    wb.AddForm("","form1","xgmm.htm")
    With wb.AddInputGroup("form1","ipg1")
        Dim idfm = .AddInput("username","户名:","text")
        idfm.value= e.Cookies("username")
        idfm.readonly = True
        Dim idxm = .AddInput("username","姓名:","text")
        idxm.value= dr("name")
        idxm.readonly = True
        .AddInput("ymm","原密码:","password").placeholder ="请输入原密码"
        .AddInput("xmm","密码:","password").placeholder ="请输入新密码"
    End With
    With wb.AddButtonGroup("form1","btg1",False)
        .Add("btn1", "确定", "submit")
        .Add("btn2", "退出").Attribute = "  "onc   lick=\'hist    ory.go(-1)\'"
  "

    End With
    e.WriteString(wb.Build)
Else
    If e.PostValues("ymm")<> e.Cookies("password")
        With wb.AddMsgPage("","msgpage","修改不成功", "原密码不正确!")
            .icon = "Warn" \'改变图标
            .AddButton("btn1","返回").Attribute = ""
        End With
        e.WriteString(wb.Build)
        Return ""
    End If
    If e.PostValues("xmm").length<>6
        With wb.AddMsgPage("","msgpage","修改不成功", "新密码统一要求应为六位")
            .icon = "Warn" \'改变图标
            .AddButton("btn1","返回").Attribute = ""
        End With
        e.WriteString(wb.Build)
        Return ""
    End If
    dr("password")=e.PostValues("xmm")
    wb.AppendCookie("password",e.postvalues("xmm"))
    dr.save()
    With wb.AddMsgPage("","msgpage","密码改成为", "请记住你修改的新密码为:" & e.postvalues("xmm")) \'生成成功提示页
        .AddButton("btn6","返回","javascript:history.back()")\'.Attribute = ""
    End With
    e.WriteString(wb.Build)
End If

老师，请问上面红色代码我是想退回到上一步，但要跳出修改不成功，原密码不正确呢，该怎样改才对？
[此贴子已经被作者于2018/7/14 17:27:01编辑过]
--  作者：刘林
--  发布时间：2018/7/14 17:39:00
--  
找到了,加个"button"
.Add("btn2", "退出","button").Attribute = "  "onc   lick=\'hist    ory.go(-1)\'"
--  作者：刘林
--  发布时间：2018/7/14 18:03:00
--  
 W
 With wb.AddMsgPage("","msgpage","修改不成功", "新密码统一要求应为六位")
            .icon = "Warn" \'改变图标
            .AddButton("btn1","返回").Attribute = "onc    lick=\'his    tory.go(-1)\'"
        End With



这样返回上页时，之前输入的数据应该还在，但刷新为空值了，又要重新输入，我的想法是如果新密码不对，返回重新输入时原来输入的还有，怎么办？

[此贴子已经被作者于2018/7/14 18:03:34编辑过]
--  作者：有点甜
--  发布时间：2018/7/15 17:40:00
--  
以下是引用刘林在2018/7/14 18:03:00的发言：

 

这样返回上页时，之前输入的数据应该还在，但刷新为空值了，又要重新输入，我的想法是如果新密码不对，返回重新输入时原来输入的还有，怎么办？

[此贴子已经被作者于2018/7/14 18:03:34编辑过]

 

方法一：验证的时候，不要用submit跳转到新的网页，你可以用js写ajax代码提交表单，如

 

http://www.foxtable.com/mobilehelp/scr/0104.htm

 

方法二：如果确实要调整，你可以把账号密码等信息存放在cookie里面，返回的时候（页面刷新的时候），读取cookie的值赋值进去。