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


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

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

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


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/10 16:26:00 [只看该作者]

把帮助的用法改为授权验证,怎么个改法?麻烦老师给一段代码范例

 回到顶部
帅哥,在线噢!
有点蓝
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106184 积分:540043 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 16:27:00 [只看该作者]

就是19楼的用法啊

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


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/10 16:32:00 [只看该作者]

哦,我现在就是用的那个。
但为了方便调试我申请了一个通道映射,能正常运行。现在问题是按19楼代码
If e.host = "yuming.com" Then这个判断始终不符合,结果后续的其他网页还都能正常访问。

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


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/10 16:33:00 [只看该作者]

就是网页授权验证没通过的情况下,其他页面都能正常访问。

 回到顶部
帅哥,在线噢!
有点蓝
  35楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106184 积分:540043 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 16:44:00 [只看该作者]

如果服务器只有一个域名,去掉这个判断

If e.host = "yuming.com" Then

可以改为不需要判断的页面

Select Case e.path
    Case "不需要授权的页面1.htm","不需要授权的页面2.htm"
        Select Case e.path
            Case "不需要授权的页面1.htm"
                Functions.Execute("不需要授权的页面1函数",e)
            Case "不需要授权的页面2.htm"
                ……
        End Select
    Case Else
        授权验证的代码
        Select Case e.path
            Case "需要授权的页面1.htm"
                Functions.Execute("login",e)
            Case "需要授权的页面2.htm"
                ……
        End Select
End Select

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


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/11 15:06:00 [只看该作者]

    If  OpenID > "" And UserName > "" Then
    '为什么在OPENID和USERNAME不为空的情况下,下面的代码被循环执行?
        wb.InsertHTML("<meta http-equiv='Refresh' c>")
        e.WriteString(wb.Build)
        Return
    Else
        e.WriteString("你无权访问本系统")
        Return
    End If

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


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/11 15:27:00 [只看该作者]

老师帮忙看看

 回到顶部
帅哥,在线噢!
有点蓝
  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106184 积分:540043 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/11 16:14:00 [只看该作者]

不可能啊

If  OpenID > "" And UserName > "" Then
msgbox(OpenID) 弹出有没有值
msgbox(UserName )
    '为什么在OPENID和USERNAME不为空的情况下,下面的代码被循环执行?
        wb.InsertHTML("<meta http-equiv='Refresh' c>")
        e.WriteString(wb.Build)
        Return
    Else
        e.WriteString("你无权访问本系统")
        Return
    End If

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


加好友 发短信
等级:小狐 帖子:391 积分:3290 威望:0 精华:0 注册:2014/4/9 10:04:00
  发帖心情 Post By:2021/3/11 16:18:00 [只看该作者]

openid和username弹出都有值的,下面用sb.AppendLine("欢迎" & UserName & "光临, <a href='http://wexin.foxtable.com'>刷新页面</a>")就没问题,
wb.InsertHTML("<meta http-equiv='Refresh' c>")
        e.WriteString(wb.Build)
就无限循环

 回到顶部
帅哥,在线噢!
有点蓝
  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106184 积分:540043 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/11 16:29:00 [只看该作者]

到项目里重新把完整代码放到txt发上来

 回到顶部
总数 102 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..11