这是我的CSS

<style type="text/css">
<!--
table{
width: 100%;
}

table tr td{
border-top: 1px solid black;
border-left: 1px solid black;
margin: 0px;
padding: 1px;

}

#lasttr td{
border-bottom:1px solid black;

}

.lasttd{
border-right: 1px solid black;
}

#col1{
width: 5%; height="53"
}

#col2{
width: 5%;
}

#col3{
width: 4%;
}

#col4{
width: 24%;}

#col5{
width: 8%;
}

#col6{
width: 4%;
}

#col7{
width: 6%;
}

#titletd{
border:0px;
font-size: 36px;
text-align:left;

}

#newpage{
height: 30px;
page-break-after:always;
}

td.spaceline{
border-left: 0px;
}
-->
</style>



dim iPageSize '数据页面大小
iPageSize = 10
iFilePageCount = rsFile.PageCount

这是我的一个循环，如果我想在表的最下面加一个id="lasttr",但是要判断一下表是否到一页的最后一条记录加，烦请各位给我想一下办法

<% do while not rsFile.EOF%>
<%for i=1 to rsFile.RecordCount%>
<%if (i mod iPageSize)=1 then
if (i>1) then
%>
</table>
<div id="newpage" ></div>
<%
end if
%>

<table border="0" cellspacing="0">
<tr >
<td rowspan="3" colspan="4" id="titletd">归&nbsp; 档&nbsp; 文&nbsp; 件&nbsp; 目&nbsp; 录</td>
<td align="center" height="26" ><strong>年度</strong></td>
<td align="center"><strong>期限</strong></td>
<td class="lasttd" align="center"><strong>机构</strong></td>
</tr>
<tr>
<td align="center" height="30"> <%=rsFile.fields("年度号")%></td>
<td align="center"><%if rsFile.fields("案卷保存类型")="1" then response.Write " 永久" %>
<%if rsFile.fields("案卷保存类型")="2" then response.Write " 长期" %>
<%if rsFile.fields("案卷保存类型")="3" then response.Write " 短期" %></td>
<td class="lasttd">&nbsp;</td>
</tr>
<tr><td colspan="4" class="spaceline" height="18" >&nbsp;</td></tr>
<tr>
<td id="col1" align="center"><strong>件 号</strong></td>
<td id="col2" align="center"><strong>责任者</strong></td>
<td id="col3" align="center"><strong>文 号<strong></td>
<td id="col4" align="center"><strong>题&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;名</strong></td>
<td id="col5" align="center"><strong>日 期</strong></td>
<td id="col6"align="center"><strong>页数<strong></td>
<td class="lasttd" id="col7" align="center"><strong>备 注<strong></td>
<%
end if
%>
</tr>
<%if ipagesize then%>
<tr id="lasttr">
<td align="center" height="72"> <%=i%> </td>
<td align="center"><%=rsFile.Fields("发起部门")%></td>
<td align="center"><%=rsFile.Fields("公文文号")%></td>
<td><%if isprint=true then%>
<%=rsFile.Fields("公文标题")%></a>
<%else%>
<%=rsFile.Fields("公文标题")%></a>
<%end if%></td>
<td> <%=year(rsFile.Fields("归档时间"))&"."&month(rsFile.Fields("归档时间"))&"."&day(rsFile.Fields("归档时间"))%></td>
<td>&nbsp;</td>
<td class="lasttd">&nbsp;</td>
</tr>
<%end if%>

<%

rsFile.MoveNext
next
loop

%>

是否是最后一条记录要判断两种情况：

（1）判断是否等于每页的最大数量，即iPageSize，如果相等就是最后一条记录

（2）判断是不是数据库中的最后一条记录，多数情况下最后一页的最后一天记录不一定等于iPageSize，这样就要判断是否是最后一天记录了，是的话当然也就是本也页的最后一条了！