主题：求助 web列表分页显示

Select Case e.Path
    Case "list.htm"
        Dim page As Integer = 0 '默认page为0，显示第一页
        Dim pageRows As Integer = 10 '每页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
        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