[求助]没学会Cookie的用法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]没学会Cookie的用法

共有2252人关注过本帖树形打印复制链接主题：[求助]没学会Cookie的用法

石四

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

[求助]没学会Cookie的用法 发帖心情

Post By：2018/9/8 11:57:00 [只看该作者]

把 For Each dr As DataRow In dt1.Select("姓名 = '" & UserName & " ' And 权限=True"

改成 For Each dr As DataRow In dt1.Select("姓名 = '张三' And 权限=True")

导航才正常

下载信息 [文件大小：下载次数： ]
点击浏览该文件:webmobil.zip

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110629 积分：563047 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/9/8 13:51:00 [只看该作者]

Else '其它页面从Cookie提取登录信息进行验证

UserName = e.Cookies("username") '从cookie中获取用户名

msgbox(UserName) ‘这里弹出什么内容

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

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

主题：[求助]没学会Cookie的用法