专家坐堂-照片上传，压缩问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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) \'生成网页

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2335555555.txt