wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.2.0.js'></script>",True) '引入JS-SDK库
wb.AppendHTML("<script src='./lib/jssdk2.js'></script>") '引入脚本文件
'在页面注入权限验证配置
Dim st As New Date(1970,1,1,8,0,0)
Dim appid As String = "wx993d9d8755f6c690" '开发者ID
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim noncestr As String = Rand.NextString(16) '随机字符
Dim url As String = e.Request.URL.ToString '当前页面地址
PopMessage(url)
Dim signature As String = Functions.Execute("GetJsSignature", noncestr, timestamp, url) '生成权限验证签名
Dim cfg As String = "wx.config({appId:'{0}',timestamp:{1},nonceStr:'{2}',signature:'{3}',jsApiList:['scanQRCode']});"
wb.AppendHTML("<script>" & CExp(cfg,appid,timestamp,noncestr,signature) & "</script>",True)
'开始正常生成网页内容
蓝老师,这里弹出来的是这样的:
http://www.yijiansoft.net:94/koukuan.htm?card_id=pPYXKt-RdixoUPCtvFGRSAiOLik0encrypt_code=oix1jiHQ1HmVrdiE0w2p2Rd7J+b8ba+YXDSgRbBR7+g=openid=oPYXKt22r0Hg_lBvcD0ByveIaS8s
这个可以调用扫一扫
而我们从浏览器里复制的链接是这样的:
http://www.yijiansoft.net:94/koukuan.htm?card_id=pPYXKt-RdixoUPCtvFGRSAiOLik0&encrypt_code=oix1jiHQ1HmVrdiE0w2p2Rd7J%2Bb8ba%2BYXDSgRbBR7%2Bg%3D
[此贴子已经被作者于2018/6/8 23:24:30编辑过]