• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

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

asp 搞代码 4年前 (2022-01-03) 19次浏览 已收录 0个评论

最近给别人培训asp 分页,对于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(“

“)
PrintFieldName(objMyRst)
For i=1 To objMyRst.PageSize
PrintFieldValue(objMyRst)
objMyRst.MoveNext
If objMyRst.Eof Then Exit For
Next
Resp

来源gao!%daima.com搞$代*!码网

onse.Write(“

“)

说明:
1. adOpenStatic,adUseCilentBatch,adCmdText为adovbs.inc定义的常量,要使用的话要把adovbs.inc拷到当前目录中并包含于在程序中

代码如下:

2. PrintFielName,PrintFieldValue函数的代码如下:

代码如下:
<%
Function PrintFieldName(objMyRst)
‘参数objMyRst是Recordset对象
‘定义娈数
Dim objFld
Response.Write “


For Each objFld In objMyRst.Fields
Response.Write “

” & objFld.Name & “


Next
Response.Write(“

“)
End Function
Function PrintFieldValue(objMyRst)
‘参数objMyRst是Recordset对象
‘定义娈数
Dim objFld
Response.Write(“

“)
For Each objFld In objMyRst.Fields
‘Response.Write “

” & objMyRst.Fields(intLoop).value & “


Response.Write “

” & objFld.value & “


Next
Response.Write(““)
End Function
%>

以上就是ASP Recordset 分页显示数据的方法(修正版)的详细内容,更多请关注gaodaima搞代码网其它相关文章!


搞代码网(gaodaima.com)提供的所有资源部分来自互联网,如果有侵犯您的版权或其他权益,请说明详细缘由并提供版权或权益证明然后发送到邮箱[email protected],我们会在看到邮件的第一时间内为您处理,或直接联系QQ:872152909。本网站采用BY-NC-SA协议进行授权
转载请注明原文链接:ASP Recordset 分页显示数据的方法(修正版)

喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址