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

' 指定頁號的參數(shù)PageNumber.如果指定頁號,則以指定頁號為依據(jù).

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
' 執(zhí)行查詢,注意Open語句中指定的第三個參數(shù).

ARecordSet.PageSize = RecordNumberPerPage

' 指定每頁記錄條數(shù).
ARecordSet.AbsolutePage = PageNumber

' 指定當(dāng)前頁號.

Response.Write "<br>每頁有"&ARecordSet.PageSize&"條記錄"
Response.Write "<br>共有"&ARecordSet.PageCount&"頁"
Response.Write "<br>這是第"&PageNumber&"頁"

Response.Write "<Table border=1>"
' 以表格形式顯示查詢結(jié)果.

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

' 如果要顯示的記錄數(shù)大于每頁記錄數(shù)目,則停止顯示.
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
' 轉(zhuǎn)向下一條記錄.

Response.Write "</Table>"

if PageNumber > 1 then

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

[1] [2]  下一頁