ASP分页函数

Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retva

const MaxPerPage=18 dim page if not request("page")="" then Page=cint(request("page")) else Page=1

Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval

2006-4-22 ASP VBScript 分页函数 by Stabx, 2006-04-22 2006-4-22 ASP VBScript 分页函数 by Stabx, 20

在asp代码中分页是有点麻烦的事情，个人在在代码编写过程中把分页代码写成了两个函数，虽然在功能上不是很完善，但对于一般的应用应该是满足的了。 <% '分页函数分为两个函数 'Calc

有时候，大家是不是因为写一些重复的代码而感到烦恼呢？由于在做ASP程序时，很多时候都要用到分页，重复作分页程序错误多不说了，而且影响到作程序的积极性，故写一分页函数，方便大家调用。如下：

作用: 为了通用性考虑, 本函数主要功能为分页导航, 定义数据库连接和调用数据在调用页操作. 1.1 函数 fPageCount 内容 1.2 包含文件 abbr.asp, 非必须 2.1 使

标题: ASP VBScript 分页函数 by Stabx, 最终版 2006-5-22 正文: QUOTE: ASP VBScript 分页函数 by Stabx, 最终版 2006

2006-4-22 ASP VBScript 分页函数 by Stabx, 2006-04-22 作用: 为了通用性考虑, 本函数主要功能为分页导航, 定义数据库连接和调用数据在调用页操作.

有时候，大家是不是因为写一些重复的代码而感到烦恼呢？由于在做ASP程序时，很多时候都要用到分页，重复作分页程序错误多不说了，而且影响到作程序的积极性，故写一分页函数，方便大家调用。如下：