《asp基础入门篇(DOC格式)》第21章


所有的 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 存在的
小说推荐
返回首页返回目录