我加上了,但只显示点位符,不显示照片。红色代码是不是加的位置不对呢。
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