[求助]微信订单测试不成功[已解决] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

微信订单测试不成功，按照说明配置好，是否直接可以用或者还需要怎么做？

使用本网页示例前，先把示例压缩包中的“微信接口案例\4. web”目录中的“ordertest”和“review”2个目录拷贝到web服务文件夹“C：/web”。

定义一个view类型的菜单，url设置为登录页面的地址。如果需要使用微信授权，则把url包装为微信授权模式的url。

以示例来说，登录页面地址是：http://192.168.100.2/ordertest/logon.htm。

如果为授权模式，在微信中设置的登录地址就是这样的：https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx506f113977c3a8a3&redirect_uri=http%3a%2f%2f192.168.100.2%2fordertest%2flogon.htm&response_type=code&scope=snsapi_base&state=wx506f113977c3a8a3#wechat_redirect，注意state参数这里传入了当前微信公众号的开发者ID（&state=wx506f113977c3a8a3），因为如果管理了多个微信公众号，可以识别是哪一个微信公众号调用的页面。如果只有一个微信公众号，可以不设置这个参数。

这里微信网页应用整体逻辑是参考移动开发【使用关联表】一章和【设计首页和登录页面】一节的内容整合扩展的，一些基本的用法这里不再重复解说，只是针对扩展的内容进行说明。

改动后，还是显示授权获取失败，无法访问

日志显示：

2017-03-23 16:09:36.0039

Verified =False,openid=,code=570befccce24f22ceec2c1a6432f50d4

2017-03-23 16:09:36.0039

path=ordertest\logon.htm

HttpMethod=GET

code=570befccce24f22ceec2c1a6432f50d4

state=wx75cc9ec9fb1b8a8a

这是什么原因呢？

[此贴子已经被作者于2017/3/23 20:47:30编辑过]

你地址问题。

考虑一个事情，你的url微信服务器可以访问吗？或者说外网可以访问你的url吗？

192.168.100.2这个很明显是内网地址，微信能访问吗？

有设置授权域名或者IP了吗

如果不是测试号。回调地址只支持域名，不支持IP的。

https://mp.weixin.qq.com/wiki?action=doc&id=mp1421140842&t=0.6206387241836637

https://open.weixin.qq.com/connect/oauth2/authorize?appid=wx75cc9ec9fb1b8a8a&redirect_uri=http%3a%2f%2ffoxwx.deqsafety.gov.cn%2fordertest%2flogon.htm&response_type=code&scope=snsapi_base&state=wx75cc9ec9fb1b8a8a#wechat_redirec

http://foxwx.deqsafety.gov.cn/ordrtest/logon.htm

对接微信，你弄好了吗？

http://www.foxtable.com/mobilehelp/scr/0175.htm

http://www.foxtable.com/mobilehelp/scr/0211.htm

[此贴子已经被作者于2017/3/23 18:44:52编辑过]

单独设置了一个回调页面，能接入，但是使用了赋值变量，传相关参数进去。

    Case "wefox"
        Dim wbiz As New WXBizCrypt(Vars("CorpID"),Vars("Token"),Vars("EncodingAESKey"))
        If e.Request.HttpMethod = "GET"
            Dim ret As Integer = wbiz.CheckQYSignature(e)
            If ret <> 0 Then '如果接入验证失败
                Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述
            End If
        End If

直接使用微信服务端，添加记录

serverUrl设置为：http://foxwx.deqsafety.gov.cn/wefox2

使用服务端：

            Dim wechatserv As WeChat.WeChatPublicNo
            If e.Path > "" Then
                url = "http://" & e.host & "/" & e.Path.replace("\","/").replace("'","''").replace("""","""""") & "/"
                wechatserv = Functions.Execute("WeChat_GetServerByUrl",url) '查询是否有此地址的微信公众号
            End If
            If wechatserv IsNot Nothing Then '说明是微信接口回调消息
                wechatserv.ProcessMessage(e,"WeChat_ProcessRequestMsg") '处理消息并获取返回值

无法接入，望指点迷津

原来是应用权限没设置的问题

此主题相关图片如下：捕获.png

主题：[求助]微信订单测试不成功[已解决]