Dim e As RequestEventArgs = args(0)
Dim OpenidA As String = args(1) '获取参数openid
Dim wb As New WeUI '引用微信框架
'====================================================================================
wb.AppendHTML("<script src='http://res.wx.qq.com/open/js/jweixin-1.4.0.js'></script>",True) '引入JS-SDK库
Dim AppIdi As String= Vars("DeveloperID") '开发者ID
Dim st As New Date(1970,1,1,8,0,0) '获取时间
Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳
Dim nonestr As String = Rand.NextString(16) '随机值
Dim url As String = e.Request.URL.ToString '当前网页url
Dim signature As String = Functions.Execute("GetJsSignature",nonestr,timestamp,url) '生成签名
Dim cfg As String = "wx.config({appId:'{0}',timestamp:'{1}',nonceStr:'{2}',signature:'{3}',jsApiList:['updateAppMessageShareData','updateTimelineShareData','onMenuShareWeibo','chooseImage']});"
wb.AppendHTML("<script>" & CExp(cfg,AppIdi,timestamp,nonestr,signature) & "</script>",True)
'====================================================================================
wb.AppendHTML("<script>wx.ready(function () {wx.chooseImage({count:1,sizeType: ['compressed'],sourceType: ['album','camera'],success: function (res) {var localIds = res.localIds;}})});</script>",True) '使用手机相机
Dim pageA As String = e.GetValues("page") '提取page参数
Try
Dim c md As New SQLCommand
cm d.C
c md.CommandText = "Sel ect AttributeValue f rom {属性配置}(nolock) W here AttributeID = '051303'"
Dim titleValues = cmd.ExecuteScalar()
Dim title As String = titleValues
wb.Title = title '添加页面标题
Dim html As String = "SignIna.htm"
c md.CommandText = "Sel ect * fro m WXUsers(nolock) W here openid='" & OpenidA & "'"
Dim LognValues = c md.ExecuteValues
If LognValues.Count > 0 Then
Dim NameS As String = LognValues("姓名").tostring
If NameS = "" Then '如果姓名等于空
e.AsyncExecute = True '通知系统,将采用异步方式生成网页
Functions.AsyncExecute("HTTP_YHYZ",e) '异步调用函数生成网页
End If
cm d.CommandText = "Sele ct 标题 FR OM 清单(nolock) WH ERE 序号='" & pageA & "'"
Dim dkbtAValues = c md.ExecuteScalar()
Dim dkbtA As String = dkbtAValues
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","SignInbaa.htm?page=" & pageA & "")
With wb.AddInputGroup("form1","ipg1","")
With .AddInput("项目名称","项目名称","text")
.Value = dkbtA
.Readonly= True
End With
End With
With wb.AddInputGroup("form1","ipg2","")
.AddTextArea("bz",5).Placeholder = "请输入200字以内的说明或者心得等..."
End With
With wb.AddInputGroup("form1","ipg3","")
With .AddUploader("hym","",True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许重复选择文件或连续拍照
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1","打卡","submit")
End With
Else
End If
End If
Catch ex As Exception '如果出错
Functions.Execute("LogText","CX_SignInb函数: " & OpenidA) '记录错误日志
Functions.Execute("LogText",ex)
End Try
e.WriteString(wb.Build)
'e.Handled = True '通知系统异步函数执行完毕,可以关闭信道
加好友 
发短信
Post By：2019/6/19 10:28:00 [只看该作者]
