Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AddForm("bt3","form1","valid_zhengjian.htm")
With wb.AddInputGroup("form1","ipg1","手持身份证正面") '文件上传(1个)
With.AddUploader("up1","",False)
.AllowDelete = True '允许用户删除图片
.AllowAdd = True
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩 ’上传成功后，发现压缩失败，照片宽度没有改变，还是大于400
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "button").Attri bute= "on click='va lidit_zheng jian()'" '调用js函数上传
End With
wb.AddToast("bt3","tst1", "正在上传",1)
wb.AddToast("bt3","tst2", "上传成功",0) ’上传成功后，再次进入这个images页面，起到刷新作用，怎么做？
wb.AddToast("bt3","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src='./lib/ajaxform_zhengjian.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2018/2/9 15:02:59编辑过]
加好友 
发短信
Post By：2018/2/9 14:58:00 [只看该作者]
