代码如下,请帮助指导
Dim data As new WxPayData()
data.SetValue("appid",
Vars("appid"))'//公众帐号id
data.SetValue("mch_id",
Vars("mchid"))'//商户号
data.SetValue("time_stamp",
data.GenerateTimeStamp)'//时间戳
data.SetValue("nonce_str",
data.GenerateNonceStr)'//随机字符串
data.SetValue("product_id",
args(0))'//商品ID
data.SetValue("sign",
data.MakeSign())'//签名
Dim str
=
data.ToUrlParams()'//转换为URL串
Dim url
=
"weixin://wxpay/bizpayurl?" + str
Functions.Execute("logtext","生成扫码支付的模式一URL :
" + url)
Return
url