asp如何对access数据库的数据进行分页

最新推荐文章于 2014-08-21 11:43:00 发布

liushaochan123

最新推荐文章于 2014-08-21 11:43:00 发布

阅读量695

点赞数

分类专栏： asp 文章标签： ASP

本文链接：https://blog.csdn.net/liushaochan123/article/details/8792554

版权

asp 专栏收录该内容

4 篇文章 0 订阅

订阅专栏

<%
Mytype = request("newstype")
'response.write Mytype

exec = "select * from newscenter where newstype='" & Mytype & "'order by newstime desc"
'response.write exec
set rs = server.createobject("adodb.recordset")
rs.open exec,conn,1,1
infonum = rs.RecordCount

pageSize = 10
rs.PageSize = pageSize
pagecount = rs.PageCount
page = int(request.QueryString("page"))
'response.write pagecount
'response.write page
if page <= 0 then page = 1
if page > pagecount then page = pagecount
if request.QueryString("page") = "" then page = 1
'response.write page
'response.end
rs.AbsolutePage = page
count = 1 
%>

 <%
			for i=1 to pageSize
			if not rs.eof and count <= rs.PageSize then
       %>
              <tr>
             <%=rs("newstitle")%>
              <%=FormatDateTime(Rs("newstime"),vbShortDate)%>
              </tr>
              <%
			count = count + 1
			rs.movenext
		    end if
	        next
	        rs.close
	        set rs = nothing
      %>

分页文章内容

 <%if pagecount = 1 then%>
          << 起始页
              < 上一页
               > 下一页
               >> 最终页
            
            <%end if%>
            <%if pagecount > 1 and page = 1  then%>
            << 起始页
               < 上一页
                <a href="news_list.asp?newstype=<%=Mytype%>&page=<%=page+1%>">> 下一页</a>
                <a href="news_list.asp?newstype=<%=Mytype%>&page=<%=pagecount%>">>> 最终页</a>
           
            <%end if%>
            <%if pagecount > 1 and page>1 and page < pagecount then%>
           <a href="news_list.asp?newstype=<%=Mytype%>&page=1"><< 起始页</a>
                <a href="news_list.asp?newstype=<%=Mytype%>&page=<%=page-1%>">< 上一页</a>
                <a href="news_list.asp?newstype=<%=Mytype%>&page=<%=page+1%>">> 下一页</a>
                <a href="news_list.asp?newstype=<%=Mytype%>&page=<%=pagecount%>">>> 最终页</a>
            <%end if%>
            <%if pagecount > 1 and page = pagecount then%>
           <a href="news_list.asp?newstype=<%=Mytype%>&page=1" target="_self"><< 起始页</a>
             <a href="news_list.asp?newstype=<%=Mytype%>&page=<%=page-1%>">< 上一页</a>
                > 下一页
                >> 最终页
           
          <%end if%>

显示上下页