以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]weui 引用图片路径的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157048)
--  作者：晨曦396
--  发布时间：2020/9/29 16:44:00
--  [求助]weui 引用图片路径的问题
         Dim wb As New WeUI
        With wb.AddArticle("","ar1")
            .AddTitle("h1","大标题")
            .AddContent("Lorem ips")
            .AddImage("./images/001.jpg")
        End With


 .AddImage 此处由于图片和网页目录是分开的，需要使用绝对路径
 .AddImage("d:\\images\\001.jpg")
但是图片不显示，可能有哪些原因
[此贴子已经被作者于2020/9/29 16:44:43编辑过]
--  作者：有点蓝
--  发布时间：2020/9/29 16:50:00
--  
无法使用绝对路径。建议把图片放到网页目录
--  作者：晨曦396
--  发布时间：2020/9/30 9:42:00
--  
 因为需求导致 不能将图片放在网站目录内   除了将图片放在网站目录内，有没有其他方法进行引用呢 （先用代码把图片复制到网站目录，再进行引用，但是这样这个文件夹就会有很多图片） ，可不可以把图片转为变量进行引用呢？
--  作者：有点蓝
--  发布时间：2020/9/30 10:19:00
--  
Dim fl As String = "d:\\web\\" & e.path
If e.path.Contains(":\\") Then \'注意路径分隔符是“\\”，不是“/”,和下面网页中设置的相反
    If FileSys.FileExists(e.path) Then
        e.WriteFile(e.path)
        Return
    End If
End If
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False \'关闭文件上传功能
                .AddImage("/f:/123.jpg") \'绝对路径前加上斜杠/，注意路径分隔符是“/”，不是“\\”
                .AddImage("./images/002.jpg")
            End With
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

注意使用这种用法后不能再启动服务的时候使用HttpServer.WebPath ，另外所有页面和文件都会进行绝对路径的判断校验，可能会导致一些性能问题。