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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了ASP Recordset 分页显示数据的方法(修正版)，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1723字，纯文字阅读大概需要3分钟。

内容图文

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 
%> 
 
            
            


           
                
                                                

内容总结

以上是互联网集市为您收集整理的ASP Recordset 分页显示数据的方法(修正版)全部内容，希望文章能够帮你解决ASP Recordset 分页显示数据的方法(修正版)所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端