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

来源：互联网发布：阿里云建网站流程编辑：程序博客网时间：2024/05/22 15:10

三、演示代码：

1、模板：pagetest.tpl

<html><title>kktPage类-演示</title><body><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> <tr><td><a href="viewdetail.asp?id={ID}" mce_href="viewdetail.asp?id={ID}">{Title} [{DateTime}]</a></td></tr> <tr><td>Sorry，没有查询到数据。</td></tr></table>{PageInfo} ， {Buttons} {PageList}</form></body></html>

2、PageExTest.asp

使用MS Sql server2000数据库Northwind的Orders表，请修改数据库类的连接为Setup "sa", "yourpassword", "Northwind", "(local)"，见：http://blog.csdn.net/nhconch/archive/2004/07/16/42869.aspx

<%@ Language=VBScript %><%' Dim Page, Sql' Set Page = New kktPage' Set sql = New clsDB' sql.Connect' page.SQL.SQLCommand = "select * from Orders"' page.SQL.AssignTo(sql)' ' page.PageInfo.MaxList = 5' page.PageInfo.Page = 3' page.PageInfo.HtmlFormat = "第{FirstItem}-{LastItem}条信息，共{ItemsCount}条信息，第{Page}/{PageCount}页，当前页面显示{ListCount}条信息，设定最大显示条数为：{MaxList}.<br>"' page.Process' Response.Write page.PageInfo.ToHtml() & page.Buttons.ToHtml()' & page.pageInfo.GEtpagelistbox()' Set page = Nothing' sql.Close()' Set sql = NothingDim PageSet Page = New kktPageExPage.SQL.SQLCommand = "select * from Orders"Page.PageInfo.MaxList = 8if 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.ProcessPage.DisplaySet Page = Nothing' Dim btns' Set btns = CreateColumns()' btns.Add "OrderID", "OrderID", "ID", 0, ""' btns.add "运输商", "ShipName", "Title", 20, ""' btns.add "下单日期", "OrderDate", "DateTime", 0, "DateValue"' for i=0 to btns.Count-1' Response.Write btns.Items(i)+ "<BR>"' next' btns.remove(1)' btns.remove(0)' btns.clear' for i=0 to btns.Count-1' Response.Write btns.Items(i)+ "<BR>"' next' Set btns = nothing%>

3、结果样式：

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.
， [首页] [上页] [下页] [未页]

连接：

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

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

三、演示代码：

1、模板：pagetest.tpl

2、PageExTest.asp

3、结果样式：

连接：

相关知识：