Foxtable(狐表) → 用户栏目 → 专家坐堂 → 工资推送企业微信时遇到的问题


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

主题：工资推送企业微信时遇到的问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 16:12:00 [显示全部帖子]

去掉最后/试试

Dim yyzy As String = Vars("yyzy") &"/Remuneration"
msgbox(yyzy) 提示什么地址？
jo("textcard")("url") = yyzy


服务端
第一行加上
msgbox(e.path) 看访问的地址是什么？注意大小写是否正确
……
msgbox(Vars("yyzy"))提示什么地址？
Dim ul2 As String = UrlEncode(Vars("yyzy"))

……
        If Verified = False Then
            'MessageBox.Show("授权不通过:" & userid)
            sb.AppendLine("你无权访问本系统")
        Else
            'MessageBox.Show("通过,进入主页")
            'MessageBox.Show("授权成功")
            e.WriteString("<meta http-equiv='Refresh' c>") 这里代码不完整
            '    sb.AppendLine("欢迎" & UserName & "同志使用本系统,授权成功!请" & " , <a href='http://www.crucg.top/Remuneration2'>刷新页面后进去</a>")
return
        End If
        e.WriteString(sb.ToString)
        
    Case "Remuneration2"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 16:25:00 [显示全部帖子]

msgbox(yyzy)绝对不可能是上面第一个图的提示，如果不会调试就上传实例吧

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 16:43:00 [显示全部帖子]

客户端是哪个窗口的代码？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 16:51:00 [显示全部帖子]

和1楼的代码都不一样，确定是同一个项目吗？

5楼实例
Dim yyzy As String = Vars("yyzy")  
msgbox(yyzy) 

1楼
Dim yyzy As String = Vars("yyzy") &"/Remuneration"
msgbox(yyzy) 提示什么地址？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 16:54:00 [显示全部帖子]

服务端请参考这里帮助的用法改改：http://www.foxtable.com/mobilehelp/topics/0138.htm

不要使用e.AppendCookie
改为使用wb.AppendCookie

e.WriteString("<meta http-equiv='Refresh' c>")
这种也改为
wb.InsertHTML("<meta http-equiv='Refresh' c>")
e.WriteString(wb.Build)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 17:26:00 [显示全部帖子]

服务端            Dim ul2 As String = UrlEncode(Vars("yyzy"))这里的yyzy变量的地址必须和上面10楼提示的地址一致，否则授权后就无法进来了

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 20:13:00 [显示全部帖子]

所有json解析都调试一下返回值
Dim jo As JObject = JObject.Parse(hc.GetData)

改为
dim res as string = hc.GetData
msgbox(res )
Dim jo As JObject = JObject.Parse(res )
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/14 21:02:00 [显示全部帖子]

GetQYAccessToken函数有问题，应该是应用的id和密钥没有填对

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/15 9:50:00 [显示全部帖子]

下载微信开发者工具安装调试：https://developers.weixin.qq.com/doc/offiaccount/OA_Web_Apps/Web_Developer_Tools.html，分析cookie和授权是否异常

最后一张图是代码问题，自行调试是哪一句代码出错:http://www.foxtable.com/webhelp/scr/1485.htm
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询