主题：.AddImage 无法显示

     Dim dr As DataRow = DataTables("表B").Find("序列=" & PrimaryKey)
    If dr IsNot Nothing Then
        wb.AddForm("","form1","fplist.htm?key=" & PrimaryKey)
        nowrow = PrimaryKey
        With wb.AddInputGroup("form1","ipg1","")
            .AddInput("日期","日期","date").Value = dr("日期")
           

            With .AddUploader("up128","图片",True)
                .AllowDelete = True '允许删除
                .Incremental = True '允许重复选择文件或连续拍照
                .ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩
                '  .Rotate = 1 '顺时钟旋转90°

                Dim lst As List(of String) =  dr.Lines("图片")  '获取文件集合
                For Each ls As String In lst
                    .AddImage("c:\web\myfiles\" & ls)
                Next

            End With

上传不了图片  ，请教 ，

在手机上看的图片 ，白白一篇， 点进去 就全黑 ，  图片不能正常， 请问  是浏览器问题码？

HttpServer.WebPath = "c:\web"  '指定静态文件存储位置
HttpServer.Start()