主题：关于FTP下载的问题

我想用远程升级，出现了这个窗口。
此主题相关图片如下：{j8y{34}j_0~m}6r7v)e(9s.png

我如果用这样的代码下载，是没有问题的。

Dim ftp1 As new ftpclient
ftp1.host= Vars("ip")
ftp1.Account = "Administrator"
ftp1.password = "Gzhito20120401"
If ftp1.FileExists("\zr\update.txt") Then
    If ftp1.FileExists("\zr\update.txt") Then
        If ftp1.Download("\zr\update.txt",ProjectPath & "COA\update.txt") = True Then
            MessageBox.show("下载成功")
        Else
            MessageBox.show("下载失败,请重新再试!")
        End If
    End If
End If

这样没有问题，可以下载的。

但我写成下载的：UpdatePath = "ftp://Administrator:Gzhito20120401@" & Vars("ip") & "/zr"

就会出现这个窗口，是什么原因啊？哪里写错了？

我试过了，IE直接访问是不行的，但为什么用第一种方法就可以呢？

大红袍老师

 

  研究了一下，现在基本搞定了。就是搞不定防火墙。如果开了就不行，关了就可以。我已经把端口和程序都允许通过了，为什么还是不行？防火墙要怎么设啊？

大红袍老师

 

我已经按你给资料上面的说明，把1024-65355 的端口都通过了，为什么还是不行？

关防火墙是可以的，我现在就是想要防火墙。

大红袍老师

今天把防火墙关于也不行了。为什么用这种形势就可以下载？

Dim ftp1 As new ftpclient
ftp1.host= Vars("ip")
ftp1.Account = "Administrator"
ftp1.password = "********"

 

升级怎么样才能用这种形势去做？还有为什么用QQ的浏览器就没有问题，可能直接进去和下载？要解决这个问题还有什么好方法吗？多谢！

 

重启了，还是不行。防火墙也关了。IE进不去。但是其它的像QQIE没问题。急死了！

大红袍老师

经过这几天的测试，最终还是搞不定FTP的问题。很奇怪的是不管服务器端和客户端是否开防火墙，对于：

Dim ftp1 As new ftpclient
ftp1.host= Vars("ip")
ftp1.Account = "Administrator"
ftp1.password = IP

 

这种方式都没有影响，我可不可以用这种方式把升级文件下载下来，然后自己写个升级函数啊？或者官方下次升级可不可以基于这种方式？

 

如果服务器端和客户端都开防火墙，那IE 不能过入到FTP目录，但360 和 goolge 的浏览器没有问题，都可以进去并能下载。

 

如果把客户端的防火墙关了，那IE 就可以进去目录并下载了，但运行升级 还是会报这个错误。

 

 

大红袍老师

 

今天用了SERV-U　搭建了个ＦＴＰ．和用IIS是一样的，要关了客户端的防火墙IE才能进去下载，但是用升级程序还是会报这个错误。怎么办啊？

不行啊，就会出这个错误。自己编一个升级程序，可行吗？下载完那两个update1.zip 和 update2.zip .然后再解压把原料的文件复盖了。

 

这种办法可行吗？