改掉的分页代码

<%

rs.PageSize=25 '每页显示条数

pagecount=rs.PageCount

page=int(request.QueryString ("page"))

if page<=0 or page="" or page>rs.pagecount then page=1 '集中处理

rs.AbsolutePage=page

rssum=rs.recordcount

do while not rs.eof %>

中间用来显示的部分

<%rs.movenext

loop%>

共有<%=red(rssum)%>条记录||

当前是<%=red(page)%>/<%=red(pagecount)%>页||

<%if rssum<rs.pagesize then'分页%>

<%response.write"下一页||上一页||首页||末页"%>

<%elseif page=1 and rssum>rs.pagesize then%>

<a href=?page=<%=page+1%>><font color=#6633CC>下一页</font></a>||

上一页||首页||<a href=?page=<%=pagecount%>><font color=#9999ff>末页</font></a>

<%elseif page=pagecount and rssum>rs.pagesize then%>

下一页||<a href=?page=<%=page-1%>><font color=#3333cc>上一页</font></a>||

<a href=?page=1><font color=#cc99ff>首页</font></a>||末页

<%else%>

<a href=?page=<%=page+1%>>下一页</a> ||<a href="?page=<%=page-1%>">上一页</a>||

<a href=?page=1>首页</a>|| <a href=?page=<%=pagecount%>>末页</a>

<%End if'分页部分%>