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