以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp连接问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93882)

--  作者:kunmails
--  发布时间:2016/12/9 11:15:00
--  ftp连接问题
搭建了ftp服务器,但是无法连接
地址 ftp://bpet.cn   用户zyk 密码123456
连接不上,
如下代码一直出错,能否帮忙看下是什么问题导致!

Dim lj As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ftp1 As New FTPClient
ftp1.Host="ftp://bpet.cn/"
ftp1.Account = "zyk"
ftp1.Password = "123456"
If ftp1.Upload(lj.Text,"D:\\DDFTP\\ZS.jpg") = True Then
MessageBox.Show("上传成功")
Else
MessageBox.Show("上传失败")
End If

--  作者:有点蓝
--  发布时间:2016/12/9 11:40:00
--  
If ftp1.Upload(lj.Text,"\\ZS.jpg") = True Then
--  作者:kunmails
--  发布时间:2016/12/9 11:44:00
--  
 这个链接有问题,我电脑上测试链接没问题,但是在fb上链接服务器就失败!不知道什么原因!

--  作者:有点蓝
--  发布时间:2016/12/9 11:47:00
--  
直接在浏览器打开服务器的ftp有没有问题


--  作者:kunmails
--  发布时间:2016/12/9 12:11:00
--  
 木有啊!你可以试试!

--  作者:kunmails
--  发布时间:2016/12/9 14:14:00
--  
 @有点蓝,帮忙看下!

--  作者:有点蓝
--  发布时间:2016/12/9 14:14:00
--  
Dim ftp1 As New FTPClient
ftp1.Host="bpet.cn"
ftp1.Account = "zyk"
ftp1.Password = "123456"
If ftp1.Upload("f:\\EP01.jpg","\\EP01.jpg") = True Then
    MessageBox.Show("上传成功")
Else
    MessageBox.Show("上传失败")
End If

--  作者:kunmails
--  发布时间:2016/12/9 14:19:00
--  
 可以了,谢谢!