61,112
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
tsstudio 2003-08-23
- 打赏
- 举报
前提是那是动态页面。不是普通的网页。内容直接从数据库中调出，并自动分页
belovedgates 2003-08-23
- 打赏
- 举报
利用RecordSet对象的几个特殊属性把数据库记录划分成不同的页面，并且每次只显示指定的页面，由此提高了数据库服务器的响应速度。
1．首先建立数据库连接，打开数据库表，并将查询结果保存到一个RecordSet对象中。
<% Set DBConnection = Server.CreateObject(“ADODB.Connection”) %>
<% DBConnection.Open “dsn=webmine;uid=zhangcm; pwd=admin” %>
<% Set TheRecordSet = Server.CreateObject(“ADODB.RecordSet”) %>
<% TheRecordSet. Open “Select * from Papers ” & WhereClause & “ Order By ID”, DBConnection, adOpenStatic %>
注意：这里必须使用adOpenStatic或adOpen-Dynamic游标类型，而不能使用前向游标，否则会使RecordCount等属性或方法返回的值不正确。
另外，SQL语句中必须使用Order By子句指定一个排序字段，以便保持各页记录的相对位置不变，否则每页显示的内容会变得杂乱无章。
2．然后利用RecordSet对象的PageSize属性，设置每页的记录数：
<% TheRecordSet. PageSize = 25 %>
3．使用RecordSet对象的AbsolutePage属性将数据库记录指针定位到所指定的数据页：
<% TheRecordSet. AbsolutePage = CInt(CurrentPage) %>
4．用AbsolutePage属性定位到起始数据记录后，再用一个循环逐个显示该页内的记录，记录数应小于等于TheRecordSet. PageSize。
<% i = 0 %>
<% While not TheRecordSet. EOF and (I < TheRecordSet. PageSize) %>
<% If I Mod 2 = 1 Then%>
<!-- 记录采用不同的颜色间隔 -->
<%TheBgColor = “#CCFFFF” %>
<% Else %>
<%TheBgColor = “#FFFFCC” %>
<% End If %>
<td width=“5%” bgcolor=<% =TheBgColor %>> <% =TheRecordSet(“ID”) %></td>
．．．．．．
<% I = I + 1 %>
<% TheRecordSet. MoveNext%>
<% Wend %>
5．关闭数据库表及其连接：
<% TheRecordSet.Close %>
<% DBConnection.Close %>
6．为便于用户了解查询结果有多少页，提供给用户显示指定页的方法，可以结合RecordSet对象的PageCount属性进行设置：
<font color=“#0000FF”> 请选择页码：</font>
<% For i = 1 to TheRecordSet. PageCount %>
<a href=“/retrieve. asp?”CurrentPage=<% =i %></a>
<% Next %>
1．首先建立数据库连接，打开数据库表，并将查询结果保存到一个RecordSet对象中。
<% Set DBConnection = Server.CreateObject(“ADODB.Connection”) %>
<% DBConnection.Open “dsn=webmine;uid=zhangcm; pwd=admin” %>
<% Set TheRecordSet = Server.CreateObject(“ADODB.RecordSet”) %>
<% TheRecordSet. Open “Select * from Papers ” & WhereClause & “ Order By ID”, DBConnection, adOpenStatic %>
注意：这里必须使用adOpenStatic或adOpen-Dynamic游标类型，而不能使用前向游标，否则会使RecordCount等属性或方法返回的值不正确。
另外，SQL语句中必须使用Order By子句指定一个排序字段，以便保持各页记录的相对位置不变，否则每页显示的内容会变得杂乱无章。
2．然后利用RecordSet对象的PageSize属性，设置每页的记录数：
<% TheRecordSet. PageSize = 25 %>
3．使用RecordSet对象的AbsolutePage属性将数据库记录指针定位到所指定的数据页：
<% TheRecordSet. AbsolutePage = CInt(CurrentPage) %>
4．用AbsolutePage属性定位到起始数据记录后，再用一个循环逐个显示该页内的记录，记录数应小于等于TheRecordSet. PageSize。
<% i = 0 %>
<% While not TheRecordSet. EOF and (I < TheRecordSet. PageSize) %>
<% If I Mod 2 = 1 Then%>
<!-- 记录采用不同的颜色间隔 -->
<%TheBgColor = “#CCFFFF” %>
<% Else %>
<%TheBgColor = “#FFFFCC” %>
<% End If %>
<td width=“5%” bgcolor=<% =TheBgColor %>> <% =TheRecordSet(“ID”) %></td>
．．．．．．
<% I = I + 1 %>
<% TheRecordSet. MoveNext%>
<% Wend %>
5．关闭数据库表及其连接：
<% TheRecordSet.Close %>
<% DBConnection.Close %>
6．为便于用户了解查询结果有多少页，提供给用户显示指定页的方法，可以结合RecordSet对象的PageCount属性进行设置：
<font color=“#0000FF”> 请选择页码：</font>
<% For i = 1 to TheRecordSet. PageCount %>
<a href=“/retrieve. asp?”CurrentPage=<% =i %></a>
<% Next %>
zou_cz 2003-08-21
- 打赏
- 举报
用ado分页技术，看看资料就有列子
mayafree 2003-08-19
- 打赏
- 举报
服气了，每页都有上一页下一页，而且位置不变，不就像是没变吗？内容是从数据库查出来的。
