之前的问题已解决
支付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编辑过]