asp 分页代码

1. <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
2.         <TBODY>
3.         <TR>
4.           <TD background="" colSpan=3 height=1></TD></TR>
5.         <TR>
6.           <TD class=style1 align=middle  
7.             height=35>页次：<B><FONT color=#ff0000><%=CurrentPage%></FONT></B>/<B><FONT 
8.             color=#ff0000><%=Cstr(rs_c.pagecount)%></FONT></B>页 每页<B><FONT 
9.             color=#ff0000><%=PerPage%></FONT></B>条记录 总数<B><FONT 
10.             color=#ff0000><%=Cstr(rs_c.RecordCount)%></FONT></B>条</TD>
11.           <TD class=13font align=middle ><SPAN 
12.             class=Bfont>  <% If currentpage > 1 Then  %>
13.                          <a href='?classid=<%=mclassID%>&keywords=<%=server.urlencode(m_keywords)%>&area=<%=m_area%>&page=<%=cstr(1)%>'><img alt='首页' src='images/arrow4.gif' border=0 width='11' height='11'></a> 
14.                          <a href='?classid=<%=mclassID%>&keywords=<%=server.urlencode(m_keywords)%>&area=<%=m_area%>&page=<%=Cstr(currentpage-1)%>'><img alt='上一页' src='images/arrow3.gif' border=0 width='14' height='11'></a> 
15.                           
16.                         <% Else  %>
17.                          <img alt='首页' src='images/arrow4-1.gif' border=0 width='11' height='11'> 
18.                          <span class="content">上一页</span>
19.                         <% end if %>
20.                         <%
21.               if rs_c.pagecount>10 then
22.               n_star=currentpage
23.               n_end=currentpage+9
24.               else
25.               n_star=1
26.               n_end=rs_c.pagecount            
27.               end if
28.               %>
29.                         <% FOR n=n_star to n_end %>
30.                         <% if n>rs_c.pagecount then  exit for  end if%>
31.                         <a href='?classid=<%=mclassID%>&area=<%=m_area%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=n%>'>[<%=n%>]</a> 
32.                         <%
33.                       next
34.                       %>
35.                         <% If currentpage < Rs_c.PageCount Then %>
36.                          <a href='?classid=<%=mclassID%>&area=<%=m_area%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=Cstr(currentPage+1)%>'><img alt='下一页' src='images/arrow1.gif' border=0 width='14' height='11'></a> 
37.                          <a href='?classid=<%=mclassID%>&area=<%=m_area%>&keywords=<%=server.urlencode(m_keywords)%>&page=<%=Cstr(Rs_c.PageCount)%>'><img alt='末页' src='images/arrow2.gif' border=0 width='11' height='11'></a> 
38.                         <% else %>
39.                          <span class="content">下一页</span>
40.                          <img alt='末页' src='images/arrow2-1.gif' border=0 width='11' height='11'>
41.                         <% end if %></SPAN> 
42.                        
43.             </TD>
44.         </TR>
45.       </TABLE>