以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  weui网页如何读取ftp中的照片？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141986)
--  作者：jq_shang
--  发布时间：2019/10/15 19:54:00
--  weui网页如何读取ftp中的照片？
同一个阿里云服务器，ftp目录没有包含在web根目录下。请教，用weui如何读取ftp目录下的图片文件和别的文件？
--  作者：有点蓝
--  发布时间：2019/10/15 20:22:00
--  
只能是把ftp目录放在web目录里
--  作者：jq_shang
--  发布时间：2019/10/16 19:29:00
--  

谢谢蓝版。我再想想其他办法看。
--  作者：浙江仔
--  发布时间：2019/10/17 8:41:00
--  
我没有指定静态文件存储位置：
  \'HttpServer.WebPath = ProjectPath & "web\\"  \'指定静态文件存储位置


加了这个，用于区分ftp的文件路径
upLoadFilePath 单独配置，用于指定ftp文件夹

                Dim fl As String =e.path
                
                If fl.StartsWith("upload")  And upLoadFilePath >"" Then
                    fl = upLoadFilePath & e.path
                Else
                    fl = ProjectPath & "web\\" & e.path
                End If
                
                If filesys.FileExists(fl)
                    Dim idx As Integer = fl.LastIndexOf(".")
                    Dim ext As String  = fl.SubString(idx)
                    Select Case ext
                        Case ".jpg",".jpeg",".gif",".bmp",".wmf",".js",".css" ,".html",".htm",".json",".svg",".ttf",".woff",".woff2",".eot",".ico",".map",".png"
                            e.WriteFile(fl)
                            Return \'这里必须返回
                        Case ".zip",".rar",".txt",".doc",".docx",".xls",".xlsx",".pdf",".swf"
                            e.WriteFile(fl)
                            Dim t1 As TimeSpan = Date.Now - stt
                            Return \'这里必须返回
                    End Select
                End If
--  作者：jq_shang
--  发布时间：2019/11/1 3:33:00
--  
谢谢浙江老哥。