464  
   0
如何分页显示数据库查询结果?
作者:系统管理员于 2016年08月23日 发布在分类 / 编程 / 数据库 下,并于 2016年08月23日 编辑
response pagenumber response.write" arecordset 显示 指定 记录 页号 一页 每页

<%
if Request.QueryString("PageNumber").count > 0 then

' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据.

PageNumber = Request.QueryString("PageNumber")(1)
else
PageNumber = 1

' 如没指定页号,缺省为1.
end if

RecordNumberPerPage = 10

' 每页显示10条记录.

 set ARecordSet = Server.CreateObject("ADODB.RecordSet")
ARecordSet.open "select * from contact1",AConnection,1
' 执行查询,注意Open语句中指定的第三个参数.

ARecordSet.PageSize = RecordNumberPerPage

' 指定每页记录条数.
ARecordSet.AbsolutePage = PageNumber

' 指定当前页号.

Response.Write "<br>
每页有"&ARecordSet.PageSize&"条记录"
Response.Write "<br>
共有"&ARecordSet.PageCount&""
Response.Write "<br>
这是第"&PageNumber&""

Response.Write "<Table border=1>"
'
以表格形式显示查询结果.

Response.Write "<tr>"
For FieldNo = 0 to ARecordSet.Fields.count - 1
Response.Write "<td>"&ARecordSet( FieldNo ).Name&"</td>"
Next
Response.Write "</tr>"
'
显示字段名.

RecordCounter = 0
Do while not ARecordSet.eof
RecordCounter = RecordCounter + 1
'
显示查询.

if RecordCounter > RecordNumberPerPage then

' 如果要显示的记录数大于每页记录数目,则停止显示.
Exit do
end if

 Response.Write "<tr>"
For FieldNo = 0 to ARecordSet.Fields.count - 1
Response.Write "<td>"&ARecordSet( FieldNo )&"</td>"
Next
Response.Write "</tr>"

' 显示一条记录.

 ARecordSet.MoveNext
Loop
'
转向下一条记录.

Response.Write "</Table>"

if PageNumber > 1 then

' 如果不是第一页,则提示上一页.
Response.Write "<p><A href = chunfeng.asp?PageNumber="&(PageNumber-1)&">[
上一页]</a>"

[1] [2]  下一页


 知识评论当前评论数0

 推荐知识


 访问权限

创建人 系统管理员
文档编辑权限 来自分类
文档阅读权限 来自分类
分类阅读权限 所有人
分类编辑权限 系统管理员 : 人员      789 : 人员     
分类审核权限 无需审核
分类预览权限 无限制
分类下载权限 无限制
 历史版本

修改日期 修改人 备注
2016-08-23 12:31:25[当前版本] 系统管理员 CREAT

 目录
    wcp知识库系统-V4.0.0