编程
您现在的位置:首页 >> 编程

ASP编程入门教程--分页

分页用到Recordset方法中的PageSize(指定一页所包含的记录数)、Pagecount(指定页数)、AbsolutePage(指定当前记录所在的页)等属性。下面是代码:

<%

Dim lj

lj="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ts.mdb")

Set bb=Server.CreateObject("ADODB.Connection") 

bb.Open lj 

%>

<%

set rs= Server.CreateObject("ADODB.Recordset") 

rs.Open "Select * from tsxx ",bb,1,1

%>

<%

rs.PageSize=2 '指定一页所包含的记录数

Pagecount=rs.Pagecount '指定页数

Page=int(request("Page"))

If Page<=0 Then Page=1

If request("Page")="" Then Page=1

rs.AbsolutePage=Page '指定当前记录所在的页

%>

<html>

<head>

<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>分页</title>

</head>

<body>

<%

If rs.EOF and rs.BOF then

response.write ("暂时还没有记录")

else

for i=1 to rs.PageSize 

response.write ("编号:" & rs("ID"))

response.write ("<br>名称:" & rs("MC"))

response.write ("<br>价格:" & rs("JG"))

response.write ("<br>作者:" & rs("ZZ"))

response.write ("<hr>")

rs.MoveNext

next

End If

%>

<p>

<!--分页部分-->

<%for i=1 to Pagecount%>

<a href="index.asp?page=<%=i%>"><%=i%></a> 

<%Next%>

</body>

</html>

例子显示分页为1、2、3……,如果显示第一页、上一页、下一页、最后页这样的格式,只需要对分页部分代码修改即可。代码如下:

<!--分页部分-->

<%If page=1 and Not page=Pagecount then %>

第一页|上一页

<a href="index.asp?page=<%=page+1%>">下一页</a> |

<a href="index.asp?page=<%=Pagecount%>">最后页</a>

<%ElseIf page<>1 and Not page=Pagecount then %>

<a href="index.asp?page=1">第一页</a> |

<a href="index.asp?page=<%=page-1%>">上一页</a> |

<a href="index.asp?page=<%=page+1%>">下一页</a> |

<a href="index.asp?page=<%=Pagecount%>">最后页</a>

<%ElseIf page=Pagecount then %>

<a href="index.asp?page=1">第一页</a> |

<a href="index.asp?page=<%=page-1%>">上一页</a> |

下一页|最后页

<%End If%>