Foxtable(狐表) → 用户栏目 → 专家坐堂 → 进入网页


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

主题：进入网页
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/10/23 20:53:00 [只看该作者]

3楼提出的2个问题，我看到了原因所在，问题都源于微信支付路径的设置（最多5个不够啊）

原路径：www.123.com/123.htm  可以正常访问
改支付：www.123.com/apipay/123.htm 这样js、图片的位置都变了，js和图片当然访问不到

新建一个文件夹apipay，所有图片都放里面，才行，这样浪费空
我想把httprequest里面，
Dim fl As String = "e:\web\" & e.path
改成：
Dim fl As String = "e:\web\" & e.path
fl = fl.Trim("apipay\")


[此贴子已经被作者于2018/10/24 8:12:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/23 21:37:00 [只看该作者]

可以把【http://www.123.com/】设置为支付授权目录啊，不管有没有jsapipay都可以支付的

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


加好友 发短信
等级：七尾狐 帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/10/23 21:40:00 [只看该作者]

httprequest：
Dim fl As String = "e:\web\" & e.path
改成：
Dim fl As String = "e:\web\" & e.path
fl = fl.Trim("apipay\")

不行，没有去掉
[此贴子已经被作者于2018/10/24 8:13:05编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/23 21:42:00 [只看该作者]

fl = fl.replace("jsapipay\"，“”)

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


加好友 发短信
等级：七尾狐 帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/10/24 11:23:00 [只看该作者]

之前的问题已解决

支付js成功调用
除传递的值不同外，其他逻辑完全按例子项目和文档，但是，在微信web开发者工具测试支付失败，提示：错误:JSAPI统一下单失败,无法发起支付

        Dim xmlres = Functions.Execute("api_UnifiedOrder",OpenID,dr("product_id"),"JSAPI",dr("orderfee")) '"ojDlHuPgDGZ7CRsE46GHMyvt4s10"由openid代码取代
        If xmlres  Then '如果下单成功
            Dim jsApiParam As new WxPayData()
            jsApiParam.SetValue("appId", Vars("appid"))
            jsApiParam.SetValue("timeStamp", jsApiParam.GenerateTimeStamp())
            jsApiParam.SetValue("nonceStr", jsApiParam.GenerateNonceStr())
            jsApiParam.SetValue("package", "prepay_id=" & dr("prepay_id"))
            jsApiParam.SetValue("signType", "MD5")
            jsApiParam.SetValue("paySign", jsApiParam.MakeSign())
            Dim parameters = jsApiParam.ToJson() '获取JS需要的参数JSON字符串
msgbox(16)
            e.WriteString(parameters)
        Else
msgbox(17)
            e.WriteString("错误:JSAPI统一下单失败,无法发起支付!")  这里提示错误
        End If
    Else
msgbox(18)
        e.WriteString("错误:不存在此业务订单号,无法发起支付!")
    End If
End If

[此贴子已经被作者于2018/11/1 11:10:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/10/24 11:26:00 [只看该作者]

在红色的函数那里加入msgbox测试，看哪里有问题，报什么错

 

Dim xmlres = Functions.Execute("api_UnifiedOrder",OpenID,dr("product_id"),"JSAPI",dr("orderfee")) '"ojDlHuPgDGZ7CRsE46GHMyvt4s10"由openid代码取代
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/10/25 15:45:00 [只看该作者]

公众号支付文档、支付例子项目，下面3个函数，有几个问题，麻烦解释，谢了
问题分别在，第6\11\12\20\30\46\50\65行

函数1：htm_GetWxJsApiParam
函数2：GetWxPayData
函数3：api_UnifiedOrder

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:3个函数的问题.txt



[此贴子已经被作者于2018/10/25 15:49:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/25 16:07:00 [只看该作者]

问题1：

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

问题2：看全局代码，把实例提供的帮助help.chm认真看一看

问题3：添加签名用的参数

问题4：返回微信接口需要的签名字符串，再重复一次，help.chm请认真看一看

问题5：可以

问题6：看问题1

问题7：生成提交给接口的数据

问题8：这里不是调用函数自身，是为了获取接口地址url，请认真理解代码



[此贴子已经被作者于2018/10/25 16:07:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1521 积分：10727 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2018/10/25 16:51:00 [只看该作者]

回楼上，问题1和6，实际是一回事，因为6那里也是JSAPI

有个新问题：不需要测试模式，因为JSAPI表与订单表相同，所以考虑将函数1：htm_GetWxJsApiParam的代码
Dim xmlres = Functions.Execute("api_UnifiedOrder","ojDlHuPgDGZ7CRsE46GHMyvt4s10",productid,"JSAPI",dr("orderfee"))
红色加粗部分改为：
Dim xmlres = Functions.Execute("api_UnifiedOrder","ojDlHuPgDGZ7CRsE46GHMyvt4s10",productid,"订单",dr("orderfee"))

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


加好友 发短信
等级：超级版主 帖子：105948 积分：538809 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/25 17:03:00 [只看该作者]

首先，先看懂代码里在做什么。先把微信官方的文档详细看几遍，至少3遍。我做这个例子的时候来来回回都看了不止10遍了。了解人家接口需要上传什么数据，然后可以接收到什么数据。

所以什么表名不是重点，关键是这个表能不能提供微信支付需要的数据，并且能够存储返回的结果，以备下次业务需要时使用
 回到顶部
总数 60 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询