主题：如何显示照片

请问老师，我数据库“职工信息总表”中有一列“照片”列，想把照片显示出来怎么改下面的代码呢？

Select Case e.Path
    Case "list.htm"
        Dim page As Integer = 0 '默认page为0,显示第一页
        Dim pageRows As Integer = 15 '每页10行
        If e.GetValues.ContainsKey("page") Then  '如果地址中有page参数
            Integer.TryParse(e.GetValues("page"), page) '提取page参数
        End If
        Dim StartRow As Integer = page * pageRows '此页第一行
        Dim EndRow As Integer = (page + 1) * pageRows - 1 '此页最后一行
        Dim lst As List(of DataRow) = DataTables("职工信息总表").Select("","出生日期 Desc") '按日期顺序显示
        If StartRow > lst.Count -1 Then
            e.WriteString("已经是最后一页!")
            Return
        End If
        EndRow = Math.Min(EndRow, lst.Count - 1) '这是必须的
        Dim sb As New StringBuilder
 sb.AppendLine("<meta name='viewport' c>")

        Dim nms() As String = {"姓名","性别","年龄","民族","编制","最高学历","出生日期"}
        sb.AppendLine("<Table border='1'>")
        sb.AppendLine("<caption>教职工信息<caption></br>")
        sb.Append("<tr>")
        For Each nm As String In nms
            sb.Append("<td>" & nm & "</td>")
        Next
        sb.AppendLine("</tr>")
        For r As Integer = StartRow To EndRow
            sb.Append("<tr>")
            For Each nm As String In nms
                sb.Append("<td>" & lst(r)(nm) & "</td>")
            Next
            sb.AppendLine("</tr>")
        Next
        sb.AppendLine("</Table></br></br>")
        If page > 0 Then
            sb.Append("<a href='list.htm?page=" & page - 1 & "'>上一页</a> ")
        End If
        If EndRow < lst.Count -1 Then
            sb.Append("<a href='list.htm?page=" & page + 1 & "'>下一页 </a>" )
        End If
        e.WriteString(sb.ToString)    
   End Select

1、比如你图片放在 web/images/xxxx 下面（要显示的图片，必须弄到web文件夹下），而你图片列存放的内容是 xxxx

2、那代码，就写成

            For Each nm As String In nms
                sb.Append("<td>" & lst(r)(nm) & "</td>")
            Next

            sb.Append("<td><img src='/images/" & lst(r)("图片") & "' width='50px' height='50px' /></td>")

r应怎么定义呢

哦，改成

        For r As Integer = StartRow To EndRow
            sb.Append("<tr>")
            For Each nm As String In nms
                sb.Append("<td>" & lst(r)(nm) & "</td>")
            Next

            sb.Append("<td><img src='/images/" & lst(r)("图片") & "' width='50px' height='50px' /></td>")
            sb.AppendLine("</tr>")
        Next

我加上了，但只显示点位符，不显示照片。红色代码是不是加的位置不对呢。

 Case "list.htm"
        Dim page As Integer = 0 '默认page为0,显示第一页
        Dim pageRows As Integer = 15 '每页10行
        If e.GetValues.ContainsKey("page") Then  '如果地址中有page参数
            Integer.TryParse(e.GetValues("page"), page) '提取page参数
        End If
        Dim StartRow As Integer = page * pageRows '此页第一行
        Dim EndRow As Integer = (page + 1) * pageRows - 1 '此页最后一行
        Dim lst As List(of DataRow) = DataTables("职工信息总表").Select("","出生日期 Desc") '按日期顺序显示
        If StartRow > lst.Count -1 Then
            e.WriteString("已经是最后一页!")
            Return
        End If
        EndRow = Math.Min(EndRow, lst.Count - 1) '这是必须的
        Dim sb As New StringBuilder
        sb.AppendLine("<meta name='viewport' c>")
       
        Dim nms() As String = {"姓名","性别","年龄","民族","编制","最高学历","出生日期"}
        sb.AppendLine("<Table border='1'>")
        sb.AppendLine("<caption>教职工信息<caption></br>")
        sb.Append("<tr>")
        For Each nm As String In nms
            sb.Append("<td>" & nm & "</td>")
        Next
        sb.AppendLine("</tr>")
        For r As Integer = StartRow To EndRow
            sb.Append("<tr>")
            For Each nm As String In nms
                sb.Append("<td>" & lst(r)(nm) & "</td>")
            Next
            sb.AppendLine("</tr>")
        Next

 For r As Integer = StartRow To EndRow
            sb.Append("<tr>")
            For Each nm As String In nms
                sb.Append("<td>" & lst(r)(nm) & "</td>")
            Next

            sb.Append("<td><img src='D:\xxsjk(学校数据库)\学校档案\教师照片\"  & lst(r)("照片") & "' width='50px' height='50px' /></td>")
            sb.AppendLine("</tr>")
        Next

 sb.AppendLine("</Table></br></br>")
        If page > 0 Then
            sb.Append("<a href='list.htm?page=" & page - 1 & "'>上一页</a> ")
        End If
        If EndRow < lst.Count -1 Then
            sb.Append("<a href='list.htm?page=" & page + 1 & "'>下一页 </a>" )
        End If
        e.WriteString(sb.ToString)
End Select

比如你图片放在 web/images/xxxx 下面（要显示的图片，必须弄到web文件夹下），而你图片列存放的内容是 xxxx

如果要用绝对路径，看看 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98762&authorid=0&page=0&star=1