精华内容
下载资源
问答
  • ASP分页

    2017-05-03 08:16:28
    一:分类 假分页:是把所有的记录都从数据库种取出来,然后再把这些记录分页分页:先分页,再把对应页的记录从数据库中取出来 比较:真分页效率较高,因为每次只需取出所需的内容,...3.将该控件拉到.asp的设计页面

    一:分类

    假分页:是把所有的记录都从数据库种取出来,然后再把这些记录分页

    真分页:先分页,再把对应页的记录从数据库中取出来

    比较:真分页效率较高,因为每次只需取出所需的内容,相对来说,去的内容较少,执行就快了


    二:真分页

    1.下载AspNetPager.dll,提取密码为eyyp

    2.工具箱右击——选择项——添加AspNetPager.dll文件

    3.将该控件拉到.asp的设计页面中的相应位置

    4.在源代码中修改代码为:

            <webdiyer:AspNetPager ID="anp" runat="server" OnPageChanged="anp_PageChanged" PageSize="5">
            </webdiyer:AspNetPager>
    
    

    5.双击AspNetPager控件,进入PageChanged事件的编写(即当页改变时):

    protected void anp_PageChanged(object sender, EventArgs e)
        {
            int startPageIndex = anp.StartRecordIndex;
            int endPageIndex = anp.EndRecordIndex;
            BindNews(startPageIndex,endPageIndex);        
        }

     Load加载代码:

    anp.RecordCount = new NewsManager().SelectAll().Rows.Count;
    BindNews(1,5);
    

     方法BindNews(绑定数据源的代码抽象出来了):

    protected void BindNews(int startPage,int endPage)
        {
            DataTable dt = new NewsManager().selectPageNews(startPage, endPage);
            repNews.DataSource = dt;
            repNews.DataBind();
        }


     D层代码:

    public DataTable selectPageNews(int startPage,int endPage)
            {
                SqlParameter[] paras = new SqlParameter[] {
                    new SqlParameter("@startPage",startPage),
                    new SqlParameter("@endPage",endPage)
                };
                DataTable dt = sqlHelper.ExecuteQuery("news_selectPageNews",paras, CommandType.StoredProcedure);
                return dt;
            }


     存储过程:

    ALTER PROCEDURE [dbo].[news_selectPageNews]
    	 @startPage int,
    	 @endPage int
    AS
    BEGIN
    	with temptbl as
    (
    	select ROW_NUMBER() over (order by id desc)As 行号, * from news
    	)
    	
    select * from temptbl where 行号 between @startPage and @endPage
    END

    (临时表的建立和使用必需一块执行,如果光建临时表会执行不成功的)
    PageSize:每页的大小

    RecordCount:记录的总条数

    根据以上两个属性,可确定一共有几页,所以以上两个属性是必须有的属性

    三:可能出现的问题:

    1>页面在第一次加载时还是把所有的记录都显示在第一页上,当点击每页时有显示正常,这是因为在加载时,给repter绑定数据源时绑定的是所有的记录

    我这把加载时第一页绑定数据源默认为1-5条记录,重用了一下存储过程,因为我的PageSize设置的是5(为保持一致)

    2>如果加载时,不设置RecordCount属性,只会显示第一页的内容,且不会出现AspNetPager控件

    四:总结

    实践会掌握更多,更能开阔代码思维

    展开全文
  • asp分页

    2008-05-31 23:39:09
    =========================分页说明============================ 技术应用 基于asp+vb写的分页 测试:page_demo.asp <br>特点:1,支持多国语言 2,支持多样式,方便更改样式 3,灵活,易于使用...
  • ASP分页

    2005-11-13 13:11:00
    本人写了2个通用的ASP分页方法,供大家参考!dim currentpage 定义当前页dim filename 文件名Const MaxPerPage=20 每页显示的记录个数dim totalnumber 记录总数filename="showpages.asp"totalnumber=200 设置...

    本人写了2个通用的ASP分页方法,供大家参考!
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    </HEAD>
    <BODY>

    <%
    dim currentpage  '定义当前页
    dim filename     '文件名
    Const MaxPerPage=20   '每页显示的记录个数
    dim totalnumber  '记录总数
    filename="showpages.asp"
    totalnumber=200     '设置记录总数为200

    if not isempty(request("page")) then
          currentPage=cint(request("page"))
       else
          currentPage=1
    end if
    showpages totalnumber,MaxPerPage,filename
    %>
    </BODY>
    </HTML>
    <%'定义分页的函数,以totalnumber,maxperpage,filename作为函数的入口。
    function showpages(totalnumber,maxperpage,filename)
      dim n
      if totalnumber mod maxperpage=0 then
         n= totalnumber maxperpage
      else
         n= totalnumber maxperpage+1
      end if
      response.write "<form method=Post action="&filename&">"
      response.write "<p align='center'>记录分页&nbsp;"
      if CurrentPage<2 then
        response.write "<font color='999966'>首页 上一页</font>&nbsp;"
      else
        response.write "<a href="&filename&"?page=1>首页</a>&nbsp;"
        response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a>&nbsp;"
      end if
      if n-currentpage<1 then
        response.write "<font color='999966'>下一页 尾页</font>"
      else
        response.write "<a href="&filename&"?page="&(CurrentPage+1)
        response.write ">下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
      end if
       response.write "&nbsp;页次:<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 &nbsp;"
       response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=smallInput

    value="&currentpage&">"
       response.write "<input class=buttonface type='submit'  value=' Goto '  name='cndok'></span></p></form>"
          
    end function
    %>

    --------------------------------------------------------------------------

    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    </HEAD>
    <BODY>

    <%
    dim currentpage  '定义当前页
    dim filename     '文件名
    Const MaxPerPage=20   '每页显示的记录个数
    dim totalnumber  '记录总数
    filename="showpages.asp"
    totalnumber=200     '设置记录总数为200

    if not isempty(request("page")) then
          currentPage=cint(request("page"))
       else
          currentPage=1
    end if
    showpages totalnumber,MaxPerPage,filename
    %>
    </BODY>
    </HTML>
    <%'定义分页的函数,以totalnumber,maxperpage,filename作为函数的入口。
    function showpages()
        dim n
        if (totalnumber mod MaxPerPage)=0 then
           n= totalPut MaxPerPage
        else
           n= totalPut MaxPerPage + 1
        end if
        if n=1 then
            exit sub
        end if
        dim k
        response.write "<p align='left'>&gt;&gt; 分页 "
          for k=1 to n
            if k=currentPage then
       response.write "[<b>"+Cstr(k)+"</b>] "
    else
      response.write "[<b>"+"<a href="&filename&"?page="+cstr(k)+">"+Cstr(k)+"</a></b>] "
            end if
          next
        response.write "</p>"
       end function
    %>

    展开全文
  • asp分页

    2004-11-16 21:06:00
    asp分页 +日记  +心情日记 日期 标题 保密 
    asp分页  
    

    <table width="100%" border="0" cellspacing="0" cellpadding="0" class="t1">
                  <tr>
                    <td colspan="5" valign="top"><IMG SRC="../images/user-1_08.gif" WIDTH=1 HEIGHT=1></td>
                  </tr>
                  <tr valign="top" bgcolor="#FCD2EE">
                    <td height="30" colspan="5" align="left"><img src="../images/icon1.gif"><a href="write.asp">+日记</a>&nbsp;&nbsp;<a href="index.asp">+心情日记</a></td>
                  </tr>
                  <tr bgcolor="#ffcccc">
                    <td width="23%" height="30">日期</td>
                    <td width="47%" height="30">标题</td>
                    <td width="8%"> 保密</td>
                    <td width="8%">浏览数</td>
        <td width="14%">操作</td>
                  </tr>
         <%
       dim i,intPage,page,pre,last,filepath
      set rs = server.CreateObject("adodb.recordset")
       sql="select id,savetime,title,hits,issecret from f_diaries where uid='"&session("uid")&"' order by id desc"

          rs.PageSize = 20  '这里设定每页显示的记录数
          rs.CursorLocation = 3
          rs.Open sql,conn,0,2,1  '这里执行你查询SQL并获得结果记录集
          pre = true
          last = true
          page = trim(Request.QueryString("page"))
         
          if len(page) = 0 then
                      intpage = 1
                      pre = false
          else
              if cint(page) =< 1 then
                   intpage = 1
                   pre = false
              else
                  if cint(page) >= rs.PageCount then
                      intpage = rs.PageCount
                      last = false
                  else
                       intpage = cint(page)
                 end if
             end if
          end if
        if not rs.eof then
             rs.AbsolutePage = intpage
        end if
    %>
    <%   
       for i=1 to rs.PageSize
         if rs.EOF or rs.BOF then exit for
      %>
                  <tr>
                    <td height="25"><%=trim(rs("savetime"))%></td>
                    <td height="25" align="left"><a href="show.asp?id=<%=trim(rs("id"))%>"><%if len(trim(rs("title")))>20 then
           response.Write left(trim(rs("title")),20)
           response.Write "..."
           else
           response.Write trim(rs("title"))
           end if
        %></a></td>
        <td><%if rs("issecret")=0 then%>公开<%else%>保密<%end if%></td>
        <td height="25"><%=trim(rs("hits"))%></td>
        <td height="25"><a href="del.asp?id=<%=trim(rs("id"))%>">删除</a>&nbsp;<a href="change.asp?id=<%=trim(rs("id"))%>">修改</a></td>
                  </tr>
         <%  
         rs.movenext
        next
       %>
       <tr>
        <td colspan="6">
     <table width="99%" border="1" cellpadding="2" bgcolor="#ffcccc" cellspacing="2" borderColorLight="#808080" borderColorDark="#ffffff">
       <tr>
         <%if rs.pagecount > 0 then%>
         <td width="23%" align="left">当前页<font color="#ff0000"><%=intpage%></font>/<%=rs.PageCount%>&nbsp;&nbsp; <%=rs.PageSize%>篇/页 </td>
         <%else%>
        <td width="15%" align="left">当前页0/0</td><%end if%>
        <td width="62%" align="right"> <a href="index.asp?page=1">首页</a>|
         <%if pre then%>
         <a href="index.asp?page=<%=intpage -1%>">上页</a>| <%end if%>
         <%if last then%>
          <a href="index.asp?page=<%=intpage +1%>">下页</a> |<%end if%>
          <a href="index.asp?page=<%=rs.PageCount%>">尾页</a>|转到第
          <select name="sel_page" οnchange="javascript:location=this.options[this.selectedIndex].value;">
          <%
           for i = 1 to rs.PageCount
           if i = intpage then%>
           <option value="index.asp?page=<%=i%>" selected><%=i%></option>
         <%else%>
           <option value="index.asp?page=<%=i%>"><%=i%></option>
            <%
              end if
            next
            %>
         </select>页</font>
        </td>
        </tr>
       </table>
       </td>
      </tr>
      
      
    <%
       rs.close
       set rs=nothing
    %>

                </table>


    展开全文
  • ASP分页通用类 asp分页

    2009-03-25 14:33:46
    asp 分页 分页类 asp分页 asp分页
  • asp分页asp分页仿百度,asp分页大全 自己整理的,可以看看啊
  • asp分页显示asp分页显示asp分页显示asp分页显示asp分页显示asp分页显示asp分页显示asp分页显示asp分页显示
  • ASP 分页

    2009-02-19 17:04:00
    <a href="showarticle.asp?id=("id")"%> targe="_blank"> (rs("title"))>15 then) %> (rs("title"),14)%>... <%else%> ("title")%>   <td> ("viewcount")%>  <td> ("addtime")%> ...

    <%

    set conn=server.createobject("adodb.connection")

    str="provier=microsoft.jet.oledb.4.0;data source="& server.mappath("test.mdb")

    conn.open str 

    dim sql 

    set sql="select * from article " 

    set rs=server.createobject("adodb.recordset") 

    rs.open sql,conn,3,1 

    rs.pagesize=15  -------每页显示15条记录 

    if not isempty(request("page"))  then

       pagenum=cint(request("page"))

    else

       pagenum=1

    end if  

    rs.absolutepage= pagenum                       ----------指定当前页,页码 

    thispage=request.servervariables("script_name")

    %> 

    <table >

    <tr>

    <td>文章标题</td>

    <td>阅览次数</td>

    <td>发表时间</td>

    </tr>

    <%do while not rs.eof %> 

    <tr>

    <td>

    <a href="showarticle.asp?id=<%rs("id")"%>  targe="_blank">

    <% if len(rs("title"))>15 then) %>

    <%=left(rs("title"),14)%>...

    <%else%>

    <%=rs("title")%>

    <%end if %>

    </a>

    </td> 

    <td> <%=rs("viewcount")%></td> 

    <td> <%=rs("addtime")%></td>

    </tr>

    <%n=n+1

    rs.movenext

    if n>=pagesize then exist do  end if  

    loop %>

    </table> 

    <table>

    <tr>

    <td>本版共<%=rs.recordsetcount%>篇文章,页次:<%=pagenum%>/<%=rs.pagecount%>

    <%if pagecount<>1 then %>

    <a href="<%=thispage %>?page=1"> 首页</a>

    <a href="<%=thispage %>?page=<%=pagenum-1%>"> 上一页</a>

    <%end if%>

    <%if pagecount<>rs.pagecount then %> 

    <a href="<%=thispage %>?page=<%=pagenum+1%>"> 下一页</a>

    <a href="<%=thispage %>?page=<%=rs.pagecount%>"> 尾页</a>

    <% end if %>

    <td >

    </tr>

    </table > 

    <%

    rs.close

    set rs=nothing

    set conn=nothing

    %>

     

     

    展开全文
  • asp分页asp分页使用说明asp分页asp分页使用说明我提供的可能不是最好,但是一定可用.
  • 叶子asp分页

    2021-01-20 07:49:56
    名称: 叶子asp分页类 Name: ShowoPage(vbs class) RCSfile: ReadMe.txt Revision: 0.12.20051114.f Author: Yehe(叶子) Released: 2005-11-14 09:40:13 Descript: ASP分页类,支持access/mssql/mysql/sqlite...
  • asp分页

    2013-03-15 10:27:45
    asp分页
  • 内容索引:ASP源码,其它类别,ASP分页程序,分页函数 通用的ASP分页程序,含分页调用示例,使用Access数据库。  注意:本程序是传统的ASP分页程序,并不是现在流行的AJAX分页,但这却是AJAX分页的基础,只有学会传统...
  • asp内容分页,asp内容手动分页,asp分页符号[NextPage]
  • asp 分页 程序 asp

    2009-10-28 09:43:51
    asp 分页 程序 很简单明了 asp 分页 程序 很简单明了
  • – //ASP分页函数 function ShowListPage(page,Pcount,TopicNum,maxperpage,strLink,ListName){ var alertcolor = ‘#FF0000’; maxperpage=Math.floor(maxperpage); TopicNum=Math.floor(TopicNum); page=Math....
  • ASP分页教程分页教程

    2010-04-20 00:39:59
    ASP分页教程,如果ASP页面文字太多,请看此分页教程
  • asp分页的一个类

    2020-10-31 00:19:10
    asp分页的一个类
  • 彻底掌握ASP分页技术杂谈
  • ASP分页类 v1.1

    2019-10-18 05:01:36
    本人原创的ASP分页类,可快速有效的对Recordset对象进行分页处理,大大提升开发效率。 附有网络上常见的分页类例子供测试。数据量100万。 效率,比不上叶子的分页类,但仅次其后... 方便,叶子的分页类:数组。本...
  • asp分页代码

    2013-06-04 08:30:54
    一个比较好的asp分页代码,走过路过不要错过,有20个字了吧
  • 易心asp分页类 v1.0

    2020-10-30 15:18:22
    易心asp分页类 v1.0
  • asp分页显示代码

    2013-09-09 15:29:36
    asp分页显示代码 分页源码 下载本地测试可用
  • 浅谈asp分页

    2012-12-21 14:45:06
    浅谈asp分页

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 9,355
精华内容 3,742
关键字:

asp分页