Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Output.Show(0)
wb.AppendHTML("<script src='https://res.wx.qq.com/open/js/jweixin-1.6.0.js'></script>", True) '引入JS-SDK库
wb.AppendHTML("<script src='./lib/jssdk.js'></script>") '引入脚本文件
'在页面注入权限验证配置
Dim st As New Date(1970, 1, 1, 8, 0, 0)
Dim appid As String = Functions.Execute("Get","公众号",1) '开发者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 '当前页面地址
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)
'开始正常生成网页内容
Output.Show(1)
wb.AddForm("", "form1", "test.htm")
With wb.AddInputGroup("form1", "ipg1", "产品输入")
.AddInput("product", "产品", "text")
With .AddInputCell("ic1")
.AddLabel("lbh", "编号", 0)
.AddInput("number", "text", 1)
.AddVcodeButton("scan", "扫码输入", 2) '增加二维码扫描按钮,2表示显示在右边
End With
End With
Output.Show(2)
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "submit")
End With
Output.Show(3)
e.WriteString(wb.Build) '生成网页
Output.Show(4)
0-4都可以正常输出
加好友 
发短信
Post By：2022/10/31 15:31:00 [只看该作者]
