以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  怎么样避免重复提交数据  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159771)

--  作者:aidimeng
--  发布时间:2021/1/8 9:09:00
--  怎么样避免重复提交数据
做了一个简单的提交页面,确定按钮代码如下
 With wb.AddMsgPage("","msgpage","提交成功", "感谢您的参与!") \'生成成功提示页
        \' .AddButton("btn1","返回").Attribute = ""
       
    End With
 如果关闭页面再次打开,系统做了判断,但是如果 用户提交后,按的是手机的返回键,又回到刚刚的数据填写界面了
 这时 再一次点确定  数据有提交了一次

这样的情况怎么避免啊


--  作者:有点蓝
--  发布时间:2021/1/8 9:21:00
--  
1、提交的时候后台判断是否已经有同样的数据
2、使用ajax提交,然后强制刷新页面,window.location.reload();

function myfunction(){
    var result = submitAjaxForm(\'form1\',\'\',false);
    if (result ==\'OK\') {
show(\'dlg1\');
window.location.reload();
}
    else {showDialog(\'dlg2\',\'错误\',result)}
}

--  作者:aidimeng
--  发布时间:2021/1/8 10:43:00
--  
谢谢,我参考帮助中的 文档也看了下 
结果是点击确定 后 没反应
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1111.txt



--  作者:有点蓝
--  发布时间:2021/1/8 10:47:00
--  
With wb.AddButtonGroup("form1","btg1",True)
    .Add("btn1", "确定", "button").Attribute=    "" 
End With

……
    Dim r As DataRow= DataTables("推送").sqlFind("评价人微信=\'"& userid  &"\' and id= \'"& Vars("id") &"\'")
    r("状态")=1
    r.Save
    e.WriteString("OK") \'生成网页
    e.Handled = True
End If