我要评论<%
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] 下一页
发表评论