如何用 ASP 实现打印分页?? 急 回答后立即送分

<table>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr style="page-break-after:always"><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr style="page-break-after:always"><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr style="page-break-after:always"><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
<tr><td>line</td></tr>
</table>

<%
dim sql
dim rs
sql="select*from learning order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<p align=center>还没有任何产品出列</center>"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
end if
if (currentpage-1)*MaxPerPage>totalPut then
if(totalPut mod MaxPerPage)=0 then
currentpage=totalPut\MaxPerPage
else
currentpage=totalPut\MaxPerPage+1
end if
end if
if currentpage=1 then
showpage totalPut.MaxPerPage,"index.asp"
showContent
showpage totalPut,MaxPerPage,"index.asp"
else
if(currentPage-1)*MaxPerPage<totalPut then
rs.move(currentpage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpage totalput,MaxPerPage,"index.asp"
showcontent
showcontent totalput,MaxPerPage,"index.asp"
else
currentPage=1
showpage totalput,MaxPerPage,"index.asp"
showContent
showpage totalput,MaxPerPage,"index.asp"
end if
end if
rs.close
end if

set rs=nothing
conn.close
set conn=nothing

sub showContent
dim i
i=0
%>
<TABLE cellspacing=0 cellpadding=0 border=0>
<%do while not rs.eof%>
<TR>
<TD> </TD>
</TR>
<%i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>
</TABLE>
<%end sub
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber\maxperpage
else
n=totalnumber\maxperpage+1
end if
response.write"<form method=Post action="&filename&">"
response.write"<p align=cener>>>分页 "
if CurrentPage<2 then
response.write"<font color='#999966'>首页 上一页</font> "
else
response.write"<a href="&filename&"?page=1&>首页</a> "
response.write"<a href="&filename&"?page=&CurrentPage-1&>上一页</a> "
end if
if n-currentpage<1 then
response.write"<font color='#999966'>下一页 尾页</font>"
else
response.write"<a href="&filename&"?page="&(CurrentPage+1)
response.write">下一页</a><a href="&filename&"?page="&n&">尾页</a>"
end if
response.write" 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页"
response.write" 共<b>"&totalnumber&"</b>篇文章<b>"&maxperpage&"</b>篇文章/页"
response.write"转到：<input type='text' name='page' size=4 maxlength=10 class=smallInput value=¤tpage&>"
reponse.write"<input class=buttonface type='submit' value='Goto' name='cndok'></span></p></form>"
end function
%>

可以试试fbj007(宝宝) 的方法

建议你使用袁飞打印控件，非常方便好用。