ASP经典分页类 出处 '===================================================================== 'XDOWNPAGE ASP版本 '版本 1.00 'Code by zykj2000 'Email: zykj_2000@163.net 'BBS: http://bbs.513soft.net '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便 '但请保留以上请息 ' '程序特点 '本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义， '支持URL多个参数 ' '使用说明...
asp分页的一个类 在50,000条记录下测试过，速度比ado的那个要快多了 <% '************************************************************************************ '具体用法 Dim strDbPath Dim connstr Dim mp Set mp = New MyPage strDbPath = "fenye/db.mdb" connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" connstr = connstr & Server.MapPath(strDbPath) Set conn = Server.CreateObject("Adodb.Connection...
超级ASP大分页_我的类容我做主 选择自 AppleBBS 的 Blog 关键字 超级ASP大分页_我的类容我做主 出处 <% '=================================================================== 'ShowMorePage ASP版本 'Version HuangJM1.00 'Code by maomao 'Create Date 2004-09-28 'QQ:5144707 'http://blog.csdn.net/maomaoysq 'Write for my lover:HuangJM '本程序可以免费使用、修改，但请保留以上信息 ' 'function '...
本文匆匆已经全面测试，支持ASP+ACCESS以及ASP+SQL，请修改相关部分就可以了。 注意，匆匆谢绝基础问题回答，已经本代码已经很简单，如果还不懂可以参阅本站其他栏目。 <!--#include file="conn.asp"--> <% '以上为包含数据库衔接文件 '--------------------------------------------查询开始数据库 set rs=server.CreateObject("adodb.recordset") rs.open "select * from books where id="&id&" order by id desc",conn,1,1 if e...
微软的解决办法 using System; using System.Data; using System.Data.SqlClient; using System.Drawing; using System.Windows.Forms; public class PagingSample: Form { // Form controls. Button prevBtn = new Button(); Button nextBtn = new Button(); static DataGrid myGrid = new DataGrid(); static Label pageLbl = new Label(); // Paging variables. static int pageSize = 10; // Size of viewed page...
给万博系统的新闻系统增加分页功能,无需修改数据库,只需改变一个文件,就可以了. 如果将后台的Webediter增加一个插入分页符,那就更完美了.我还没加这个. 本例是在后台录入新闻时,在需要分页的位置插入分页符: {＄html_page＄} 就可以了. 代码如下,有详细说明 newsshow.asp <!--#include file="siteinfo.asp"--> <HTML> <HEAD> <TITLE><%=sitename%></TITLE> <META HTTP-EQUIV="Content-Type" C> <link href="images/CSS.css" type=t...
<% '处理接收分页得参数,显示页数 也就默认第一页 'page这个参数就是让变量pagenum去显示第一也得值:0 if Request("page")="" then pageNum=0 '下面就是page接参数 else pageNum=Request("page") if not isnumeric(pageNum) then Call DH.Alert("操作错误！","-1") else pageNum=clng(pageNum) end if end if %> <% '这里就是关键了 把你得内容字段赋给 ConTentStr ConTentStr=Replace((rs("dhsl_Content")),"|||"," |||...
看了这个的一些帖子,学到了很多东西,现在和大家一起分享 flash现在只是一个显示的功能,过程中看了一些别人的东西,觉得分页似乎有很简单的实现方式.基本上都是用xml传送的.显示用 list 组件和 datagrid 都可以,这里我用的是动态文本,因为觉得组件用的太麻烦了.所以用了蠢办法,没办法,找不到更好的~~~下面代码中的 list[..]就是动态文本的名趁，一次显示15条 //显示程序如下: //桢名称 "list" stop(); var logList = new XML...
出了一种理论上最佳的分页方法,本篇我们就来详细说说这种最佳的分页方法。 一：构思。 在设计Web数据库时，如果我们要编历每一条纪录，那么只有采取分页模式才可以使Web数据库尽快，尽好的呈现给终端用户，也不会因为8秒原则而使用户失去浏览该页的兴趣。但是即使采取分页的办法，当出现多纪录的数据库时，也难免会使我们的用户感到翻页时速度太慢。就如同我的上篇文章说的那样，几乎上一片文章的三种分页方法都有一些缺陷。...
代码如下:<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart = 0 else iStart = CInt(iStart) end if if Not IsNumeric(iOffset) or Len(iOffset) = 0 then iOffset = 30 else iOff...
下面这段是基本的分页代码： ＜% sql = "select……………………省略了sql语句 Set rs=Server.Createobject("ADODB.RECORDSET") rs.Open sql, conn, 1, 1 if not rs.eof then pages = 30 定义每页显示的记录数 rs.pageSize = pages 定义每页显示的记录数 allPages = rs.pageCount计算一共能分多少页 page = Request.QueryString("page")通过浏览器传递的页数 if语句属于基本的排错处理 if isEmpty(page) or Cint(page) ＜ 1 then ...
一、适用范围 均速分页法主要适用于文章系统，新闻系统等排序方法固定的ASP+ACCESS应用 二、特点说明 很多用过一些文章系统或是新闻系统的朋友知道，一般的文章系统或是新闻系统，在分类分页时，通常是通过读取数据库中满足条件的排序后数据，然后根据请求页号，通过定位操作，指向某条数据，并且开始读取这条数据后面的若干条数据作为一页。这种分页方法，原理简单，但是存在的问题是每次都需要把数据库中满足条件的排序后数据...
在前面我们已经给大家讲了分页程序,在这里再给大家提供一个,分析一下也许有新的收获. 代码如下:<% '以下程序是我的网站中的编程技术文章系统的部分代码,着重突出分页,因此其他无用代码被清除,您可修改后应用 on error resume next '防止用户随意修改网址造成错误 if request.querystring("page")="" then page=1:else:page=cint(request.querystring("page")) '的到网址中的页数 page=? set link1=server.createobject("ADOD...
<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通过getrows实现数据库记录分页的一段代码 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then iStart = 0 else iStart = CInt(iStart) end if if Not IsNumeric(iOffset) or Len(iOffset) = 0 then iOffset = 30 else iOffset = Cint(iOffset) end if Response.Write "Viewing " & ...
名称: 叶子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 Contact: QQ:311673 MSN:myehe@msn.com GT:mmyehe@gmail.com WebSite: http://www.gxlsystem.com ------------------------------------------------ Licenses: 本程序遵循GPL协议. 协议原文地址:http://www.gxlsystem.com *...