以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ftp服务器上传文件失败  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91322)
--  作者：天蝉一线
--  发布时间：2016/10/8 11:05:00
--  ftp服务器上传文件失败
 ftp1.Host="60.165.164.48"
    ftp1.Account = "8888"
    ftp1.Password = "88888888"
    ftp1.port ="21"
Dim dr As DataRow = 用户信息.Find("[Name] = \'" & _UserName & "\'")
If dr IsNot Nothing Then \'如果找到了
    Dim File1002 As String=ProjectPath & "Attachments\\Images\\" & _UserName & "100user.PNG"
    Dim File2 As String=ProjectPath & "Attachments\\Images\\" & _UserName  & "user.PNG"
    Dim File10022 As String=ProjectPath & "Attachments\\Images\\" & _UserName & "$100user.PNG"
    Dim File22 As String=ProjectPath & "Attachments\\Images\\" & _UserName  & "$user.PNG"
    Dim File As String="/" & FileSys.GetName( File2 )  \'其中FileSys.GetName是获取不含路径文件名
    msgbox(file)
    Dim File100 As String="/" & FileSys.GetName( File1002 )  \'其中FileSys.GetName是获取不含路径文件名
    msgbox(file100)
    If FileSys.FileExists( File22 ) Then \'如果指定的文件存在
        FileSys.MoveFile(File22,File2, True) \'移动头像文件
msgbox("移动头像")
        If ftp1.FileExists(file) Then
            msgbox(ftp1.FileExists(file))
            ftp1.DeleteFile(file)
           msgbox(ftp1.DeleteFile(file))
            ftp1.Upload(File2,File, False) \'复制头像文件
        Else
            ftp1.Upload(File2,File, False) \'复制头像文件
        End If
    End If
    If FileSys.FileExists( File10022 ) Then \'如果指定的文件存在
        FileSys.MoveFile(File10022,File1002, True) \'移动头像文件
        If ftp1.FileExists(file100) Then
            msgbox(ftp1.FileExists(file100) )
            ftp1.DeleteFile(file100)
msgbox(ftp1.DeleteFile(file100))
            ftp1.Upload(File1002,File100, False) \'复制头像文件
        Else
            ftp1.Upload(File1002,File100,False) \'复制头像文件
        End If
    End If
上述红色的地方显示上传失败，不知道怎么回事。ftp1本身上传没有问题。
--  作者：有点蓝
--  发布时间：2016/10/8 11:21:00
--  
打开ftp管理器，上传文件，看提示什么错误
--  作者：天蝉一线
--  发布时间：2016/10/8 11:26:00
--  
[11:26:31] 进入PASV模式失败,425 Cannot open data connection.

[11:26:31] 未将对象引用设置到对象的实例。
--  作者：天蝉一线
--  发布时间：2016/10/8 11:29:00
--  
先是出现文件已存在，是否覆盖，然后是
[11:26:31] 进入PASV模式失败,425 Cannot open data connection.

[11:26:31] 未将对象引用设置到对象的实例。
--  作者：有点蓝
--  发布时间：2016/10/8 11:37:00
--  
1、关闭ftp服务器的防火墙

2、把“C:\\Windows\\System32\\inetsrv\\inetinfo.exe”加入防火墙例外
--  作者：天蝉一线
--  发布时间：2016/10/8 11:49:00
--  
我的服务器里面没有C:\\Windows\\System32\\inetsrv\\inetinfo.exe这个文件
--  作者：天蝉一线
--  发布时间：2016/10/8 11:58:00
--  
打开ftp管理器，可以上传文件了，但是我的这段代码执行提示连接服务器失败，又是怎么回事
--  作者：有点蓝
--  发布时间：2016/10/8 14:07:00
--  
ftp管理器可以的话，不应该有问题的。检查ftp的设置有没有问题，设置一下ftp的默认目录看看

删除项目下bin目录，重启项目试试。