Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.Title = "员工选择"
wb.AppendHTML("<script src='https://res.wx.qq.com/open/js/jweixin-1.2.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 = "appid"
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim noncestr As String = Rand.NextString(16) '随机字符
Dim url As String = "ryxz.htm" '当前页面地址
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:['invoke']});"
wb.AppendHTML("<script>" & CExp(cfg, appid, timestamp, noncestr, signature) & "</script>", True)
'开始正常生成网页内容
wb.AddForm("", "form1", "ryxz.htm")
With wb.AddInputGroup("form1", "ipg1", "人员选择")
With .AddInputCell("ic1")
.AddLabel("lry", "人员", 0)
.AddInput("sry", "text", 1)
.AddVcodeButton("ryxz", "人员选择", 2)
End With
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2024/10/18 16:52:00 [显示全部帖子]
