主题：手机端怎么显示已上传的照片

老师，保存扫描件路径如下：

            Dim lst As  List(of String) = ds.Lines("身份证扫描件")
            For Each key As String In e.Files.Keys
                If key = "up1" Then
                    For Each fln As String In e.Files(key)
                        e.SaveFile(key,fln,"e:\FTP\实名制管理\" & ds("项目名称") & "\" & ds("姓名") & "\" & fln) '保存接收到的文件
                        lst.add("/实名制管理/" & ds("项目名称") & "/" & ds("姓名") & "/" & fln)
                    Next
                    ds.Lines("身份证扫描件") = lst
                End If
            Next

手机端读取时，需要把已经上传的身份证扫描件显示出来，应该怎么写呢

            With wb.AddInputGroup("form1","身份证信息","身份证信息")
                With .AddUploader("up1","",True)
                    .Accept = drxm("身份证扫描件")
                End With
            End With

那我存到ftp路径的，还是不能直接显示？

那就只能把ftp路径放到web下咯

老师，这个页面：Renamecx.htm是生成实名制列表，效果如下：

此主题相关图片如下：111.jpg

代码如下：

                Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & userxmmc & "'","","[_Identify]")
                For Each dr1 As DataRow In drs
                    Dim txt As String = "<p>联系电话:" & dr1("联系电话") & "</p>"
                    txt = txt & "<p>身份证号:" & dr1("身份证号码") & "</p>"
                    txt = txt & "<p>家庭地址:" & dr1("家庭地址") & "</p>"
                    With .AddList("姓名:" & dr1("姓名"),"./images/button.png","ReNamecx_name.htm") '超链接
                        .TextStyle="color:red;font-size:16px"  '字体颜色,字体大小
                        .ImageWidth = 64  '图片大小
                        With  .LeftFooter
                            .AddFoot(txt).Attribute = "style='color:Gray;font-size:12px'"
                        End With
                    End With
                Next

生成列表时，怎么把姓名保存到变量，点击某一个人时，打开那个人的详细列表页面Renamecx_name.htm

Renamecx_name.htm页面是根据find找到姓名=上面保存的那个变量

            Dim drxm As DataRow = DataTables("实名制管理").SQLFind("项目名称 = '" & userxmmc & "' and 姓名 = '" & drn("姓名") & "'")

此主题相关图片如下：qq截图20220406154106.jpg

效果不对，怎么这样了呢

            With ExWeUI.WebUI.AddListGroup("","lst01",1)
                Dim drs As  List(of  DataRow) = DataTables("实名制管理").SQLSelect("项目名称 = '" & userxmmc & "'","","[_Identify]")
                For Each dr1 As DataRow In drs
                    Dim txt As String = "<p>联系电话:" & dr1("联系电话") & "</p>"
                    txt = txt & "<p>身份证号:" & dr1("身份证号码") & "</p>"
                    txt = txt & "<p>家庭地址:" & dr1("家庭地址") & "</p>"
                    With .AddList("姓名:" & dr1("姓名"),"./images/button.png","ReNamecx_name.htm") '超链接
                        .TextStyle="color:red;font-size:16px"  '字体颜色,字体大小
                        .ImageWidth = 64  '图片大小
                        With  .LeftFooter
                            '.AddFoot(txt).Attribute = "style='color:Gray;font-size:12px'"
                             .AddFoot(txt,"Renamecx_name.htm?name=" & dr1("姓名")).Attribute = "style='color:Gray;font-size:12px'"
                        End With
                    End With
                Next
                wb.InsertHTML(.BuildHtml)
            End With
            wb.AppendHTML("<script>initExWeUI();</script>")
            e.WriteString(wb.Build)

知道用法了，这样就OK了

                    With .AddList("姓名:" & dr1("姓名"),"./images/button.png","Renamecx_name.htm?name=" & dr1("姓名")) '超链接
                        .TextStyle="color:red;font-size:16px"  '字体颜色,字体大小
                        .ImageWidth = 64  '图片大小
                        With  .LeftFooter
                            .AddFoot(txt).Attribute = "style='color:Gray;font-size:12px'"
                        End With