- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- FTP连接问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=143968)
-- 发布时间：2019/12/7 15:34:00
-- FTP连接问题
老师你好：
手机上传的照片，为什么在电脑端的照片列显示不出来。FTP可以连接 也可以上传照片，但是不能下载照片是怎么回事呢？
-- 发布时间：2019/12/7 15:37:00
--
手机上传的照片是保存在电脑端FTP的同样的目录里吗？FTP打开管理器能不能找到图片？路径是否一致？
-- 发布时间：2019/12/7 15:40:00
--
是保存到服务器的FTP目录里面的，通过电脑端的照片列可以找到，但是不能下载。通过照片列可以上传照片或者文件。
-- 发布时间：2019/12/7 15:44:00
--
Case "fhedit.htm"
Dim PageNumber As Integer = e.GetValues("page")
Dim PrimaryKey As Integer = e.GetValues("key")
Dim PageURL = "listclfh.htm?page=" & PageNumber
Dim dr As DataRow = DataTables("出库台账").SQLFind("[_Identify]=" & PrimaryKey)
If dr IsNot Nothing Then
wb.AddForm("","form1","scl.htm")
With wb.AddInputGroup("form1","ipg1","车辆防护照片上传")
With .AddInput("bdsx","标单顺序:","text")
.Value = dr("标单顺序")
.Readonly= True
End With
With .AddInput("kh","客户名称:","text")
.Value = dr("收货单位")
.Readonly= True
End With
With .AddInput("cph","车牌号:","text")
.Value = dr("车牌号")
.Readonly= True
End With
With .AddInput("jz","行号:","text")
.Value = PrimaryKey
.Readonly= True
End With
.AddInput("bgy","保管员:","text").Value = dr("收费员")
With .AddUploader("up128","照片上传:一个车的防护照片只能一次性上传!",True)
.AllowDelete = True \'允许删除
.Incremental = True \'允许 重复选择文件或连续拍照
.ScaleWidth = 300
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "上传", "button").Attribute= "" \'调用js函数上传
.Add("btn2","返回","" ,"fhedit.htm")
End With
wb.AddToast("","tst1", "正在上传",1)
wb.AddToast("","tst2", "上传成功",0)
wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
wb.AppendHTML("<script src=\'./lib/ajaxform1.js\'></script>") \'引入脚本文件
Else
With wb.AddMsgPage("","msgpage","上传失败","........") \'提示用户此订单不存在.
.icon= "Warn"
.AddButton("bt3","返回",PageURL) \'生成返回原来页面的按钮
End With
End If
Case "scl.htm"
Dim dr As DataRow = DataTables("出库台账").SQLFind("[_Identify] = \'" & e.PostValues("jz") & "\'")
dr("收费员") = e.PostValues("bgy")
For Each key As String In e.Files.Keys
If key = "up128" Then
For Each fln As String In e.Files(key)
e.SaveFile(key,fln,"C:\\web\\uploadfiles\\" & fln)
Next
dr.Lines("车辆防护") = e.Files(key)
End If
Next
e.WriteString("OK")
dr.save()
手机上传图片的代码
-- 发布时间：2019/12/7 15:45:00
--
照片列显示的文件路径和名称是否正确？不能下载提示什么错误？打开下面文件管理器点击下载按钮能不能下载？如果不能会提示什么错误？
-- 发布时间：2019/12/7 15:53:00
--
没有子目录 照片直接上传到了服务器的这个文件夹里面了，C:\\web\\uploadfiles
-- 发布时间：2019/12/7 15:57:00
--
老师我们用的是局域网的连接，不是外网的
-- 发布时间：2019/12/7 16:07:00
--
FTP不管是内网还是外网，用法都一样。要么文件路径不对，要么没有权限
-- 发布时间：2019/12/7 17:01:00
--
重新设置了服务器的FTP 已经解决，谢谢！