下边是一个分页程序的部分,自己修改一下就可以用了
<%
......
set rs=createobject("ADODB.recordset")
......
rs.PageSize=20 '这个设置页数的大小
totalpage=rs.PageCount '这个获取总共的页数
currentpage=request("currentpage") '获取当前所在的页
%>
<%
'下边用来显示记录
rs.Move (currentpage-1)*20
do while(not rs.eof)
......
rs.MoveNext
loop
&>
<%
if cint(currentpage)<>1 then
%>
<a href=context1.asp?currentpage=1><font color=red>第一页</font></a>
<%
end if
if cint(currentpage)<>cint(totalpage) then
%>
<a href=context1.asp?currentpage=<%=totalpage%>><font color=red>最后页</font></a>
<%
end if
if totalrecord<=maxrecord then
%>
上一页 下一页
<%
else
if cint(currentpage)=cint(totalpage) then
currentpage=cint(currentpage)-1
%>
<a href=context1.asp?currentpage=<%=currentpage%>><font color=red>上一页</font color=red></a> 下一页
<%
else
if currentpage=1 then
currentpage=currentpage+1
%>
上一页 <a href=context1.asp?currentpage=<%=currentpage%>><font color=red>下一页</font></a>
<%
else
currentpage1=currentpage-1
currentpage2=currentpage+1
%>
<a href=context1.asp?currentpage=<%=currentpage1%>><font color=red>上一页</font></a> <a href=context1.asp?currentpage=<%=currentpage2%>><font color=red>下一页</font></a>
<%
end if
end if
end if
%>