代码：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
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/jssdk.js'></script>") '引入脚本文件
'在页面注入权限验证配置
Dim st As New Date(1970,1,1,8,0,0)
Dim appid As String = "wx2a00d361ae163c73" '开发者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","bj1.htm")
With wb.AddInputGroup("form1","ipg1","产品输入")
With .AddInputCell("ic1")
.AddLabel("bh","商品信息",0)
.AddInput("sptm","text",1).Attribute = """
.AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边
End With
'With .AddInput("编号","编号","text")
'.Attribute = """
'End With
With.AddS elect("spxx","备选清单","")
.Attribute = "" '调用js函数
End With
.AddInput("spbm","商品编码","text").Readonly= True
.AddInput("spmc","商品名称","text").Readonly= True
.AddInput("spgg","商品规格","text").Readonly= True
.AddInput("scqy","生产企业","text").Readonly= True
.AddInput("bzdw","标准单位","text").Readonly= True
.AddInput("数量","数量","number")'.Attribute = ""
.AddInput("单价","单价","double")'.Attribute = ""
'With.AddInput("金额","金额","double")
'.Readonly= True
''End With
'For Each dr As DataRow In DataTables("产品清单").DataRows
''Sum = Sum + dr("数量")
'Next
With .AddUploader("up1","照片",True)
.AllowAdd = False
.AddImage("./images/001.jpg")
End With
wb.AppendHTML("<script src='./lib/cppd.js'></script>")
End With
With wb.AddButtonGroup("form1","btngrp1",False)
.Add("btn1", "增加", "button") '.Attribute= ""
.Add("btn2", "取消", "reset").Kind = 2 '重置
.Add("btn3", "返回首页", "" ,"default.htm").Kind = 1
End With
With wb.AddDialog("","dlg1", "错误","") '增加订单失败提示框
.AddButton("btnOK","确定")
End With
With wb.AddTable("","Table1")
'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
.CreateFromDataTable(DataTables("商品盘点"),False,"","录入时间 desc","spbm","录入时间","数量","创建人")
End With
'wb.AppendHTML("<script src='./lib/calc.js'></script>")
e.WriteString(wb.Build) '生成网页
js：
wx.ready(Function () {
document.getElementById('scan').onclick = function () {
wx.scanQRCode({
needResult: 1,
scanType: ['qrCode','barCode'],
success: Function (res) {
var code = res.resultStr;
If(code.indexOf(",") >= 0){
code = code.split(",")[1];
}
document.getElementById('sptm').value = code;
setAjaxOptions('spxx','getCounties.htm','sptm',false)
}
});
};
});
wx.error(Function (res) {
alert(res.errMsg);
});
加好友 
发短信
Post By：2017/11/3 14:46:00 [显示全部帖子]
