Foxtable(狐表)用户栏目专家坐堂 → 公众号订单管理 实例,本地测试,为什么只停留在身份验证函数,而没执行到登录页


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

主题:公众号订单管理 实例,本地测试,为什么只停留在身份验证函数,而没执行到登录页

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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
公众号订单管理 实例,本地测试,为什么只停留在身份验证函数,而没执行到登录页  发帖心情 Post By:2023/11/22 15:42:00 [显示全部帖子]

如题 ,如上图。图片点击可在新窗口打开查看

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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
  发帖心情 Post By:2023/11/22 15:48:00 [显示全部帖子]

从“订单\订单_登录页”看,只要

 Else Verified = -1

        Dim ul1 As String

        Dim ul2 As String = e.Request.URL.ToString

        If Vars("isLocal") Then

            ul1 = ul2 & "?code=123" '本地测试,随便加个code参数

下面页面为何没有生成?

wb.InsertHTML("<meta http-equiv='Refresh' c>")

        e.WriteString(wb.Build)

        Return "" '必须的

    End If

    '下面生成网页

    wb.AddPageTitle("","pageheader","订单微信端","由湛江辉迅基于Foxtable开发")

    If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password")  Then '判断是否是验证失败后的重新登录

        wb.AddTopTips("","toptip1","密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.

    End If

    wb.AddForm("","form1","logon")

    

    With wb.AddInputGroup("form1","ipg1")

        With .AddInput("username","户名","text")

            .Readonly = True

            If username > "" Then

                .Value = UserName

            End If

        End With

        .AddInput("password","密码","password")

        If e.Values.ContainsKey("reurl") Then '保存重定向的页面地址,不然提交后获取不到

            .AddHiddenValue("reurl",e.Values("reurl")) '这里无需解码

        End If

    End With

    With wb.AddButtonGroup("form1","btg1",True)

        .Add("btn1", "登录", "submit")

    End With

    e.WriteString(wb.Build)



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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
  发帖心情 Post By:2023/11/23 8:49:00 [显示全部帖子]

这2步已设置了。openid填的是加密后的字符串吗?我填的是加密前的openid
图片点击可在新窗口打开查看

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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
  发帖心情 Post By:2023/11/23 8:50:00 [显示全部帖子]

从代码里看,应该是填加密前的openid

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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
  发帖心情 Post By:2023/11/23 8:55:00 [显示全部帖子]

跟踪函数【订单\订单_身份验证】代码:获得Verified = -1,openid为空。并不是表A中填入的openid

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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
  发帖心情 Post By:2023/11/23 9:00:00 [显示全部帖子]

1、本地测试时,请求网址是http://127.0.0.1/ordertest/logon,后面没有?code。函数【订单\订单_身份验证】如下四行代码就不会执行了呀
'身份验证,公众号
If e.GetValues.ContainsKey("code") Then '如果有code参数说明是从授权转接过来的
    If Vars("isLocal") Then
        Openid = Tables("表A").Rows(1)("第三列") '局域网测试直接返回固定值
        wb.Appendcookie("openid",EncryptText(Openid & "|" & Date.Now,_EKEY1, _EKEY2) )。
2、请求网址改为http://127.0.0.1/ordertest/logon?code=“123”后,浏览器则一直在等待响应中。。。,没有返回e.WriteString(wb.Build)相关的页面


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


加好友 发短信
等级:小狐 帖子:324 积分:2722 威望:0 精华:0 注册:2012/10/17 10:05:00
  发帖心情 Post By:2023/11/23 9:13:00 [显示全部帖子]

1、我一楼的请求地址写的对吗?如果不对,应写哪个网页地址
2、表A也填了openid了,全局变量也islocal=true了,函数【订单\订单_身份验证】代码
If e.GetValues.ContainsKey("code") Then '如果有code参数说明是从授权转接过来的
    If Vars("isLocal") Then
        Openid = Tables("表A").Rows(1)("第三列") '局域网测试直接返回固定值
        wb.Appendcookie("openid",EncryptText(Openid & "|" & Date.Now,_EKEY1, _EKY2) )
为什么不会执行,会是条件If e.GetValues.ContainsKey("code") 问题吗


 回到顶部