ASP高级类kktPage——将ASP查询分页封装起来（1）

0、前言：

这是04年编写的ASP类，实现了对查询分页、数据列表的封装，它与ASP模板类kktTemplate、数据库类clsDB是同一时期的作品，因此它需要数据库类以完成数据获取，支持模板类以完成内容的生成和输出。kktPage类集成了模板类和数据库类集成度很高，这主要源于作者在Win32程序编写方面的习惯，在当年很多人还诟病ASP的执行效率而裹步不前时，这种封装方式显得相当另类，也惹来不少非议，不知道在.Net流行的今天大家对它是什么看法。

ASP模板类kktTemplate请参阅http://blog.csdn.net/nhconch/archive/2004/07/10/38683.aspx

ASP数据库类请参阅http://blog.csdn.net/nhconch/archive/2004/07/16/42869.aspx

ASP变量名－值变换请参阅：http://blog.csdn.net/nhconch/archive/2004/07/07/36104.aspx

<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

 

一、功能：

查询分页类有kktPage和kktPageEx，kktPageEx仅比kktPage多带了一个模板kktTemplate，其他并无差异，以下一并说明。

kktPage/kktPageEx目标就是完成的数据的分页列表显示，通过模板类和数据库类的集成，以最少的代码实现需要的功能，例如通过执行以下程序段：

Dim Page Set Page = New kktPageEx Page.SQL.SQLCommand = "select * from Orders" Page.PageInfo.MaxList = 8 if Request.Form("page") <> "" then Page.PageInfo.Page = CInt(Request.Form("page")) page.PageInfo.HtmlFormat = "第{FirstItem}-{LastItem}条信息，共{ItemsCount}条信息，第{Page}/{PageCount}页，当前页面显示{ListCount}条信息，设定最大显示条数为：{MaxList}.<br>" Page.Template.Setup "pagetest.tpl", "TplHandle", "OrderList", "EmptyInfo" Page.Template.Columns.Add "OrderID", "OrderID", "ID", 0, "" Page.Template.Columns.Add "运输商", "ShipName", "Title", 20, "" Page.Template.Columns.Add "下单日期", "OrderDate", "DateTime", 0, "DateValue" Page.Process Page.Display Set Page = Nothing  

并结合模板：

 

<form name="Form" method="post" action="PageExTest.asp">

<table width="400" border="1" bordercolor="#000000">

  <tr><td><div align="center">kktPage类测试</div></td></tr>

  <tr><td>我的订单</td> </tr>

<script type="text/javascript"> </script> <script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>

<!-- BEGIN OrderList -->

  <tr><td><a href="viewdetail.asp?id={ID}">{Title} [{DateTime}]</a></td></tr>

<!-- END OrderList -->

<!-- BEGIN EmptyInfo -->

  <tr><td>Sorry，没有查询到数据。</td></tr>

<!-- END EmptyInfo -->

</table>

{PageInfo} ， {Buttons}  {PageList}

</form>

便能得到以下结果：

 

kktPage类测试

我的订单

Toms Spezialitäten [1996-7-5]

Victuailles en stock [1996-7-8]

Ernst Handel [1996-7-17]

Ottilies Käseladen [1996-7-19]

Blondel père et fils [1996-7-25]

Frankenversand [1996-7-29]

White Clover Markets [1996-7-31]

Wartian Herkku [1996-8-1]

第1-8条信息，共830条信息，第1/104页，当前页面显示8条信息，设定最大显示条数为：8.
， [首页] [上页] [下页] [未页]  1  2  3  4  5  …

 

二、实现代码：

kktPage/kktPageEx类被分成三个文件：

kktPageInc——分页查询对象支持模块，kktPage/kktPageEx所依赖的控件库；

kktPage——查询分页基础类，不带模板功能

kktPageEx——带模板的查询分页类

 

 

1、kktpageinc.asp

<%%> <mce:script runat=server language=jscript><!-- /*--------------------------------------------------------------*/ | CLASS NAME: kktPageInc 分页查询对象支持模块 | | DESIGN BY : 彭国辉 | | DATE: 2004-03-12 | | SITE: http://blog.csdn.net/nhconch | | EMAIL: kacarton@sohu.com | /*______________________________________________________________*/ /* < script runat=server language=vbscript > function ToHtml(FmtStr, Values) dim RegEx, Matches, Result, i Set RegEx = new RegExp RegEx.Pattern = "/{(/w+)/}" RegEx.IgnoreCase = true RegEx.Global = true Set Matches = RegEx.Execute(FmtStr) Result = FmtStr i = 0 For Each Match In Matches Result = Replace(Result, Match.Value, Values(i)) 'VBScript的数组与JScript数组不一致 i = i + 1 Next set Matches = nothing set RegEx = nothing ToHtml = Result End Function < /script > */ //将FmtStr中特定内容以实际值替代，主要用于各对象中输出HTML内容 // FmtStr：待替代内容用{var_name}形式标记 // Obj：调用的对象，替代内容将从此对象中取得 function ToHtml(FmtStr, Obj) { var re = //{/w+/}/ig; var matches = FmtStr.match(re); var result = FmtStr; for (var i=0; i<matches.length; i++) { re.compile(matches[i], "gi"); var value = eval("Obj."+matches[i].substring(1, matches[i].length-1)); if (value==undefined) value=""; //{var_name}所代表的值不存在时，用空值替代 result = result.replace(re, value); } return result; } //取子项功能，各对象共用函数 function GetSubItem(Index) { return this[Index]; } Begin ImageList /***********************************************************