以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  再问远程升级  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116094)
--  作者：nxqtxwz
--  发布时间：2018/3/19 22:36:00
--  再问远程升级

终于能登录服务器了，但升级时永远停在下载状态不动了，这是什么原因呢，如何解决？

 
--  作者：有点蓝
--  发布时间：2018/3/19 22:39:00
--  
通过什么方式升级？局域网？ftp？还是http？服务端怎么设置的，端口开放了没有？在客户端浏览器能不能打开升级地址？
--  作者：nxqtxwz
--  发布时间：2018/3/19 22:58:00
--  
我看到您的贴子说升级只能是21端口，我是2121，请问能改吗？有什么办法能实现升级？
 
--  作者：有点蓝
--  发布时间：2018/3/19 23:05:00
--  
可以改，改为21端口
--  作者：有点甜
--  发布时间：2018/3/20 9:17:00
--  
以下是引用nxqtxwz在2018/3/19 22:36:00的发言：

终于能登录服务器了，但升级时永远停在下载状态不动了，这是什么原因呢，如何解决？

 

 

我测试这个代码没问题

 

Network.DownloadFile("ftp://lyxx-wz:nxqlxx-wz-2018@218.203.157.198:21/dasj/update1.zip", "d:\\aaaa.zip" ,"" ,"" ,True, 100000, True)

 

那说明升级肯定是没问题的。如果停着不动，看看是否弹出需要你连接公用网络的窗口？点击允许。
--  作者：nxqtxwz
--  发布时间：2018/3/20 9:31:00
--  
谢谢老师了，我今天让管理员把端口改成了21，还没有试升级呢。谢谢。
--  作者：nxqtxwz
--  发布时间：2018/3/20 11:38:00
--  
这个代码很好用，怎么上传这三个文件呢。比如我的升级文件在本地：D:\\\\升级文件，代码怎么写？
--  作者：有点甜
--  发布时间：2018/3/20 12:04:00
--  

参考代码

 

http://www.foxtable.com/webhelp/scr/1410.htm

 
--  作者：nxqtxwz
--  发布时间：2018/3/21 11:53:00
--  

我用这个代码上传成功，但一次传一个文件，能不能一次上传多个文件呢？代码怎么改呢。

Dim  ftp1 As  New  FtpClient
 ftp1.Host="218.203.157.198"
 ftp1.Account =  "lyxx-wz"
 ftp1.Password =  "nxqlxx-wz-2018"
 If  ftp1.Upload("G:\\档案升级\\update2.zip","\\dasj\\update2.zip") = True Then
      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If
--  作者：有点甜
--  发布时间：2018/3/21 13:21:00
--  

参考

 

Dim dlg As New openFileDialog \'定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim ftp1 As new  ftpclient
    ftp1.host="*****"
    ftp1.Account =  "ftp003"
    ftp1.password =  "*****"
   
    For Each f As String In dlg.FileNames
        If  ftp1.Upload(f,"/" & filesys.GetName(f) , True) = True Then
            Messagebox.show(dlg.FileName & "上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Messagebox.show(dlg.FileName & "上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
    Next
    ftp1.Close
End If