以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  上传效率问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120786)
--  作者：rjh4078
--  发布时间：2018/6/23 21:03:00
--  上传效率问题
 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秒 图片已经压缩了 哪里出了问题
--  作者：有点甜
--  发布时间：2018/6/24 22:58:00
--  

1、你确定已经压缩了？在服务器那里看一下文件多大；

 

2、保存代码基本是没问题的。
--  作者：rjh4078
--  发布时间：2018/6/25 7:01:00
--  
检查发现是网络问题 郁闷 
--  作者：有点甜
--  发布时间：2018/6/25 8:53:00
--  
以下是引用rjh4078在2018/6/25 7:01:00的发言：
检查发现是网络问题 郁闷 

 

什么意思，没看懂。上传的东西越大，就越慢的。你服务器那里加入msgbox，看多久可以响应弹出msgbox。