请问一下 下面这段代码错在哪里 为什么我上传不了图片?
.Incremental = True '允许重复选择文件或连续拍照
这句代码去掉后可以上传 但是只能上传单张图片 ?
安卓手机要怎么调出拍照
If e.PostValues.Count = 0 AndAlso e.Files.Count = 0 Then
wb.AddForm("","form1","add.htm")
With wb.AddInputGroup("form1","ipg1aa","")
With .AddUploader("up2","图片",True) 'True表示允许一次上传多个文件
.AllowDelete = True '允许用户删除图片
.AllowAdd =True
.Incremental = True '允许重复选择文件或连续拍照
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build) '生成网页
Else
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
e.SaveFile(key,fln, ProjectPath & "Attachments\web\image\" & fln) '保存接收到的文件
Next
Next
e.WriteString("OK") '生成网页
End If