ASP讲座之八,ASP讲座

ASP与数据库（三）

在上两讲中，我们讲解了ASP中数据库的基本使用，今天将介绍几种非常实用的技术。

一、分页技术

前面我们介绍了如何检索数据并输出到浏览器端，对少量数据而言，那样简单的输出处理是完全可以的，但是若数据量很大，有几百条甚至上千条，一次将如此多的数据全部输出到客户端是不现实的，一来页面从上到下拉得很长，二来客户端等待的时间过长，三来服务器的负载过大。所以采取分页输出非常必要。

要求：输出Northwind.mdb“产品”表中的数据至浏览器，每页显示10条。

例wuf60.asp，这段代码还是有点难度的，要多看多体会，AdoAccess.asp在上讲中提到过。

注：该例程吸收了某些书籍中好的部分，特此声明。

<%@ LANGUAGE="VBSCRIPT" %>

Dim RecordPerPage, absPageNum, TotalPages, absRecordNum, rsTest, StrSQL

'absPageNum - 当前页为第几页

'TotalPages - 总的页数

'absRecordNum - 当前页中某一条记录的序号, 如 1-10

RecordPerPage = 10 '每页显示的记录数

' 取得所输出数据的当前页码

If Request.ServerVariables("CONTENT_LENGTH") = 0 Then

'若没收到表单递交的数据(如首次加载该页时), 则从第 1 页开始显示

absPageNum = 1

Else

'取出按按钮时的页码

absPageNum = CInt(Request.Form("PressPageNum"))

'如按上一页则页码 -1, 按下一页, 则页码 +1

If Request.Form("Submit") = "上一页" Then

absPageNum = absPageNum - 1

ElseIf Request.Form("Submit") = "下一页" Then

absPageNum = absPageNum + 1

End If

' 创建记录集对象

Set rsTest = Server.CreateObject("ADODB.Recordset")

rsTest.CursorLocation = adUseClient '这样设置可减轻数据库负载

rsTest.CursorType = adOpenStatic '游标需要前后移动，不能设为仅向前

rsTest.CacheSize = RecordPerPage '设置这个选项会提高性能

StrSQL = "SELECT * FROM 产品 Order By 产品ID"

rsTest.Open StrSQL, Cnn, , , adCmdText

rsTest.PageSize = RecordPerPage '设置每一页的记录数

If Not(rsTest.EOF) Then

rsTest.AbsolutePage = absPageNum

End If

TotalPages = rsTest.PageCount

<% ' 下面部分输出当前页的数据至浏览器 %>

<tr>

</tr>

<% ' 用循环输出当前页的 10 条数据

For absRecordNum = 1 to rsTest.PageSize

<tr>

</tr>

rsTest.MoveNext

If rsTest.EOF Then

Exit For ' 如果已到记录尾, 退出 - 如最后一页数据不满页时

End If

rsTest.Close : Cnn.Close

Set rsTest = Nothing : Set Cnn = Nothing

</table>

<% ' 下面部分是两个按钮 "上一页" "下一页" %>

<Form Action = "<%= Request.ServerVariables("SCRIPT_NAME") %>" Method="Post">

If absPageNum > 1 Then '如果当前不是第一页, 则显示上一页按钮 %>

<% End If

If absPageNum <> TotalPages Then '如果当前页不是最后一页, 则显示下一页按钮%>

<% End If %>

</Form>

<P><Center> [ 第 <font color="#CC0033"><%= absPageNum %></font> 页,

共 <font color="#CC0033"><%= TotalPages %></font> 页 ] </Center></P>

</BODY></HTML>

分析：

1．Recordset对象一些有用的属性：

l rsTest.CursorLocation = adUseClient：也可以不要这句，但这样做可以减轻数据库负载；

l rsTest.CacheSize = RecordPerPage：CacheSize属性用来决定每次用户端从数据库服务器取得的数据多少；

l rsTest.PageSize：PageSize属性用来设置每一页记录数的多少；

l rsTest.AbsolutePage：AbsolutePage属性设置当前数据在Recordset对象中的绝对页数；

l rsTest.PageCount：PageCount属性用来获取记录集的总页数。

2．本例Form表单中使用了一个隐含字段PressPageNum 用来传递点击按钮时为第几页。

二、错误处理

来源：互联网
阅读：371 次
日期：2004-12-9

【双击滚屏】【收藏】【打印】【关闭】【字体：大中小】

上一篇：ASP讲座之七
下一篇：ASP讲座之九