我测试没有问题,这个页面是不是使用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