以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何关闭手机浏览网页?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192380)

--  作者:lanbor
--  发布时间:2024/6/19 20:56:00
--  如何关闭手机浏览网页?
以下代码为手机网页的 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) \'生成网页

--  作者:有点蓝
--  发布时间:2024/6/20 8:03:00
--  
参考:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=150676&replyID=77588&skin=1