WEUI与微信公众号问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

那就判断固定的几个人的OPENID就行了，如果是这几个OPENID就可以打开某些页面

老师好，问一下。我使用测试号和https://www.ngrok.cc/域名调试程序没有问题并发布到正式的域名：

1、改了开发者ID和密钥为正式服务号的

2、改了服务号的网页授权指号备案域名

当访问授权网页时没有正常跳转到需要访问的页面上，而是显示空白页面。复制URL链接后如下：

http://yuming.com/?code=34903409349034skdkslksdkll&state=123

是什么原因？

代码里是不是有判断域名的用法，去掉

调试一下，看httprequest事件执行了什么代码，什么代码没有执行到

第一次访问那个授权URL空白页面，然后再访问一次这个URL就能正常显示了。每个新用户都是这个问题

调试一下，看httprequest事件执行了什么代码，什么代码没有执行到

关键是在测试号上一切正常啊，就是移到正式服务号时就不行了。

当执行授权链接后，WXUSER表已经填入了新用户的信息，说明已经获取到了。

不知道正式的服务号还需要设置什么吗？

您帮看看HTTPREQUEST的代码

下载信息 [文件大小：下载次数： ]
点击浏览该文件:bug.txt

[此贴子已经被作者于2021/3/30 17:14:45编辑过]

useropenid是什么内容？新用户肯定不会等于这个变量，新用户没有打开授权链接之前，肯定也无法获取到openid，所以不会出现授权成功的情况，正常应该会跳到下面红色代码。

If OpenId > "" AndAlso dr IsNot Nothing AndAlso dr("permit") = True '授权成功

wb.AppendCookie("username",UserName) '用户名和openid存储在Cookie中

wb.AppendCookie("openid",OpenID)

'output.show("2-1用户名和openid存储在Cookie中")

dr = DataTables("GrantTable").SqlFind("HtmName ='" & e.path & "'") '根据openid找出对应的行

If openid <>useropenid And dr("HtmName") <> dr("guest") Then

'output.show("3-清COOKINES时,如果不是超级用户")

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

'output.show("4-根据" & e.path & "找到所在行" & "跳转ul为:" & dr("guest"))

e.WriteString(wb.Build) '在用户浏览器显示错误信息

Return

Else

'如果是超级用户

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

e.WriteString(wb.Build) '在用户浏览器显示错误信息

Return

End If

Else

With wb.AddMsgPage("","msgpage","您无权访问该页","此内容仅供俱乐部永久会员访问!")

.icon = "Warn" '改变图标

End With

e.WriteString(wb.Build)

Return '必须返回

End If

这个还是需要您自己去一步步调试，应该执行的代码那些执行了，那些没有执行到，没有执行到是什么原因，哪些判断条件不符合。。。。。

调试我知道的，本地没问题，但服务器是远程的，在本地又调试不了，远程服务器只能运行发布后的程序。老师有什么好办法吗？

在远程服务器上怎么调试代码？麻烦老师给个思路

老师，这类的远程服务器调试有什么好办法吗？麻烦老师给个思路。

主题：WEUI与微信公众号问题