以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图片 路径问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116489)
--  作者：yifan3429
--  发布时间：2018/3/25 18:09:00
--  图片 路径问题



 Dim drs = DataTables("产品库").Select("")
                For i As Integer = 0 To drs.count-1
                    Dim dr = drs(i)
                    If i > 0 Then
                        wb.AddPage("","page" & i, False) \'增加两个page
                    Else
                        wb.AddPage("","page" & i) \'增加两个page
                    End If
                    With wb.AddArticle("page" & i, "ar" & i)
                        .AddTitle("h" & i, "<b>" & "产品系列:" & dr("缘起项目") & "</b>")
                        .AddContent("<b>" & "产品名称:" & dr("产品名称") & "</b>")
                        .AddContent("<b>" & "产品分类:" & dr("产品分类") & "</b>")
                        .AddContent("<b>" & "产品单价:" & dr("单价") & "</b>")
                        .AddContent(dr("主材工艺"))


图片的读取路径哪里不对

                        .AddImage("1.艾迪尔报价库" & "/" & dr("缘起项目") & "/" & dr("产品分类") &"/" & dr("产品名称")&"/" & dr("产品分类") & dr("产品名称") & dr("单位") &".png")


http://www.ICWD.TOP:8080/1.艾迪尔报价库/经典系列/收纳柜类/装饰板/收纳柜类装饰板块.png   这段地址可以在游览器可以正常读出

                    End With
                    If i < drs.count-1 Then
                        With wb.AddButtonGroup("page" & i,"btg1" & i)
                            .Add("btn1_" & i, "下一页", "button").Attribute=" & i & "\');show(\'page" & i+1 & "\')"""
                        End With
                    End If
                    If i > 0 Then
                        With wb.AddButtonGroup("page" & i,"btg2" & i)
                            .Add("btn2_" & i, "上一页", "button").Attribute=" & i & "\');show(\'page" & i-1 & "\')"""
                        End With
                    End If
                Next
                e.WriteString(wb.Build) \'生成网页
--  作者：有点甜
--  发布时间：2018/3/25 21:30:00
--  

1、AddImage添加的图片，需要放在 web 文件夹下，然后写相对路径的。

 

2、你的图片，是在同一台电脑，还是要引用外网的图片？