.AddSelect("学历","学历","大专|本科|硕士|博士")
.AddUploader("up1","图片",True)
'True表示允许上传多个文件
上面的代码方案可以保存图片
换成下面的代码方案就不能保存了
With wb.AddInputGroup("form1","ipg35","图片上传")
With .AddUploader("up1","图片",True) 'True表示允许上传多个文件
.AllowDelete = True '允许删除
.Incremental = True '允许 重复选择文件或连续拍照
.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
End With
End With
文件保存代码
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
e.SaveFile(key, fln, "e:\web\uploadfiles\" & fln)
Next
dr.Lines("图片") = e.Files(key)
End If
Next
找不出问题,请教老师