บทความนี้ได้รับการทดสอบอย่างสมบูรณ์และรองรับ ASP+ACCESS และ ASP+SQL โปรดแก้ไขส่วนที่เกี่ยวข้อง
โปรดทราบว่าฉันปฏิเสธที่จะตอบคำถามพื้นฐานอย่างเร่งรีบ โค้ดนี้ง่ายมาก หากคุณยังไม่เข้าใจ คุณสามารถดูคอลัมน์อื่นๆ ในไซต์นี้ได้
<!--#include file="conn.asp"-->
<% 'ข้างต้นมีไฟล์การเชื่อมต่อฐานข้อมูล
'-------------------------------------------------- สืบค้นฐานข้อมูลเริ่มต้น
ตั้งค่า rs=server.CreateObject("adodb.recordset")
rs.open "select * from book โดยเรียงตาม id desc",conn,1,1
ถ้า err.number<>0 แล้ว
response.write "ไม่มีข้อมูลในฐานข้อมูล"
สิ้นสุดถ้า
'------------------------------------------------- การเริ่มต้นเพจ
ถ้า rs.recordcount=0 แล้ว
respose.write "ไม่มีข้อมูล"
อื่น
rs.PageSize =10 'จำนวนบันทึกต่อหน้า
iCount=rs.RecordCount 'จำนวนบันทึกทั้งหมด
iPageSize=rs.PageSize
maxpage=rs.PageCount
หน้า=คำขอ("หน้า")
ถ้าไม่ใช่ IsNumeric(page) หรือ page="" แล้ว
หน้า=1
อื่น
หน้า=cint(หน้า)
สิ้นสุดถ้า
ถ้าหน้า <1 แล้ว
หน้า=1
elseif page>maxpage แล้ว
หน้า=maxpage
สิ้นสุดถ้า
rs.AbsolutePage=เพจ
ถ้า page=maxpage แล้ว
x=iCount-(maxpage-1)*iPageSize
อื่น
x=iPageSize
สิ้นสุดถ้า
สำหรับ i=1 ถึง x
บทความที่คุณอาจสนใจ:
หน้าปัจจุบัน 1/2