移动开发登录老要退出重新登录。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

调试看看能不能从cookie取到正确的值

Else '其它页面从Cookie提取登录信息进行验证
UserName = e.Cookies("username") '从cookie中获取用户名

msgbox("UserName=" & UserName)

UserID = e.Cookies("userid") '从cookie中获取随机ID

msgbox("UserID =" & UserID )

Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")

msgbox(dr IsNot Nothing)
    If dr IsNot Nothing AndAlso dr("UserID") = UserID Then  '如果通过验证,更新活动时候,继续访问其它页面.
        dr("ActiveTime") = Date.Now '更新活动时间
    Else '如果验证失败
        wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
        e.WriteString(wb.Build) '生成网页
        Return '必须的
    End If
End If

主题：移动开发登录老要退出重新登录。