接收后判断一下扩展名
For Each key As String In e.Files.Keys
If key = "up1" Then
For Each fln As String In e.Files(key)
if fln.EndsWith(".jpg") orelse fln.EndsWith(".png") orelse ..........
e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
Next
dr.Lines("照片") = e.Files(key)
End If
Next
能否在选择照片环节就判断一下,是否是文件,还是照片