以下代码为手机网页的 Exit 退出App代码
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.Cookies.ContainsKey("cookKey") Then '判断当前用户ID 是否存在
Dim w_ID01 As Integer = e.Cookies("cookKey")
'Dim wcnt As Integer = DataTables("GxWxUser").SQLReplaceFor("dateOut", Date.Now, "[_FID]=" & Vars("w_ID01"))
End If
wb.DeleteCookie("cookXM")
wb.DeleteCookie("cookTel")
wb.DeleteCookie("SONumber")
'不要这行wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
‘请教如何追加代码？
让用户点“exit"链接后，整个应用网页就直接闭关了？
e.WriteString(wb.Build) '生成网页