<%
If Request.QueryString ("PageNumber"). Count > 0 Then
' Specifies the parameter pagenumber of the page number . If the page number is specified , the specified page number is the basis .
PageNumber = Request.QueryString ("PageNumber") (1)
Else
PageNumber = 1
no page number specified Span lang= "en-US" >, defaults to 1.
End If
Recordnumberperpage = ten
' every page shows Span lang= "en-US" >10 record
set arecordset = Server.CreateObject ("ADODB. RecordSet ")
Arecordset.open" SELECT * from Contact1 ", aconnection,1
" Execute query , note open
Arecordset.pagesize = recordnumberperpage
' specifies the number of record bars per page .
Arecordset.absolutepage = pagenumber
'Specify the current page number.
Response.Write "<br>Each page has"&ARecordSet.PageSize&"Records"
Response.Write "<br>Total"&ARecordSet.PageCount&"Page"
Response.Write "<br> This is " &PageNumber& " Span Times New Roman '; Mso-hansi-font-family: ' Times Roman ' "> page
Response.Write" <table border=1> "
" Span Times New Roman '; Mso-hansi-font-family: ' Times Roman ' "The query results are displayed in tabular form
Response.Write "<tr>"
for fieldno = 0 to Arecordset.fields.count-1
Response.Write "<td>" & Arecordset (Fieldno). name& "</td>"
Next
Response.Write "</tr>"
' display field name
Recordcounter = 0
Do While not arecordset.eof
Recordcounter = recordcounter + 1
' show query
If Recordcounter > recordnumberperpage then
' if the number of records to display is greater than the number of records per page , stop the display .
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>"
' displays a record .
Arecordset.movenext
Loop
' turn to the next record .
Response.Write "</Table>"
If pagenumber > 1 Then
' if it is not the first page, the previous page is prompted .
Response.Write "<p><a href = chunfeng.asp?" Pagenumber= "& (PageNumber-1) &" >[prev ]</a> "
[1] [2] Next page