Case "cprk.htm"
Dim wb As new weui
wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.0.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 = "ww59d498c90fb01ca3" 'CorpID
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.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
If e.PostValues.Count = 0 Then
Dim mt1,mt2 As Date
mt1 = Date.Today.AddDays(-30)
mt2 = Date.today
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.Com
dt = cmd.ExecuteReader()
wb.AddForm("","form1","cprk.htm")
With wb.AddInputGroup("form1","ipg1","成品入库")
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Val1 As String = DecryptText(UserName,"123","123") '解密,两个密钥必须和加密的时候
Dim Val2 As Date = Date.today
.AddHiddenValue("登记",Val1)
.AddHiddenValue("日期",Val2)
With .AddInputCell("ic1")
.AddLabel("lbh","零件图号",0)
.AddInput("number","text",1) .Attribute = "" '调用js函数
' .AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边
.AddVcodeButton("scan","扫码输入",2) .Attribute = "" '调用js函数
End With
.AddInput("零件名称","零件名称","Text")
.AddSelect("配货","配货","|" & dt.SQLGetComboListString("配货"))
With .AddInput("箱数","箱数","Number")
.Attribute = "" '调用js函数
End With
.AddInput("入库数量","入库数量","Number")
.AddInput("装箱数量","装箱数量","Number")
.AddInput("备注","备注","Text")
End With
加好友 
发短信
Post By：2019/2/22 15:33:00 [只看该作者]
