代码加入后照片能正常接收,表格中记录会同步。但弹出上传失败的红色标志。请问蓝蓝老师,这是什么问题呢?
Case "receive.htm"
For Each key As String In e.Files.Keys
If e.Files(key).count > 6 Then
e.WriteString("照片不能多于6张!!")
Return
Else
Dim nms() As String = {"内容"}
Dim drc As DataRow = DataTables("表A").AddNew()
For Each nm As String In nms
drc(nm) = e.PostValues(nm)
Next
If key = "up1" Then
Dim lst As List(of String) = drc.Lines("照片")
For Each fln As String In e.Files(key)
Dim n As String = Format(Date.Now,"yyyyMMddHHmmssffff") & fln
e.SaveFile(key,fln,"C:\web\uploadfiles\" & n)
lst.Add(n)
Next
drc.Lines("照片") = lst
drc.save()
End If
End If
Next
e.WriteString("ok")