按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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 存在的漏洞，并提出一些防范意见。
上一篇中给大家着重谈了〃ADO 存取数据库时如何分页显示〃的问题，有位朋友来信给我指出我在计算页面总数时忽略了 Recordset 对象的一个重要参数〃PageCount〃，它能在给 Pagesize 赋值后自动得出页面的总数，而无须用〃INT（RS。recordcount/PgSz*…1）*…1〃这样繁琐的公式。我要感谢这位朋友热心地给我指出程序中的不足，由于这个程序是我在很久以前写的，因为在分页显示的时候记录的总数不一定能整除页面显示记录的数目，而当时我又不能肯定 PageCount 是否能正确得出页面的数目，所以偷懒写了这个公式：），说实话我到现在还都没试过用 pagecount，有兴趣的朋友千万要试一下哦，可别学我的懒惰呀。
最近我在 chinaasp 的 bbs 上讨论问题时发现很多朋友对于 asp 的一些安全性问题不甚了解，甚至不知道如何解决最常见的 asp：：DATA 显示源代码的问题，因此我觉得非常有必要在这里给广大朋友们重点谈一谈这个问题，在征得 chinaasp 飞鸟的同意下，我将他曾经写过的一点关于 asp 漏洞的介绍加上我自己的一些实践经验拿出来给大家详细分析一下这个对于 webmaster 来说至关重要的 asp 的安全性问题。
当去年 ：：DATA 的漏洞被发现并公布的第二天，我曾经检测了当时国内大部分运用 asp 的站点，其中百分之九十九都存在以上可以看见源代码的问题，当日我甚至在微软的站点上抓下了 search。asp 这个文件的源代码。可能你会觉得看到源代码并没有什么大碍，如果作为 webmaster 的你这么想就大错特错了。譬如，如果 asp 程序员将站点的登陆密码直接写在 asp 里，那么一旦源码被发现，他人就可以很容易的进入本不该被看到的页面，我就曾经利用这个方法免费成为了一个收费网站的成员（大家可别揭发我哦！），而且很多数据库的连接用户名和密码也都是直接写在 asp 里，一旦被发现，如果你的数据库允许远程访问而且没有设防的话就相当危险了。在一些用 asp 开发的 bbs 程序中，往往使用的是 access mdb 库，如果 mdb 库存放的路径被获知，数据库就很有可能被他人下载，加之如果数据库里含有的密码不加密，那就非常危险了，获取密码的人如果有意进行恶意破坏，他只需要以 admin 身份登陆删除所有 bbs 里的帖子，就够你呛的了。下面列出了目前已经发现的一些漏洞，希望大家提高警惕一、经过实验我们发现， win95＋pws 上运行 ASP 程序，只须简单地在浏览器地址栏的 asp 文件名后多加一个小数点 ASP 程序就会被下载下来。 IIS3 也存在同样的问题，如果你目前还在使用 IIS3 一定要测试