主题：[求助]

'公众号内支付获取H5调起JS API参数

Dim e As RequestEventArgs = args(0)

Dim productid As String = e.PlainText

Dim dr As DataRow = DataTables("JSAPI").Find("product_id='" & productid & "'") '查询是否存在此业务订单

If dr IsNot Nothing Then

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

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

    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字符串

        e.WriteString(parameters)

    Else

        e.WriteString("错误:JSAPI统一下单失败,无法发起支付!")

    End If

Else

    e.WriteString("错误:不存在此业务订单号,无法发起支付!")

End If