当前位置： 移动技术网 > IT编程>开发语言>其他编程 > 如何分页显示数据库查询结果？

如何分页显示数据库查询结果？

2017年12月01日  | 移动技术网IT编程  | 我要评论

<%
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]  下一页

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网