不知道各位有没有发现采集历史记录条数实际是有21条。可分页显示的是20条/页。

解决方法：大概在178行左右

     Response.Write (" </td></tr> ")
       i = i + 1
       If i > MaxPerPage Then
       Exit Do
       End If
    RSObj.MoveNext

改成

     Response.Write (" </td></tr> ")
       i = i + 1
       If i > =MaxPerPage Then
       Exit Do
       End If
    RSObj.MoveNext

原因就是i是从0开始算起的。所以就多出了一条。

=_=！忘指明文件跟文件位置了。。。