以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  cookie删除不成功  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158742)
--  作者：zhangjian222200
--  发布时间：2020/12/1 11:39:00
--  cookie删除不成功
exit页面代码：
Dim e As RequestEventArgs = args(0)                             \'退出
Dim wb As New weui
wb.AppendHTML("<link rel=\'icon\' href=\'/abc.ico\' Type=\'image/x-icon\' />") \'abc.ico,放到web根目录

wb.ClearCookie \'删除所有cookie

e.WriteString(wb.Build) \'生成网页
e.Handled = True \'通知系统异步函数执行完毕,可以关闭信道


执行上面代码，cookie依然存在,见下图：

图片点击可在新窗口打开查看此主题相关图片如下：000.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/12/1 11:40:22编辑过]
--  作者：有点蓝
--  发布时间：2020/12/1 13:38:00
--  
我测试没有问题，这个页面是不是使用ajax返回的？只有当前页面刷新cookie才会变化


Select Case e.Path
    Case "exit.htm"                           \'退出
        Dim wb As New weui
        \'wb.AppendHTML("<link rel=\'icon\' href=\'/abc.ico\' Type=\'image/x-icon\' />") \'abc.ico,放到web根目录
        
        wb.ClearCookie \'删除所有cookie
        
        e.WriteString(wb.Build) \'生成网页
    Case "index"
        Dim wb As New weui
        \'wb.AppendHTML("<link rel=\'icon\' href=\'/abc.ico\' Type=\'image/x-icon\' />") \'abc.ico,放到web根目录
        With wb.AddButtonGroup("","btg1",True)  \'垂直排列
            .Add("btn5", "按钮", "", "exit.htm") \'单击这个按钮可以打开foxtable主页
        End With
        wb.AppendCookie("123","123")
        
        e.WriteString(wb.Build) \'生成网页
End Select