按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
所有的 Recordset 对象都支持 Move 方法，如果 NumRecords 参数大于零，当前记录位置向末尾的方向移动；如果其小于零，则当前记录位置向开头的方向移动；如果一个空的 Recordset 对象调用 Move 方法，将会产生一个错误。
MoveFirst 方法：将当前记录位置移至第一笔记录。
MoveLast 方法：将当前记录位置移至最后一笔记录。
MoveNext 方法：将当前记录位置移至下一笔记录。 MovePrevious 方法：将当前记录位置移至上一笔记录。
Move ＇n＇ 方法：移动指标到第 n 笔记录， n 由 0 算起。
三、 AbsolutePage 属性
AbsolutePage 属性设定当前记录的位置是位于哪一页的页数编号；使用 PageSize 属性将 Recordset 对象分割为逻辑上的页数，每一页的记录数为 PageSize（ 除了最后一页可能会有少于 PageSize 的记录数 ）。这里必须注意并不是所有的数据提供者都支持此项属性，因此使用时要小心。
与 AbsolutePosition 属性相同， AbsolutePage 属性是以 1 为起始的，若当前记录为 Recordset 的第一行记录， AbsolutePage 为 1。可以设定 AbsolutePage 属性，以移动到一个指定页的第一行记录位置。
四、 AbsolutePosition 属性
若您需要确定目前指标在 RecordSet 中的位置，您可以用 AbsolutePosition 属性。
AbsolutePosition 属性的数值为目前指标相对於第一笔的位置，由 1 算起，即第一笔的 AbsolutePosition 为 1。
注意 ； 在存取 RecordSet 时，无法保证 RecordSet 每次都以同样的顺序出现。
若要启用 AbsolutePosition，必须先设定为使用用户端 cursor（ 指针 ）， asp 码如下：
rs2。CursorLocation = 3
五、 PageCount 属性
使用 PageCount 属性，决定 Recordset 对象包括多少〃页〃的数据。这里的〃页〃是数据记录的集合，大小等于 PageSize 属性的设定，即使最后一页的记录数比 PageSize 的值少，最后一页也算是 PageCount 的一页。必须注意也并不是所有的数据提供者都支持此项属性。
六、 PageSize 属性
PageSize 属性是决定 ADO 存取数据库时如何分页显示的关键，使用它就可以决定多少记录组成一个逻辑上的〃一页〃。设定并建立一个页的大小，从而允许使用 AbsolutePage 属性移到其它逻辑页的第一条记录。 PageSize 属性能随时被设定。
七、 RecordCount 属性
这也是一个非常常用和重要的属性，我们常用 RecordCount 属性来找出一个 Recordset 对象包括多少条记录。如： 《 ％ totle=RS。RecordCount ％》
在了解了 Recordset 对象的以上属性和方法后，我们来考虑一下，如何运用它们来达到我们分页显示的目的。首先，我们可以为 PageSize 属性设置一个值，从而指定从记录组中取出的构成一个页的行数；然后通过 RecordCount 属性来确定记录的总数；再用记录总数除以 PageSize 就可得到所显示的页面总数；最后通过 AbsolutePage 属性就能完成对指定页的访问。好象很并不复杂呀，下面让我们来看看程序该如何实现呢？
我们建立这样一个简单的 BBS 应用程序，它的数据库中分别有以下五个字段：〃ID〃，每个帖子的自动编号；〃subject〃，每个帖子的主题；〃name〃，加帖用户的姓名； 〃email〃，用户的电子邮件地址；〃postdate〃，加帖的时间。数据库的 DSN 为〃bbs〃。我们将显示帖子分页的所有步骤放在一个名为〃ShowList（）〃的过程中，方便调用。程序如下：
'…………BBS 显示帖子分页…………
《 ％ Sub ShowList（） ％》
《 ％
PgSz=20 '设定开关，指定每一页所显示的帖子数目，默认为20帖一页
Set Conn = Server。CreateObject（〃ADODB。Connection〃）
Set RS = Server。CreateObject（〃ADODB。RecordSet〃）
sql = 〃SELECT * FROM message order by ID DESC〃
'查询所有帖子，并按帖子的ID倒序排列
Conn。Open 〃bbs〃
RS。open sql；Conn；1；1
If RS。RecordCount=0 then
response。write 〃《 P》《 center》对不起，数据库中没有相关信息！《 /center》《 /P》〃
else
RS。PageSize = Cint（PgSz） '设定PageSize属性的值
Total=INT（RS。recordcount / PgSz * …1）*…1 '计算可显示页面的总数
PageNo=Request（〃pageno〃）
if PageNo=〃〃 Then
PageNo = 1
else
PageNo=PageNo＋1
PageNo=PageNo…1
end if
ScrollAction = Request（〃ScrollAction〃）
if ScrollAction = 〃 上一页 〃 Then
PageNo=PageNo…1
end if
if ScrollAction = 〃 下一页 〃 Then
PageNo=PageNo＋1
end if
if PageNo 《 1 Then
PageNo = 1
end if
n=1
RS。AbsolutePage = PageNo
Response。Write 〃《 CENTER》〃
position=RS。PageSize*PageNo
pagebegin=position…RS。PageSize＋1
if position 《 RS。RecordCount then
pagend=position
else
pagend= RS。RecordCount
end if
Response。Write 〃《 P》《 font color='Navy'》《 B》数据库查询结果：《 /B》〃
Response。Write 〃（共有〃&RS。RecordCount &〃条符合条件的信息；显示〃&pagebegin&〃…〃&pagend&〃）《 /font》《 /p》〃
Response。Write 〃《 TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF》〃
Response。Write 〃《 TR BGCOLOR=#5FB5E2》《 FONT SIZE=2》《 TD》《 B》主题《 /B》《 /TD》《 TD》《 B》用户《 /B》《 /TD》《 TD》《 B》Email《 /B》《 /TD》《 TD》《 B》发布日期《 /B》《 /TD》《 /FONT》《 TR BGCOLOR=#FFFFFF》〃
Do while not （RS is nothing）
RowCount = RS。PageSize
Do While Not RS。EOF and rowcount 》0
If n=1 then
Response。Write 〃《 TR BGCOLOR=#FFFFFF》〃
ELSE
Response。Write 〃《 TR BGCOLOR=#EEEEEE》〃
End If
n=1…n ％》
《 TD》《 span style=〃font…size：9pt〃》《 A href='view。asp？key=《 ％ =RS（〃ID〃）％》'》《 ％ =RS（〃subject〃）％》《 /A》《 /span》《 /td》
《 TD》《 span style=〃font…size：9pt〃》《 ％ =RS（〃name〃）％》《 /A》《 /span》《 /td》
《 TD》《 span style=〃font…size：9pt〃》《 a href=〃mailto：《 ％ =RS（〃email〃）％》〃》《 ％ =RS（〃email〃）％》《 /a》《 /span》《 /TD》
《 TD》《 span style=〃font…size：9pt〃》《 ％ =RS（〃postdate〃）％》《 /span》《 /td》
《 /TR》
《 ％
RowCount = RowCount 1
RS。MoveNext
Loop
set RS = RS。NextRecordSet
Loop
Conn。Close
set rs = nothing
set Conn = nothing
％》
《 /TABLE》
《 FORM METHOD=GET ACTION=〃list。asp〃》
《 INPUT TYPE=〃HIDDEN〃 NAME=〃pageno〃 VALUE=〃《 ％ =PageNo ％》〃》
《 ％
if PageNo 》1 Then
response。write 〃《 INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 上一页 '》〃
end if
if RowCount = 0 and PageNo 《 》Total then
response。write 〃《 INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 下一页 '》〃
end if
response。write 〃《 /FORM》〃
End if
％》
《 ％ End Sub ％》
相信大家都应该能完全读懂上面的程序，因此作者就不在此详细解释了。值得注意的是在这段程序中运用了一个小技巧
《 INPUT TYPE=〃HIDDEN〃 NAME=〃pageno〃 VALUE=〃《 ％ =PageNo ％》〃》
，这是用来在每次调用该 ASP 文件时传递数据的〃暗道〃，由于我们需要在每次调用程序时传递代表当前页码的参数，可能大家会想到使用 session，但是从节省系统资源和通用性来讲，用这样一个隐藏的 form 来传递数据将会达到更好的效果。
好了，又到了说再见的时候了，如果你没完全看懂本篇中所列的程序，那你必须加把油，看一看 VbScript 的语法；如果你还有某些疑问，可以〃妹儿〃我，我将尽力解答；如果你有什么更好的建议也千万要来信告诉我哦 ：）
ASP基础教程：堵住ASP漏洞
无论你相不相信，通过 asp，可能可以很方便地入侵 web server、窃取服务器上的文件、捕获 web 数据库等系统的用户口令，甚至恶意删除服务器上的的文件，直至造成系统损坏，这些都决非耸人听闻，而且都确确实实发生过，本文将向你一一揭示这些 asp 存在的