详细说
<%
Dim i
i = 1
Do While Not rs.Eof
If (i mod 25 = 0) Then Response.Write "<br style=""page-break-after: always;"" />" '换页
If (i mod 25 = 0) Or (i = 1) Then Response.Write "<table><tr>....</tr>" '打印表头
Response.Write "<tr>.....</tr>" '打印一条记录
rs.MoveNext
i = i + 1
Loop
%>