Foxtable(狐表)用户栏目专家坐堂 → 符合条件后自动跳转怎么写?


  共有7877人关注过本帖树形打印复制链接

主题:符合条件后自动跳转怎么写?

帅哥哟,离线,有人找我吗?
南望
  51楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/18 21:11:00 [显示全部帖子]

明白了,那两个字段如何比较呢?就是htmname字段的值不等于guest字段的值
Dim dr2 As DataRow = DataTables("GrantTable").SqlFind("HtmName ='" & e.path & "'") 

if dr2 isnot nothing andalso dr2("HtmName")<>dr2("guest")  

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/18 21:34:00 [显示全部帖子]

 If openid <>useropenid  Then
    Dim dr2 As DataRow = DataTables("GrantTable").SqlFind("HtmName ='" & e.path & "'") '根据openid找出对应的行
     If  dr2 IsNot Nothing AndAlso dr2("HtmName")<>dr2("guest")   Then
            msgbox(这个条件始终满足不了?)
            wb.InsertHTML("<meta http-equiv='Refresh' c>")
        End If
        e.WriteString(wb.Build) '在用户浏览器显示错误信息
        Return


 回到顶部
帅哥哟,离线,有人找我吗?
南望
  53楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/18 21:42:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:2021-03-18_214118.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/18 22:11:00 [显示全部帖子]

主要就是想让他过滤掉两个相等的,碰到相等的就不执行那个跳转。这样listfee.htm是不是就可以实现正常跳转了?

 回到顶部
帅哥哟,离线,有人找我吗?
南望
  55楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/19 11:36:00 [显示全部帖子]

苹果手机关掉微信cookies即被清空,而华为手机的微信关掉后cookies仍然没有清空,导致代码不能执行授权链接的语句,请问老师有什么办法?

Else
    UserName = e.Cookies("username") '
    OpenID = e.Cookies("openid")
    msgbox(6)
    If userName = "" OrElse OpenID = "" Then
   腾讯授权链接

 回到顶部
总数 56 上一页 1 2 3 4 5 6