If dr IsNot Nothing Then
*************
Dim xmlre = Functions.Execute("api_UnifiedOrder",OpenID,dr("product_id"),"JSAPI",dr("orderfee"))
msgbox("xmlre=" & xmlre) ’这里返回true
If xmlres Then '如果下单成功
Dim jsApiParam As new WxPayData()
msgbox(1) ’执行了
jsApiParam.SetValue("appId", Vars("appid"))
msgbox(2) ’执行了
jsApiParam.SetValue("timeStamp", jsApiParam.GenerateTimeStamp())
msgbox(3) ’执行了
jsApiParam.SetValue("nonceStr", jsApiParam.GenerateNonceStr())
msgbox(4) ’执行了
jsApiParam.SetValue("package", "prepay_id=" & dr("prepay_id"))
msgbox(5) ’执行了
jsApiParam.SetValue("signType", "MD5")
msgbox(6)
jsApiParam.SetValue("paySign", jsApiParam.MakeSign())
msgbox(7) ’执行了
Dim parameters = jsApiParam.ToJson() '获取JS需要的参数JSON字符串
msgbox(8) ’执行了
msgbox(parameters)
’返回结果见下图，缺少预支付id，但是函数api_UnifiedOrder预支付id已经获得；
e.WriteString(parameters)
Else
e.WriteString("错误:JSAPI统一下单失败,无法发起支付!")
End If
Else
e.WriteString("错误:不存在此业务订单号,无法发起支付!")
End If
加好友 
发短信
Post By：2018/10/30 15:11:00 [显示全部帖子]
此主题相关图片如下：qq图片20181030151243333333333.png
