https://p-blog.csdn.net/images/p_blog_csdn_net/wgsnet/97899/o_o.jpg
<% dim m,n,conn,rs
set conn=server.createobject("ADODB.CONNECTION") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("hy27.mdb") & ""
set rs=server.createobject("adodb.recordset") rs.open "select * from NC_flashlist order by flashID desc",conn,3,3
rs.pagesize=10 '定义一页显示的记录数目 tatalrecord=rs.recordcount '获取记录总数目 tatalpages=rs.pagecount '获取分页的数目 rs.movefirst '---------------------------- nowpage=request("page") '用request获取当前页数,注意page是自己定义的变量并非函数 '-------------------------- if nowpage&"x"="x" then '处理页码为空时的情况 nowpage=1 else nowpage=cint(nowpage) '将页码转换成数字型 end if '-------------------------------- rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录 '------------------------------- n=1 while not rs.eof and n<=rs.pagesize response.Write(rs("title") & "<br>")
n=n+1 rs.movenext '显示页面的数据 wend %> 共:<%=tatalpages%>页 当前为:<%=nowpage%>页 <%if nowpage>1 then%> <a href="2.asp?page=<%=nowpage-1%>">上一页</a> <%else%> 上一页 <%end if%> <select name='jumpMenu' onChange='location.href=jumpMenu.value;'>
<%for k=1 to tatalpages%>
<option value=2.asp?page=<%=k%>>第<%=k%>页</option> <%if k<>nowpage then %> <a href="2.asp?page=<%=k%>"><%=k%></a> <%else%> <%=k%> <%end if%> <%next%>
</select>
<%if nowpage < tatalpages then%> <a href="2.asp?page=<%=nowpage+1%>">下一页</a> <%else%> 下一页 <%end if '加上页码连接 %> <%if nowpage<>1 then%> <a href="2.asp?page=<%=1%>"> 首页</a> <%else%> 首页 <%end if%> <%if nowpage<>tatalpages then %> <a href="2.asp?page=<%=tatalpages%>">末页</a> <%else%> 末页 <%end if%><%
rs.close set rs=nothing
%>