以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]没学会Cookie的用法  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=124528)

--  作者：石四 --  发布时间：2018/9/8 11:57:00 --  [求助]没学会Cookie的用法  把 For Each dr As DataRow In dt1.Select("姓名 = \'" & UserName & " \' And 权限=True" 改成   For Each dr As DataRow In dt1.Select("姓名 = \'张三\' And 权限=True") 导航才正常  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:webmobil.zip

--  作者：有点蓝 --  发布时间：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 End If http://www.foxtable.com/webhelp/scr/1485.htm