<%
if rs.eof and rs.bof then
    Response.Write "<font class=c5><p align=center>对不起,没有符合条件的纪录!</p></font>"
else
if trim(request("page"))<>"" then
page = trim(request("page"))
else
page = 1
end if
        rs.AbsolutePage = page
        <p align="center" class="t1">
<% if rs.pagecount=0 then%>
<font class=t1>首页</font> |
<font class=t1>上页</font> |
<font class=t1>下页</font> |
<font class=t1>尾页</font>
    <% else %>
<%if page<=1 then%>
<font class=t1>首页</font> |
<font class=t1>上页</font> |
<%else%>
<a href="cntrt_list.asp?<%=strURLForPage_2%>&order=<%=request("order")%>&page=1">首页</a> |
<a href="cntrt_list.asp?<%=strURLForPage_2%>&order=<%=request("order")%>&page=<% Response.write(page-1)%>">上页</a> |
<%end if%>
<%if page>=rs.PageCount then%>
<font class=t1>下页</font> |
<font class=t1>尾页</font>
<%else%>
<a href="cntrt_list.asp?<%=strURLForPage_2%>&order=<%=request("order")%>&page=<% Response.write(page+1)%>">下页</a> |
<a href="cntrt_list.asp?<%=strURLForPage_2%>&order=<%=request("order")%>&page=<% Response.write(rs.pagecount)%>">尾页</a>
<%end if%>
<% end if %>当前第<font class=c5><%=page%></font>页,总共 <%=rs.pagecount%>页。转到<input type="text" name="page" value="" size=2 class=f1 onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))">页</form>
</p>
<%end if%>