'这里是画硬件报修的界面
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.title="IT硬件故障报修"
wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.2.0.js'></script>",True) '引入JS-SDK库
wb.AppendHTML("<script src='../ajax/libs/jssdk.js'></script>") '引入脚本文件 '假定这个扫码的网页会被放在 xdf/service/ 文件夹下面被调用时的路径
If e.PostValues.Count = 0 Then '生成报障信息填写网页
'在页面注入权限验证配置
Dim st As New Date(1970,1,1,8,0,0)
Dim appid As String = "wx75369*****" '开发者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)
'开始正常生成网页内容
wb.AddForm("","form1","List.htm").Attribute="" 'List.htm 是接收本表单数据的网页
With wb.AddInputGroup("form1","ipg1","请扫描IT设备上的二维码")
' .AddInput("product","所在楼","text") '显示
' .AddInput("product","所在科室","text") '显示
' .AddInput("product","所在房间","text") '显示
With .AddInputCell("ic1")
.AddLabel("lsn","sn",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("sn","text",1)
.AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边
End With
With .AddInputCell("ic2")
.AddLabel("lsblx","设备类型",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("sblx","text",1)
End With
With .AddInputCell("ic3")
.AddLabel("lszl","所在楼",0)
.AddInput("szl","text",1)
End With
With .AddInputCell("ic4")
.AddLabel("lszks","所在科室",0)
.AddInput("szks","text",1)
End With
With .AddInputCell("ic5")
.AddLabel("lszfj","所在房间",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("szfj","text",1)
End With
With .AddInputCell("ic6")
.AddLabel("lszfj","故障描述",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("szfj","text",1)
End With
With .AddInputCell("ic7")
.AddLabel("lszfj","姓名",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("szfj","text",1)
End With
With .AddInputCell("ic8")
.AddLabel("lszfj","电话",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("szfj","text",1)
End With
With .AddInputCell("ic9")
.AddLabel("lszfj","科室",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("szfj","text",1)
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的数据
wb.AppendHTML("<script src='../ajax/libs/LisQuery.js'></script>") '引入脚本文件 '如果什么都和这个函数一样,仍然弹不出来框,说明微信调用 htm网页的路径不对. 看看httprequest 前面有没有xdf/service文件夹.这个决定了能不能调用到javascript
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2019/7/19 21:31:00 [只看该作者]
