1
2、查询分页---一般的，不用存储过程
2
3mypage=request.form("currpage")'得到需要显示第几页
4'mypage为空则说明此页是第一次加载
5if mypage="" then
6mypage=1
7end if
8dim myDb
9set myDb=new ConDb
10with myDb
11 .tbName="comEmploy" '表名
12 .pKey="empId" '主键
13 .pgFields="empId,empGz" '显示的字段
14 .pgSize=20 '每页显示的条数
15 .conditions="" '查询的条件
16 .orderBy="empId desc" '排序的条件
17 .currPg=mypage
18end with
19dim rs
20set rs=myDb.pageRs()
21'根据返回的rs写表现代码
22myDb.cRs(rs)
23'在适当的地方放放置分页导航
24<%=myDb.pageNav()%>
25set myDb=nothing
263、查询分页---用存储过程
27
28此处的存储我用的叶子分页类用的存储过程，可在网上查找叶子分页类的相关代码
29
30mypage=request.form("currpage")'得到需要显示第几页
31'mypage为空则说明此页是第一次加载
32if mypage="" then
33ypage=1
34end if
35dim myDb
36set myDb=new ConDb
37with myDb
38 .tbName="comEmploy" '表名
39 .pKey="empId" '主键
40 .pgSize=2 '每页显示的条数
41 .pgFields="empId,empGz" '显示的字段
42 .conditions="" '查询的条件
43 .orderBy="empId desc" '排序的条件
44 .currPg=mypage
45end with
46dim rs
47set rs=myDb.sqlPage()
48'根据返回的rs写表现代码
49'若查询条件是根据form提交，查询条件可保存在cookie中
50myDb.cRs(rs)
51'在适当的地方放放置分页导航
52<%=myDb.pageNav()%>
53set myDb=nothing
544、若你的分页显示没有什么特别的表现形式，还可以直接输入有分页导航的table
55
56tbTil=Array("作者|200","IP地址|150","发布时间|150","具体内容|300")
57'作者是表格的第一个字段的名称
58'200是此单元格的宽度
59mypage=request.QueryString("currpage")'得到需要显示第几页
60'mypage为空则说明此页是第一次加载
61if mypage="" then
62mypage=1
63end if
64dim myDb:set myDb=new dbClass
65with myDb
66 .tbName="guestBook" '表名
67 .pKey="id" '主键
68 .pgFields="mem_Author,mem_PostIP,mem_PostTime,mem_Content" '显示的字段
69 .pgSize=3 '每页显示的条数
70 .conditions="" '查询的条件
71 .orderBy="id desc" '排序的条件
72 .currPg=mypage
73end with
74myDb.showTb(tbTil)
75set myDb=nothing
765、返回总记录数可以用myDb.vRsCount() 返回总页数可以用myDb.vPgCount()
77
786、myDb.prnSql()打印sql语句，在出现错误时利用此检查sql语句
79
80下面是用到的样式代码,可作相应修改
81
82程序代码：
83
84table{
85border-collapse:collapse;
86font-size:12px;
87}
88td{
89border:1px solid #FFCC99;
90border-collapse:collapse;
91height:30px;
92text-align:center;
93}
94#fy{
95/*width:545px;*/
96margin-left:350px;
97}
98#fy span,#fy a{
99display:block;
100float:left;
101height:15px;
102}
103#fy #rpc{
104margin-left:20px;
105line-height:20px;
106}
107#fy a{
108border:1px solid #CCCCFF;
109width:15px;
110text-decoration:none;
111margin-left:5px;
112color:#993300;
113cursor:pointer;
114}
115#fy a.aW{
116width:40px;
117color:#000000;
118border:none;
119line-height:20px;
120}
121#fy a:hover{
122color:#125da7;
123/*border:1px solid #F8b3d0;
124background-color:#F8b3d0;*/
125}
126#fy a#currP{
127color:#125da7;
128border:1px solid #FF0000;
129background-color:#FF0000;
130/*border:1px solid #F8b3d0;
131background-color:#fff5fa;*/
132}
2、查询分页---一般的，不用存储过程2
3
mypage=request.form("currpage")'得到需要显示第几页4
'mypage为空则说明此页是第一次加载5
if mypage="" then6
mypage=17
end if8
dim myDb9
set myDb=new ConDb10
with myDb11
.tbName="comEmploy" '表名12
.pKey="empId" '主键13
.pgFields="empId,empGz" '显示的字段14
.pgSize=20 '每页显示的条数15
.conditions="" '查询的条件16
.orderBy="empId desc" '排序的条件17
.currPg=mypage 18
end with19
dim rs20
set rs=myDb.pageRs() 21
'根据返回的rs写表现代码22
myDb.cRs(rs)23
'在适当的地方放放置分页导航24
<%=myDb.pageNav()%>25
set myDb=nothing26
3、查询分页---用存储过程27
28
此处的存储我用的叶子分页类用的存储过程，可在网上查找叶子分页类的相关代码29
30
mypage=request.form("currpage")'得到需要显示第几页31
'mypage为空则说明此页是第一次加载32
if mypage="" then33
ypage=134
end if35
dim myDb36
set myDb=new ConDb37
with myDb38
.tbName="comEmploy" '表名39
.pKey="empId" '主键40
.pgSize=2 '每页显示的条数41
.pgFields="empId,empGz" '显示的字段42
.conditions="" '查询的条件43
.orderBy="empId desc" '排序的条件44
.currPg=mypage 45
end with46
dim rs47
set rs=myDb.sqlPage() 48
'根据返回的rs写表现代码49
'若查询条件是根据form提交，查询条件可保存在cookie中50
myDb.cRs(rs)51
'在适当的地方放放置分页导航52
<%=myDb.pageNav()%>53
set myDb=nothing54
4、若你的分页显示没有什么特别的表现形式，还可以直接输入有分页导航的table55
56
tbTil=Array("作者|200","IP地址|150","发布时间|150","具体内容|300")57
'作者是表格的第一个字段的名称58
'200是此单元格的宽度59
mypage=request.QueryString("currpage")'得到需要显示第几页60
'mypage为空则说明此页是第一次加载61
if mypage="" then62
mypage=163
end if64
dim myDb:set myDb=new dbClass65
with myDb66
.tbName="guestBook" '表名67
.pKey="id" '主键68
.pgFields="mem_Author,mem_PostIP,mem_PostTime,mem_Content" '显示的字段69
.pgSize=3 '每页显示的条数70
.conditions="" '查询的条件71
.orderBy="id desc" '排序的条件 72
.currPg=mypage 73
end with74
myDb.showTb(tbTil)75
set myDb=nothing76
5、返回总记录数可以用myDb.vRsCount() 返回总页数可以用myDb.vPgCount()77
78
6、myDb.prnSql()打印sql语句，在出现错误时利用此检查sql语句79
80
下面是用到的样式代码,可作相应修改81
82
程序代码：83
84
table{85
border-collapse:collapse;86
font-size:12px;87
}88
td{ 89
border:1px solid #FFCC99;90
border-collapse:collapse;91
height:30px;92
text-align:center;93
}94
#fy{95
/*width:545px;*/96
margin-left:350px;97
}98
#fy span,#fy a{99
display:block;100
float:left;101
height:15px;102
}103
#fy #rpc{104
margin-left:20px;105
line-height:20px;106
}107
#fy a{108
border:1px solid #CCCCFF;109
width:15px;110
text-decoration:none;111
margin-left:5px;112
color:#993300;113
cursor:pointer;114
}115
#fy a.aW{116
width:40px;117
color:#000000;118
border:none;119
line-height:20px;120
}121
#fy a:hover{122
color:#125da7;123
/*border:1px solid #F8b3d0;124
background-color:#F8b3d0;*/125
}126
#fy a#currP{127
color:#125da7;128
border:1px solid #FF0000;129
background-color:#FF0000;130
/*border:1px solid #F8b3d0;131
background-color:#fff5fa;*/132
}
