If e.PostValues("备注")<>"" Then
For Each key As String In e.Files.Keys
For Each fln As String In e.Files(key)
Dim r As Row=Tables("订单图片").addnew
r("上传时间")=Date.now
r("上传人")=e.Cookies("zh")
r("备注")=e.PostValues("备注")
Dim fll As String=ProjectPath & "web\images\" & Format(Date.Today,"yyyy")
If FileSys.DirectoryExists(fll)=False Then
FileSys.CreateDirectory(fll)
End If
fll=fll & "\" & Format(Date.Today,"MM")
If FileSys.DirectoryExists(fll)=False Then
FileSys.CreateDirectory(fll)
End If
fll=fll & "\" & Format(Date.Today,"dd")
If FileSys.DirectoryExists(fll)=False Then
FileSys.CreateDirectory(fll)
End If
r("图片路径")=fll & "\" & e.PostValues("备注") & ".jpg"
e.SaveFile(key,fln, r("图片路径")) '保存接收到的文件
r.save
Next
Next
e.WriteString("OK")
End If
使用这个代码上传一个文件 从提交到服务器响应 差不多要等10秒 图片已经压缩了 哪里出了问题
加好友 
发短信
Post By：2018/6/23 21:03:00 [只看该作者]
