当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP分页显示Recordset数据

ASP
分享一段代码show.asp?id=26变成show/?26的形式
多域名一网站时如果返回最原来的域名
[原创]完美解决ASP 不能更新。数据库或对象为只读。
5天学会asp
TSYS中生成静态页时溢出: ''CInt''
对象标记具有无效的 ''MSWC.MyInfo'' ProgID
[原创]随机增加网站点击的一个不错的方法
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
反SPAM新思路—换Z-BLOG的验证码！
七步倒┈→专用asp后门
asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
使用ASP实现网站的“目录树”管理的代码
ShowPage 显示“上一页 下一页”等信息的封装代码
[原创]站长感慨asp编程究竟何去何从
响应对象 错误 ''ASP 0185 : 80020003'' 缺少默认属性
[原创]asp下用实现模板加载的的几种方法总结
[原创]asp获取URL参数的几种方法分析总结
Access数据库中“所有记录中均未找到搜索关键字”的解决方法
ASP程序中输出Excel文件实例一则
ASP应用中如何限制同一表单被多次提交

No. « 86 87 88 89 »

技术文章搜索

关键字

ASP分页显示Recordset数据

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 231 ::
收藏到网摘: n/a

1．建立Recordset对象

注意：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

％>