Easp一个简单的分页Demo 适合新手上手

分页使用的小例子，其实v2.1帮助文档已经写得很清楚了，但是没有一个demo，对于新手不知道怎么用。这个例子就是把帮助文档的示例串起来，让新手有一个完整的体验（嘻嘻，我也是个新手）。

　　更多的详细类容还是参考帮助文档:)

XML/HTML代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
head>
<body>
<%
'打开数据库，可以在easp.config.asp中设置
EaspEasp.db.Conn = Easp.db.OpenConn(1,"./data.mdb","")
'设置一页的大小，当然也可以在GetPageRecord中设置
Easp.db.PageSize = 5
'设置一个分页样式，基本都采用easp的默认方式
Easp.db.SetPager "base", "{first}{prev}{liststart}{list}{listend}{next}{last}", Array("listlong:6","listsidelong:3")
'再设置设置一个分页样式，这个样式取名为default,
'分页导航样式HTML模板 "<div class=""newpager"">{first}{prev}{list}{next}{last} 转到{jump}页div>"
'第三个参数，是对分页导航样式配置选项，如first:首页，是指{first}展现形式
Easp.db.SetPager "default", "<div class=""newpager"">{first}{prev}{list}{next}{last} 转到{jump}页div>", Array("first:首页","last:尾页","prev:上一页","next:下一页","list:第*页")
Dim rs
'获取数据信息，0 表示用数组描述方式.
set rs = Easp.db.GetPageRecord("0",Array("user:id,name","","",""))
'将数据信息显示出来
Dim i
For i = 1 To rs.PageSize
If rs.Eof Then Exit For
Easp.WN "ID:"&rs("id")&",name:"&rs("name")
rs.MoveNext()
Next
'将base分页条显示出来
Easp.WN Easp.db.GetPager("base")
'另外一个分页
Easp.WN ""
Easp.WN "再显示，但是按name排序，而且id大于5"
'获取数据信息，0 表示用数组描述方式。p表示页码的URL参数名称,这是为了和上面数据避免重复
set rs = Easp.db.GetPageRecord("0:p",Array("user:id,name","id>5","name asc",""))
'将数据信息显示出来
For i = 1 To rs.PageSize
If rs.Eof Then Exit For
Easp.WN "ID:"&rs("id")&",name:"&rs("name")
rs.MoveNext()
Next
'将default分页条显示出来
Easp.WE Easp.db.GetPager("default")
%>
body>html>

声明：本站所有文章资源内容，如无特殊说明或标注，均为采集网络资源。如若本站内容侵犯了原著者的合法权益，可联系本站删除。

SEO优化杂谈

26步计划快速提升网站排名流量