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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有3325人关注过本帖树形打印复制链接主题：[求助]

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/12 10:45:00 [只看该作者]

1、alert(document.getElementById("订单编号").value) 弹出什么内容？

2、你 getWxJsApiParam.htm 代码有问题，你在httprequest那里加入msgbox，跳转到哪里执行了，执行了什么代码，最后返回什么代码。

OKK

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/7/12 11:05:00 [只看该作者]

点击“立即支付”后再去看调试器的console页，空白的，什么都没有

OKK

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/7/12 11:05:00 [只看该作者]

1.弹出”001“

2.加入了messagebox(e.path)

弹出：

my123pay\getWxJsApiParam.htm

有点蓝

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106287 积分：540564 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/12 11:16:00 [只看该作者]

Request函数这里

Case "jsapipay\getWxJsApiParam.htm" '公众号支付获取H5调起JS API参数

Functions.Execute("htm_GetWxJsApiParam",e)

Case "jsapipay\getWxJsApiParam.htm" 要改为 Case "my123pay\getWxJsApiParam.htm"

jsapipay都要改为my123pay

公众号支付测试用例表有没有商品ID为“001”的数据？

OKK

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/7/12 11:20:00 [只看该作者]

代码都改成这样了：

Case "nativepay" '扫码支付回调'

Functions.Execute("callback_nativepay",e)

Case "my123pay\index.htm" '商品销售直接调用jssdk支付页面'

Functions.Execute("htm_jsapipay",e)

Case "my123pay" '调用jssdk支付回调'

Functions.Execute("callback_jsapipay",e)

Case "my123pay\getWxJsApiParam.htm" '公众号支付获取H5调起JSAPI参数

Functions.Execute("htm_GetWxJsApiParam",e)

Case "jsapipay\test.htm" '公众号测试用例页面'

Functions.Execute("htm_jsapipay_test",e)

Case "jsapipay\QueryOrder.htm" '公众号测试用例查询功能

Functions.Execute("htm_QueryOrder",e)

然后商品ID有001，但其它是空的：

dvubb 此主题相关图片如下：1531365419(1).png

有点甜

小大 26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/12 11:25:00 [只看该作者]

httprequest那里加入多个msgbox，跟踪它最后执行到了哪个函数。如果执行了对应函数，msgbox肯定能弹出的。

有点蓝

小大 27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106287 积分：540564 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/12 11:35:00 [只看该作者]

htm_GetWxJsApiParam函数

'调用统一下单,传入openid(可以通过网页授权获取),下单类型为"JSAPI",订单金额

Dim xmlres = Functions.Execute("api_UnifiedOrder","ojDlHuPgDGZ7CRsE46GHMyvt4s10",productid,"JSAPI",dr("orderfee"))

红字部分改为公众号的测试用户的openid

OKK

小大 28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/7/12 11:45:00 [只看该作者]

messagebox.show("1" & e.path)

Dim fl As String = "d:\my123pay\" & e.path

Functions.Execute("logtext","文件:" & fl)

messagebox.show("2" & e.path)

If filesys.FileExists(fl)

messagebox.show("3" & e.path)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

messagebox.show("4" & e.path)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

messagebox.show("6" & e.path)

Return '这里必须返回

End Select

End If

messagebox.show("7" & e.path)

Functions.Execute("Request",e)

messagebox.show("8" & e.path)

点击getWxJsApiParam.htm后：

1,2,7,8都弹出"my123pay\getWxJsApiParam.htm”

有点甜

小大 29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/12 11:52:00 [只看该作者]

1、在你【Request】函数里面，继续追踪，是否进入执行了对应的函数。

2、如果进入了 htm_GetWxJsApiParam，那么加入msgbox继续测试，红字部分改为公众号的测试用户的openid

Dim xmlres = Functions.Execute("api_UnifiedOrder","ojDlHuPgDGZ7CRsE46GHMyvt4s10",productid,"JSAPI",dr("orderfee"))

OKK

小大 30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2018/7/12 12:35:00 [只看该作者]

修改了测试的用户的openid

打开http://www.my123pay.com/my123pay/index.htm ，点击“立即支付”，还是没反应

打开http://www.my123pay.com/my123pay/getWxJsApiParam.htm ，仍然提示 “错误：不存在此业务订单号【】，无法发起支付！”

点击http://www.my123pay.com/my123pay/index.htm 进入的是函数是 htm_jsapipay

点击http://www.my123pay.com/my123pay/getWxJsApiParam.htm 进入的是函数是 htm_GetWxJsApiParam

htm_GetWxJsApiParam函数，修改了openid后，也加入了messagebox

从第1个IF开始，IF内的都不能读取，第1个IF前的可以读取，然后就到最后“错误：不存在此业务订单号【】，无法发起支付！”这个位置可以读取

下一主题 >> << 上一主题

总数 40 上一页 1 2 3 4 下一页

主题：[求助]