<%
if Request.QueryString(“PageNumber”).count > 0 then xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ æÂÂå®Â页å·çÂÂÃ¥ÂÂæ°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]ààä¸Âä¸Â页