以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  AddUploader清空内容  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185837)
--  作者：qwz405
--  发布时间：2023/3/20 15:47:00
--  AddUploader清空内容
1、使用AddUploader上传照片，要求[照片1]必须有，代码如下：

With wb.AddInputGroup("form1", "ipg1", "照片1【必填-1张】")
    With .AddUploader("up1", "", True)
        .Accept = "image/*" \'允许使用相册和相机
        .AllowDelete = True \'允许删除
    End With
End With

With wb.AddInputGroup("form1", "ipg2", "照片2(选填-1张)")
    With .AddUploader("up2", "", True)
        .Accept = "image/*" \'允许使用相册和相机
        .AllowDelete = True \'允许删除
    End With
End With


2、第1次提交时，[照片1]没有照片，[照片2]上传照片。
因为[照片1]没有照片，会报错(报错代码如下)，然后操作者回退。
回退后，[照片1]、[照片2]都是空的，
第2次提交，[照片1]上传照片，[照片2]空，则会提交[照片1]的照片，以及[照片2]第1次提交时的照片。

希望，如果第2次提交时，[照片2]没有上传照片，就不要保存上次的照片。

If e.Files.ContainsKey("up1") = False Then
    With wb.AddMsgPage("", "msgpage", "操作失败", "【照片1】 不能为空!")
        .Icon = "warn"
        .AddButton("btn2", "返回", "***.htm")
    End With
    e.WriteString(wb.Build) \'生成网页
    Return ""
End If 
[此贴子已经被作者于2023/3/20 15:48:12编辑过]
--  作者：有点蓝
--  发布时间：2023/3/20 15:51:00
--  
请上传实例测试