ประการแรกคือการสร้างชุดระเบียน รหัส การคัดลอกรหัสเพจอย่างง่ายมีดังนี้:
-
ตั้งค่า rs=server.createobject (adodb.recordset)
exce=sql 'คำสั่งสืบค้น sql'
rs.open exce,conn,1,1
-
จากนั้นจะมีการตั้งค่าคุณสมบัติการเพจ
-
rs.PageSize=3 'กำหนดเลขหน้า'
pagecount=rs.PageCount 'รับจำนวนหน้าทั้งหมด
page=int(request(page)) 'รับหมายเลขหน้า'
ถ้าหน้า<=0 แล้วหน้า=1 'ผู้พิพากษา
ถ้า request(page)= แล้วก็ page=1
rs.AbsolutePage=page 'กำหนดหมายเลขหน้าของหน้านี้'
-
ในที่สุดการแสดงเพจในร่างกาย
-
ถ้า rs.bof และ rs.eof แล้ว
การตอบกลับเขียน (NULL)
อื่น
สำหรับ i=1 ถึง rs.PageSize
ตอบกลับเขียน rs (ชื่อ)
response.write(<ชม>)
rs.movenext
ต่อไป
สิ้นสุดถ้า
-
<p>
<%ถ้า page=1 และไม่ใช่ page=pagecount แล้ว%>
หน้าแรก|หน้าก่อน
<a href=log1.asp?page=<%=page+1%>>หน้าถัดไป</a>|
<a href=log1.asp?page=<%=pagecount%>>หน้าสุดท้าย</a>
<%elseif หน้า<>1 และไม่ใช่ page=pagcount แล้ว%>
<a href=log1.asp?page=1>หน้าแรก</a>|
<a href=log1.asp?page=<%=page-1%>>หน้าก่อน</a>|
<a href=log1.asp?page=<%=page+1%>>หน้าถัดไป</a>|
<a href=log1.asp?page=<%=pagecount%>>หน้าสุดท้าย</a>
<%elseif page=pagecount แล้ว%>
<a href=log1.asp?page=1>หน้าแรก</a>|
<a href=log1.asp?page=<%=page-1%>>หน้าก่อน</a>|
หน้าถัดไป|
หน้าสุดท้าย
<%สิ้นสุดถ้า%>