主题：加上传进度

 蓝老师：加上传进度时，表里每次都增加两行记录，但图片大都只上传一次，偶而上传重复的两张相片。不加上传进度，一切正常。

   With wb.AddButtonGroup("form1","btg1",True)
        .Add("btn1", "确定", "submit").Attribute= "" '调用js函数上传
    End With
    wb.AppendHTML("<script src='../lib/valid.js'></script>") '引入脚本文件
    wb.AddToast("","tst1", "正在上传",1)
    wb.AddToast("","tst2", "上传成功",0)
    wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
    wb.AppendHTML("<script src='../lib/ajaxform.js'></script>") '引入脚本文件
    e.WriteString(wb.Build)
Else
 e.AsyncExecute = True  '通知系统异步执行,不要关闭信道
    Functions.AsyncExecute("异步上传图片",e) '异步调用函数处理接收到的数据和文件
End If