如何分页显示数据库查询结果?_编程10000问

<%
if Request.QueryString("PageNumber").count > 0 then <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

' 指定页号的参数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]  下一页

时间: 2016-11-16

如何分页显示数据库查询结果?_编程10000问的相关文章

如何随机显示图片计数器?_编程10000问

count.asp< html >< head >< meta http-equiv="Content-Type"content="text/html; charset=gb2312" ><title>随风起舞之千变计数器</title></head><body><p><%dim outcountfile=server.mappath("aspcount.

如何检测用户第一次访问我的网站并显示友好信息?_编程10000问

< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If RequestName <  >"" or RequestLeaveMeAlone <  >"" then<?xml:nam

如何显示一个文本文件?_编程10000问

 Write(StrING) WriteLine(StrING) WriteBlankLines(LINES)  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 〈html〉 〈head〉 〈http-equiv="Content-Type" content="text/html; charset=gb2312"〉 〈title〉

如何显示随机信息?_编程10000问

<html> <head> <title>千花飞舞之信息随机显示</title> </head> <body> <% randomize randomnum=int(rnd*6)+1 ' 随机发生次数. select CASE randomnum CASE 1%> 我最喜爱的出版社--中国水利水电出版社<br><?xml:namespace prefix = o ns = "urn:schema

如何在ASP里显示进度条?_编程10000问

response.buffer=true ' 应用缓存技术. dim lostnum ' 防止dmax过大而dstep过小. dim shownum delayshow(dstep,dmax) sub delayshow(dstep,dmax) ' dmax表示要处理多少dmax(步)才能完成全过程,dstep表示已处理的占全过程的大致百分比.  <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office

如何用下拉列表显示数据库里的内容?_编程10000问

<%Dim objDC, objRS Set objDC = Server.CreateObject("ADODB.Connection")objDC.ConnectionTimeout = 15objDC.CommandTimeout = 30<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> ' 创建数据库连接 objDC.Open "

如何按时间显示最新标志_编程10000问

<%mytime=rs("time") '数据库中保存时间nowtime=now() '当前时间if datediff("d",mytime,nowtime)<1 then '比较当前时间和数据库中时间,如相差小于1,即显示图片new.gif%><img src="images/new.gif"><%end if%>

为什么有的留言簿不需要数据库?_编程10000问

< html> < body> < form action="manage.asp" method="post"> < input type="text" size="10" name="username"> < input type="text" size="10" name="homepage&quo

如何用ASP建立Index Server查询对象并为其参数赋值?_编程10000问

一个方法是利用Index Server query object和参数:<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> <% Set Q= Sever.CreatObject("ixsso.Query")      ' 创建查询对象. Set Util= Sever.CreatObject("ixsso.Util") Q.Q