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

最新推荐文章于 2024-09-14 08:54:36 发布

nhconch

最新推荐文章于 2024-09-14 08:54:36 发布

阅读量1.6k

点赞数

分类专栏： ASP语言文章标签： asp vbscript sql server 数据库 sql file

本文链接：https://blog.csdn.net/nhconch/article/details/4093536

版权

ASP语言专栏收录该内容

7 篇文章 0 订阅

订阅专栏

三、演示代码：

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 = Nothing 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 ' 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 %>