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()