`
xiaojiit
  • 浏览: 133143 次
  • 性别: Icon_minigender_2
  • 来自: 北京
社区版块
存档分类
最新评论

ASP 通用分页工具

阅读更多

最近做ASP的网页,遇到分页的问题,从网上找了一下,发现这个还不错,贴上来,大家一起看看:

<table width="500" height="188" border="0" cellpadding="0" cellspacing="0">
 <wbr><% </wbr><wbr> </wbr><wbr>dim sql,rs,iCount,iPageSize,maxpage,page,i
 </wbr><wbr> </wbr><wbr> </wbr><wbr>type1="名模经纪"
 </wbr><wbr> </wbr><wbr> </wbr><wbr>type2="男"
 </wbr><wbr> </wbr><wbr> </wbr><wbr>sql="select * from modles where sex = '"&type2&"' and BigClassName='"&type1&"'"
 </wbr><wbr> </wbr><wbr> </wbr><wbr>Set rs=Server.CreateObject("adodb.recordSet")
 </wbr><wbr> </wbr><wbr> </wbr><wbr>rs.open sql,conn,1,1 </wbr><wbr>在这里,得到你想要的记录集
 </wbr><wbr> </wbr><wbr> </wbr><wbr>If rs.eof and rs.bof then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write"<span>没有任何记录</span>"
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.End
 </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>rs.PageSize =5'每页记录条数
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>iCount=rs.RecordCount '记录总数
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>iPageSize=rs.PageSize
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>maxpage=rs.PageCount
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=request("page")
 </wbr><wbr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If Not IsNumeric(page) or page="" then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=1
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=cint(page)
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page<1 then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=1
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>ElseIf </wbr><wbr> page>maxpage then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=maxpage
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>rs.AbsolutePage=Page
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page=maxpage then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>x=iCount-(maxpage-1)*iPageSize
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>x=iPageSize
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr>
 </wbr><wbr>for i=1 to rs.pagesize </wbr><wbr> </wbr><wbr> 这是显示每面内容
 </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> <tr>
 </wbr><wbr><%
 </wbr><wbr> </wbr><wbr>for j=0 to 3 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>这里,用两个循环进行分行,由于是显示图片,所以,每行显示3个图片
 </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> <td width="166"></wbr>

<table>
 <wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> <tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr><td><a href="showmodle.asp?table=modles&id=<%=rs("id")%>" onFocus="this.blur()"><img src="<%=rs("img")%>" border="0" width="112" height="93" /></a></td>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr></tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr><tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr><td align="center"><%=rs("name1")%></td>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr></tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr></table></wbr>

</td>
 <wbr><% </wbr><wbr>rs.movenext
 </wbr><wbr> </wbr><wbr> </wbr><wbr>If rs.eof then exit for
 </wbr><wbr> </wbr><wbr> </wbr><wbr>next
 </wbr><wbr> </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> </tr>
 </wbr><wbr> <%
 </wbr><wbr>  </wbr><wbr>If rs.eof then exit for
 </wbr><wbr>next
 </wbr><wbr> %>
 </wbr><wbr><tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr><td width="500" colspan="4"><%
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>call PageControl(iCount,maxpage,page)
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Sub PageControl(iCount,pagecount,page)
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>'生成上一页下一页链接
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Dim query, a, x, temp
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>query = Split(Request.ServerVariables("QUERY_STRING"), "&")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>For Each x In query
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>a = Split(x, "=")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If StrComp(a(0), "page", vbTextCompare) <> 0 Then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>temp = temp & a(0) & "=" & a(1) & "&"
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Next
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<table border='0' cellpadding='0' </wbr><wbr> width='100%' align='center'>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><tr>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<td align='center' bgcolor='#000000'>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page<=1 then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("首页 " )
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("上一页 ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=1>首页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page>=pagecount then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("下一页 ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("尾页 ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write(" 页次:" & page & "/" & pageCount & "&nbsp;页")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write(" 共有&nbsp;" & iCount & "&nbsp;条留言")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write(" 转到&nbsp;" & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & "&nbsp;页 <input type=submit style=""font-size: 9pt"" value=GO style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("</td></tr></form>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("</table>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End Sub
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </td>
 </wbr><wbr></tr>
</table></wbr>

好了,马马虎虎,可以用的!!!!

分享到:
评论

相关推荐

    asp.net通用分页类

    总的来说,ASP.NET通用分页类是解决大量数据展示问题的有效工具,它将分页逻辑封装起来,使得开发者可以专注于业务逻辑,而不用每次都编写重复的分页代码。通过设计良好的分页类,我们可以实现高效、灵活的分页功能...

    Asp.net通用分页控件

    ASP.NET通用分页控件是ASP.NET开发中常用的一个组件,它主要用于在Web应用程序中处理大量数据时提供分页功能,提高用户体验并减轻服务器负担。AspNetPager 7.2是这个控件的一个版本,它提供了丰富的功能和优化的性能...

    ASP通用分页代码

    ### ASP通用分页代码解析与应用 #### 一、引言 在Web开发中,当数据量较大时,为了提高用户体验并减轻服务器负担,我们通常采用分页技术来展示数据。ASP(Active Server Pages)是一种早期的服务器端脚本环境,它...

    Asp.net C#通用分页类

    ### Asp.net C#通用分页类 #### 概述 在Web开发中,特别是使用ASP.NET进行开发时,数据分页是一个常见的需求。合理的分页不仅能够提高用户体验,还能优化服务器资源的使用效率。然而,传统的分页方法通常较为复杂...

    Ajax通用分页源码(ASP.NET)

    总的来说,这个“Ajax通用分页源码(ASP.NET)”提供了在ASP.NET环境中实现高效、用户友好的分页功能的解决方案,对于任何需要处理大量数据并希望提升用户体验的项目来说,都是一个有价值的工具。通过深入研究和定制这...

    基于ASP的分页类 Kin_Db_Pager通用分页类.zip

    总结,基于ASP的Kin_Db_Pager通用分页类是解决网页数据分页问题的有效工具,它简化了开发流程,提高了代码复用性。通过理解和运用这个类,开发者能够更轻松地构建高性能、用户友好的数据展示页面。

    asp数字分页通用类

    "asaipage"这个文件可能是实现这个通用分页类的源代码文件,可能包含了一系列的函数和过程,用于处理分页逻辑。开发者可以通过在自己的ASP页面中实例化并调用这个类的方法,快速实现分页功能。 在实际应用中,这个...

    ASP.NET分页通用组件 支持很多自定义格式和传值方式

    ASP.NET分页通用组件是一种高效、灵活的工具,旨在提高Web应用程序中数据浏览的用户体验。在大型数据集的展示中,分页尤为重要,因为它允许用户逐步加载和浏览内容,而不是一次性加载所有数据,从而提高页面加载速度...

    ASP.NET数据分页通用高效方法

    总结来说,ASP.NET数据分页通用高效方法主要依赖于存储过程,通过合理的设计和优化,可以有效地处理大数据量的展示,提升系统性能,同时提供良好的用户体验。实践中,开发者应根据项目需求和环境选择最适合的数据...

    Asp.Net实现的通用分页函数

    总的来说,Asp.Net中的通用分页函数是一个高效且灵活的工具,它允许开发者根据需求调整每页记录数、页码显示方式等。通过PagedDataSource类与适当的逻辑控制,我们可以构建出符合SEO优化、用户友好的分页系统。这个...

    ASP.NET 数据库访问通用工具

    ASP.NET 数据库访问通用工具是开发ASP.NET应用程序时的一个重要组成部分,它简化了与数据库的交互,使得开发者能够高效地执行常见的数据操作,如查询、插入、更新和删除。在这个主题中,我们将深入探讨如何利用ASP...

    将Web层分页封装成通用模块

    3. 兼容性:通用分页模块应兼容多种编程语言和框架,如Java的Spring Boot、.NET的ASP.NET Core、Python的Django等。 四、实际案例分析 以"28_传智播客巴巴运动网_将Web层分页封装成通用模块"为例,该示例可能演示...

    AfengPager通用URL分页源码及Demo

    总的来说,AfengPager通用URL分页源码及Demo是一个实用的.NET开发工具,可以帮助开发者快速实现高效的网页分页功能,提升用户体验,并且提供了丰富的定制选项以适应各种项目需求。通过学习和使用这个源码,开发者...

    ASP.NET结合存储过程写的通用搜索分页程序

    ### ASP.NET结合存储过程实现通用搜索分页程序详解 在现代Web开发中,搜索与分页功能是构建高效、用户友好的网站所不可或缺的一部分。本文将深入探讨如何使用ASP.NET结合存储过程来实现一个通用的搜索分页程序,...

    asp.net 分页控件

    ASP.NET分页控件是Web开发中用于处理大量数据并以多页面形式展示的重要工具。在ASP.NET框架中,有多种实现分页的方式,包括服务器端控件如GridView、ListView和DataPager,以及客户端脚本库如jQuery UI或Bootstrap的...

    ASP.NET分页控件

    ASP.NET分页控件是网页开发中的重要工具,尤其在处理大量数据时,它能有效提高用户体验,避免一次性加载过多内容导致页面响应慢或者浏览器崩溃。在ASP.NET 2.0版本中,提供了多种实现分页的方法,这些方法通常与数据...

    asp.net通用查询

    在ASP.NET中,通用查询通常涉及ADO.NET Entity Framework或LINQ to SQL等ORM(对象关系映射)工具,这些工具简化了与数据库的交互。通过这些框架,开发者可以使用C#或VB.NET等高级语言编写SQL查询,而无需直接编写...

    QuickPager asp.net 2.0 分页控件

    QuickPager是一款专为ASP.NET 2.0平台设计的高效分页控件,它旨在提供一个强大且易于使用的工具,帮助开发者在Web应用程序中实现高效的数据分页展示。这款控件支持多种数据库系统,包括但不限于SQL Server、Oracle、...

    基于ASP.NET(VS2008+C#)实现的通用数据显示分页浏览用户控件

    【标题】"基于ASP.NET(VS2008+C#)实现的通用数据显示分页浏览用户控件"涉及的关键知识点如下: 1. ASP.NET:ASP.NET是微软开发的一个用于构建Web应用程序的框架,它提供了丰富的功能和工具,使得开发者能够更高效...

    一个很棒的asp分页类

    1. **Jorkin_Function.asp**:可能包含一些通用的函数或辅助方法,为分页功能提供支持。 2. **Kin_Db_Pager.asp**:很可能就是核心的分页类文件,负责处理数据库查询、计算页数、生成分页链接等功能。 3. **index....

Global site tag (gtag.js) - Google Analytics