Dim e = args(0)
Dim wb = args(1)
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","增加员工")
.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题
.AddInput("年龄","年龄","number")
.AddSelect("学历","学历","大专|本科|硕士|博士")
With .AddUploader("up1","照片",True) 'True表示允许上传多个文件
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
e.AsyncExecute = True '通知系统异步执行,不要关闭信道
Functions.AsyncExecute("SaveData",e) '异步调用函数处理接收到的数据和文件
End If
这个案例,应该是允许上传多个照片的,可是为什么在拍第二张照片时会把第一张顶掉?