上传文件到局域网服务器的IIS虚拟目录-CSDN论坛

⋅sencha touch build production 后中文乱码 ⋅数据库发布和订阅的问题 ⋅上传文件到局域网服务器的IIS虚拟目录 更多帖子 关注私信空间博客 Forrest23 本版专家分：7521 结帖率 97.5%

现在我知道两种上传方法，但是这两种都没有办法加进度条，也无法获取是否上传成功

我现在用的是第一种方法，但是如果网络比较慢，文件比较大的时候会出现上传不成功的情况，而且没有异常，服务器上有此文件但是只有几KB，不知道是什么原因造成的

我本来想在第二种方法上加进度条，但是单步跟踪后发现，这种方法真正开始上传是在执行 postStream.Close()时所以也无法加进度条

想找一种可以加进度条上传的方法望指教

方法一



        Try

            Dim myWebClient As New WebClient

            myWebClient.UploadFile("http://192.168.1.201/2/1.zip", "put", "E:\psp\1\1.zip")

        Catch ex As Exception



        End Try

方法二



          Try

            Dim myWebClient As New WebClient



            Dim fs As FileStream = New FileStream("E:\psp\电影\rleis.zip", FileMode.Open, FileAccess.Read)

            Dim br As BinaryReader = New BinaryReader(fs)

            Dim uriString As Uri = New Uri("http://192.168.1.201/zdimp/rleis.zip")

            Dim postArray As Byte() = br.ReadBytes(CInt(fs.Length))

            Dim postStream As Stream = myWebClient.OpenWrite(uriString, "PUT")

            If postStream.CanWrite Then

                postStream.Write(postArray, 0, postArray.Length)

            End If

            postStream.Close()



        Catch ex As Exception

            MsgBox(ex.ToString.Trim)

        End Try

0 2011-10-20 16:07:38

回复数 8 只看楼主引用举报楼主

wjy217213 本版专家分：942: 友情帮顶

0 2011-10-20 16:23:37

只看TA 引用举报 #1 得分 10

思考 本版专家分：837: 用ftp控件

0 2011-10-20 16:24:42

只看TA 引用举报 #2 得分 10

⋅sencha touch build production 后中文乱码 ⋅数据库发布和订阅的问题 ⋅上传文件到局域网服务器的IIS虚拟目录 更多帖子 关注私信空间博客 Forrest23 本版专家分：7521: 引用 2 楼 bdxzq 的回复:
用ftp控件

不用FTP方法只用Http 方式

0 2011-10-20 16:31:13

只看TA 引用举报 #3 得分 0

⋅此用户还没有发表过任何帖子 关注私信空间博客 xiaoyu821120 本版专家分：2373: 可以搜一下大文件上传的代码。以前用过一个，是用httpmodule传的。

0 2011-10-20 16:36:01

只看TA 引用举报 #4 得分 10

⋅孟子E章的留言板 ⋅2015年3月21日AppCan移动创业技术免费分享会（北京站） ⋅CSDN带你回家过年，火车票转让信息专用贴 更多帖子 关注私信空间博客 孟子E章 本版专家分：537633 版主 名人 2019年荣获名人称号 年度总版至少三次排名前十即授予名人勋章 榜眼 2012年总版技术专家分年内排行榜第一 2007年总版技术专家分年内排行榜第二 2006年总版技术专家分年内排行榜第二 2004年总版技术专家分年内排行榜第二 探花 2005年总版技术专家分年内排行榜第三 2003年总版技术专家分年内排行榜第三 2002年总版技术专家分年内排行榜第三 进士 2011年总版技术专家分年内排行榜第六 2010年总版技术专家分年内排行榜第八: 使用 WebClient 异步上载文件
带进度条

0 2011-10-20 16:36:39

只看TA 引用举报 #5 得分 50

⋅sencha touch build production 后中文乱码 ⋅数据库发布和订阅的问题 ⋅上传文件到局域网服务器的IIS虚拟目录 更多帖子 关注私信空间博客 Forrest23 本版专家分：7521: 引用 5 楼 net_lover 的回复:
使用 WebClient 异步上载文件
带进度条

我之前看过您的代码但是我没搞懂 http://www.mengxianhui.com:802/Upload.aspx 这个aspx页面要加在哪里?我理解是加在服务器上因为要给不同的客户用那是不是每个客户的服务器上都要加这个aspx页面?

0 2011-10-20 16:44:25

只看TA 引用举报 #6 得分 0

⋅孟子E章的留言板 ⋅2015年3月21日AppCan移动创业技术免费分享会（北京站） ⋅CSDN带你回家过年，火车票转让信息专用贴 更多帖子 关注私信空间博客 孟子E章 本版专家分：537633 版主 名人 2019年荣获名人称号 年度总版至少三次排名前十即授予名人勋章 榜眼 2012年总版技术专家分年内排行榜第一 2007年总版技术专家分年内排行榜第二 2006年总版技术专家分年内排行榜第二 2004年总版技术专家分年内排行榜第二 探花 2005年总版技术专家分年内排行榜第三 2003年总版技术专家分年内排行榜第三 2002年总版技术专家分年内排行榜第三 进士 2011年总版技术专家分年内排行榜第六 2010年总版技术专家分年内排行榜第八: Upload.aspx是要加咋服务器上的。你要是演示，安装在本机就可以了。要给客户用，只要有iis运行asp.net环境就可以了

0 2011-10-20 21:41:49

只看TA 引用举报 #7 得分 40

⋅sencha touch build production 后中文乱码 ⋅数据库发布和订阅的问题 ⋅上传文件到局域网服务器的IIS虚拟目录 更多帖子 关注私信空间博客 Forrest23 本版专家分：7521

引用 7 楼 net_lover 的回复:

Upload.aspx是要加咋服务器上的。你要是演示，安装在本机就可以了。要给客户用，只要有iis运行asp.net环境就可以了

明白了，不过我找到一个更简单的方法，不需要弄这个 Upload.aspx页面



  Private Function uploadFile() As Boolean

        Try

            Me.lblInfo.Text = "正在上传文件: " & strFileName & " ,请稍后..."

            Dim DownLaodDelegate As New DownLaodTextDg(AddressOf DownLoadText)

            Dim uploadUrl As New System.Uri(strServerPath & strFileName)

            Dim hwr As System.Net.HttpWebRequest = System.Net.WebRequest.Create(uploadUrl)

            Dim fs As New System.IO.FileStream(strLocalPath, FileMode.Open, FileAccess.Read) '得到本地文件的数据流

            Dim totalBytes As Long = fs.Length

            Dim percent As Integer = 0

            hwr.Timeout = 1000 * 5 * 60                                  '设置超时值30秒

            hwr.Method = "PUT"                                 '传送方式 这里一定要是PUT才行

            hwr.UseDefaultCredentials = True

            hwr.KeepAlive = True

            hwr.ContentLength = totalBytes '设置传送的数据长度



            Me.Invoke(DownLaodDelegate, totalBytes, 0, 0, 0, False)



            Dim PostStream As Stream = hwr.GetRequestStream() '发送请求

            Dim totalUploadByte As Long = 0

            Dim by(1024) As Byte

            Dim osize As Integer = fs.Read(by, 0, CInt(by.Length))

            '向服务器写入文件

            Do While osize > 0

                totalUploadByte = osize + totalUploadByte

                PostStream.Write(by, 0, osize)

                osize = fs.Read(by, 0, CInt(by.Length))

                percent = (totalUploadByte / totalBytes) * 100

                Me.Invoke(DownLaodDelegate, totalBytes, CInt(totalUploadByte), percent, 0, False)

            Loop

            fs.Close()

            PostStream.Close()

            PostStream.Dispose()



            Me.Invoke(DownLaodDelegate, totalBytes, CInt(totalUploadByte), 100, 0, True)



            Dim response As System.Net.HttpWebResponse = CType(hwr.GetResponse(), System.Net.HttpWebResponse)

            response.Close()

            Dim strStatusCode As String = response.StatusCode.ToString.Trim.ToUpper

            If strStatusCode = "CREATED" Or strStatusCode = "OK" Then

                Return True

            End If

            Return False

        Catch ex As Exception

            MsgBox(ex.ToString.Trim, MsgBoxStyle.Exclamation, "系统提示")

            Return False

        End Try

    End Function

0 2011-10-24 21:05:32

只看TA 引用举报 #8 得分 0

上传文件到局域网服务器的IIS虚拟目录 [问题点数：120分，结帖人forrest23]