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