以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  图片  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170123)
--  作者：BG小白
--  发布时间：2021/7/13 14:39:00
--  图片
图片列一格里面有三个图片名称
1.jpg
2.jpg
3.jpg
        With wb.AddInputGroup("form1","ipg1","商品图片(点击图片放大)")
            wb.AddForm("","form1","test.htm")
            With .AddUploader("up1","",True)
                .AllowAdd = False \'关闭文件上传功能
                Dim lstr As new List(of String)
                For Each dr As DataRow In dt.datarows
                    For Each s As String In dr.lines("图片")
                        If lstr.contains(s) Then Continue For
                        lstr.add(s)
                        s = "http://baidu.com" & s  加上连接后，只能显示第一张，其余两张都是黑色的，
                        .AddImage(s,s)  用msgbox(s)弹出是正确的，网址加图片名称
                    Next
                Next
            End With
        End With
这个是什么情况啊
--  作者：有点蓝
--  发布时间：2021/7/13 14:43:00
--  
If lstr.contains(s) Then Continue For
lstr.add(s)
.AddImage("http://baidu.com" & s)  用msgbox(s)弹出是正确的,网址加图片名称
--  作者：BG小白
--  发布时间：2021/7/13 15:16:00
--  
这样确实可以了，但是最多也只能显示4张，再多就看不到了
--  作者：有点蓝
--  发布时间：2021/7/13 15:24:00
--  
有同名的文件吧，自己做了同名排除逻辑
--  作者：BG小白
--  发布时间：2021/7/13 15:59:00
--  
我发现是格式原因jpeg，这个格式的显示不了
Dim fl As String = "d:\\web\\" & e.path
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"，"jpeg"
            e.WriteFile(fl)
    End Select
--  作者：BG小白
--  发布时间：2021/7/13 16:21:00
--  
蓝老师
--  作者：有点蓝
--  发布时间：2021/7/13 16:23:00
--  
其它的都有点，就不知道加个点吗
Case ".jpg",".gif",".png",".bmp",".wmf"，".jpeg"
--  作者：BG小白
--  发布时间：2021/7/13 16:33:00
--  
图片点击可在新窗口打开查看没有注意，但是我加上了也是没有效果
--  作者：BG小白
--  发布时间：2021/7/13 16:34:00
--  
这个可以不限制吗？
--  作者：BG小白
--  发布时间：2021/7/13 16:42:00
--  
我通过网址访问也是访问不了
[此贴子已经被作者于2021/7/13 17:03:19编辑过]