主题：[求助]

//检查微信客户端版本，必须5.0及以上版本才支持

function checkagent() {

    var ua = navigator.userAgent;

    var idx = ua.indexOf("MicroMessenger"); //是否包含MicroMessenger

    if (idx > -1) {

        ua = ua.substring(idx + 15, idx + 16);

        return ua >= "5";

    }

    return false;

}

//支付接口调用

function jsApiCall() {

    var result = sendAjaxText(document.getElementById("订单编号").value, "getWxJsApiParam.htm", "", false); //通过订单编号从服务器获取JS接口需要的参数

    if (result == ""){

        showDialog('dlg1', '错误', "业务后台出错！");

        return;

    }

    if (result.substring(0, 2) == "错误") {

        showDialog('dlg1', '错误', result);

        return;

    }

    var wxJsApiParam = JSON.parse(result);

    WeixinJSBridge.invoke(

        'getBrandWCPayRequest',

        wxJsApiParam, //josn串

        function (res) {

            WeixinJSBridge.log(res.err_msg);

            document.getElementById("txt").value = JSON.stringify(res);

            //alert(res.err_code + res.err_desc + res.err_msg);//接口调用后的返回处理，可以在网页显示成功是否。注意这里返回的成功并不能代码真正的成功，需要查询订单进行确认

        }

    );

}

//检查微信接口是否可用，并发起接口调用

function callpay(id) {

    var formid = document.getElementById("订单编号");

    formid.value = "";

    if (!checkagent()){

        alert("微信版本太低无法使用微信支付功能，必须5.0及以上的版本！");

        return;

    }

    formid.value = id;

    if (typeof WeixinJSBridge == "undefined") {

        if (document.addEventListener) {

            document.addEventListener('WeixinJSBridgeReady', jsApiCall, false);

        } else if (document.attachEvent) {

            document.attachEvent('WeixinJSBridgeReady', jsApiCall);

            document.attachEvent('onWeixinJSBridgeReady', jsApiCall);

        }

    } else {

        jsApiCall();

    }

}

//查询订单状态

function jsQueryOrder(id) {

    var result = sendAjaxText(id, "QueryOrder.htm", "", false); //通过订单编号从服务器获取JS接口需要的参数

    if (result == "") {

        showDialog('dlg1', '错误', "业务后台出错！");

        return;

    }

    document.getElementById("txt").value = result;

}

 函数代码：

'公众号内支付网页,调用jssdk

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

With wb.AddArticle("","ar1")

    .AddTitle("h1","Foxtable开发者手册")

    .AddImage("../images/Splash.jpg")

    .AddTitle("h2","价格: ￥1.01")

End With

With wb.AddInputGroup("","ipg1","订单编辑")

    .AddHiddenValue("订单编号","D20180004")

End With

With wb.AddButtonGroup("","btg1",True) 

    .Add("btn1", "立即支付","button").Attribute = """ '调用支付JS，入口函数callpay

End With

With wb.AddDialog("","dlg1", "","")

    .AddButton("btnOK","确定")

End With

wb.AppendHTML("<script src='../my123pay/lib/pay.js'></script>") '引入脚本文件

e.WriteString(wb.Build)