主题：[求助]为什么手机浏览照片加不上呢？

程序如下。通过手机浏览产品照片。照片是通过FTP上传到服务器指定目录的。

现在想把这些照片通过手机显示浏览。可是没有显示。什么原因？记录显示都是正常的。谢谢
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1",“产品信息")
    
       If r IsNot Nothing Then
        .AddInput("产品名称","产品名称","text").value = r("产品名称")
        .AddInput("产品材料","产品材料","text").value = r("产品材料")
             Dim wjx As String="C:\dataFile\jxmz\ftpml"
        Dim h() As String
        Dim wjml As String
               wjml=r("照片")
       
        wjml=wjml.Replace(chr(13),"")
        h=wjml.split(chr(10))
       
        Dim lszc As String
        With .AddUploader("up1","",True)
            .AllowAdd = False '关闭文件上传功能
            For Each x As String In h
                lszc=wjx & x
                lszc=lszc.Replace("/","\")
                lszc=lszc.Replace("jpg","JPEG")
               
            '    PopMessage(lszc,"提示", PopIconEnum.Infomation, 5)
                .AddImage(lszc)
            Next
        End With
        
   
    End If 
End With

1、图片要放在web文件夹下。

2、如果要用绝对路径，头部的代码要改一下，如 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98762&authorid=0&page=0&star=1

修改后还是显示不出来图片。

图片存放在指定目录。拼接的文件目录是正确的，程序判断文件是存在的。可就是不显示。请老师看看源码哪里的问题？谢谢

Dim e As RequestEventArgs = args(0)

Dim wb As New WeUI

Dim s As Row
Dim zc As String="1=2"
If e.GetValues.ContainsKey("key") Then  zc="[_Identify]=" &  e.GetValues("key")
Dim r As DataRow=DataTables("产品").sqlfind(zc)

wb.AddForm("","form1","test.htm")
Dim sy As String=Nothing
If r IsNot Nothing Then sy= r("产品编码") & "  " & r("产品类别") & "  " & r("产品种类")
With wb.AddInputGroup("form1","ipg1",sy)
   
    If r IsNot Nothing Then
       
       
        With  .AddInput("产品名称","产品名称","text")
            .value = r("产品名称")
            .Readonly=True
        End With
        With  .AddInput("产品材料","产品材料","text")
            .value = r("产品材料")
            .Readonly=True
        End With
        With   .AddInput("单位规格","单位规格","text")
            .value = r("单位") & "/" & r("规格")
            .Readonly=True
        End With
      
        Dim wjx As String="C:\dataFile\jxmz\ftpml"
        Dim h() As String
        Dim wjml As String
       
        wjml=r("照片")
       
        wjml=wjml.Replace(chr(13),"")
        h=wjml.split(chr(10))
        If h.Length>0 Then
            Dim lszc As String
          With .AddUploader("up1","图片",True)
                .AllowAdd = False '关闭文件上传功能
                For Each x As String In h
                    lszc=wjx & x
                           lszc=lszc.Replace("/","\")
                   If FileSys.FileExists(lszc) Then
                        s=Tables("临时表").AddNew
                        s("第一列")=lszc
                        s("第二列")="查到文件"
                        '  PopMessage("AA文件存在  " & lszc,"提示", PopIconEnum.Infomation,2)
                        .AddImage(UrlEncode(lszc))
                       
                    Else
                        '  PopMessage("文件没找到  " & lszc,"提示", PopIconEnum.Infomation,2)
                        s=Tables("临时表").AddNew
                        s("第一列")=lszc
                        s("第二列")="没查到文件"
                    End If
                    
                  Next
            End With
        End If
       End If 
End With

With wb.AddButtonGroup("","btg3", False)
    .Add("btn1","返回").Attribute = ""
End With

e.WriteString(wb.Build) '生成网页

Return True

1、你如何修改的？web文件夹存放图片，然后使用相对路径。

2、如果要用绝对路径，请参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98762&authorid=0&page=0&star=1

你可以在httprequest事件加入msgbox(e.path)弹出路径看一下，然后看头部代码那里，执行了 e.writefile了没有。

修改了e.path路径 不会影响系统引用WeUI文件么？

现在已经保证了文件名是绝对路径 .AddImage(UrlEncode(文件名))，还需要修改e.path路径么？

参考这个做法啊，认认真真看过了没有？

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98762&authorid=0&page=0&star=1

得到e.path的路径以后，找到对应的文件路径，执行 e.writefile 代码啊。