ASP Recordset 分页显示数据的方法(修正版)

1．建立recordset对象

dim objmyrst
set objmyrst=server.createobject(“adodb.recordset”)
objmyrst.cursorlocation=aduseclientbatch ‘客户端可批量处理
objmyrst.cursortype=adopenstatic'光标类型为静态类型

注意：recordset对象不能用set objmyrst=connection.excute strsql的语句建立，因为其建立的recordset对象为adopenfowardonly不支持记录集分页
2．打开recordset对象

dim strsql
strsql=”select * from ietable”
objmyrst.oepn strsql,activeconnection,,,adcmdtext

3．设置recordset的pagesize属性

objmyrst.pagesize=20

默认的pagesize为10
4．设置recordset的absolutepage属性
以下为引用的内容：

dim intcurrentpage
intcurrentpage=1
objmyrst.absolutepage=intcurrentpage

absolutepage为1到recordset对象的pagecount值
5．显示数据

response.write("<table>")
printfieldname(objmyrst)
for i=1 to objmyrst.pagesize
printfieldvalue(objmyrst)
objmyrst.movenext
if objmyrst.eof then exit for
next
response.write("</table>")

说明：
1. adopenstatic,adusecilentbatch,adcmdtext为adovbs.inc定义的常量，要使用的话要把adovbs.inc拷到当前目录中并包含于在程序中

<！--#include file=”adovbs.inc”-->

2. printfielname,printfieldvalue函数的代码如下：

<%
function printfieldname(objmyrst)
'参数objmyrst是recordset对象
'定义娈数
dim objfld
response.write "<tr bgcolor='#cccccc'>"
for each objfld in objmyrst.fields
response.write "<td>" & objfld.name & "</td>"
next
response.write("</tr>")
end function
function printfieldvalue(objmyrst)
'参数objmyrst是recordset对象
'定义娈数
dim objfld
response.write("<tr >")
for each objfld in objmyrst.fields
'response.write "<td>" & objmyrst.fields(intloop).value & "</td>"
response.write "<td>" & objfld.value & "</td>"
next
response.write("<tr>")
end function
%>