1. สร้างวัตถุชุดระเบียน
ติ่ม objMyRst
ตั้งค่า objMyRst=Server.CreateObject(ADODB.Recordset)
objMyRst.CursorLocation=adUseClientBatch 'ไคลเอ็นต์สามารถประมวลผลเป็นชุดได้
objMyRst.CursorType=adOpenStatic 'ประเภทเคอร์เซอร์เป็นประเภทคงที่
หมายเหตุ: ไม่สามารถสร้างออบเจ็กต์ Recordset โดยใช้คำสั่ง Set objMyRst=Connection.Excute strSQL ได้ เนื่องจากออบเจ็กต์ Recordset ที่วัตถุสร้างขึ้นคือ adOpenFowardOnly และไม่รองรับการแบ่งหน้าชุดบันทึก
2. เปิดวัตถุชุดระเบียน
หรี่ strSql
strSql=select * จาก ietable
objMyRst.Oepn strSql,ActiveConnection,,,adCmdText
3. ตั้งค่าคุณสมบัติ PageSize ของ Recordset
objMyRst.PageSize=20
ขนาดหน้าเริ่มต้นคือ 10
4. ตั้งค่าคุณสมบัติ AbsolutePage ของ Recordset
Dim intCurrentPage
intCurrentPage=1
objMyRst.AbsolutePage=intCurrentPage
AbsolutePage คือ 1 ถึงค่า PageCount ของวัตถุ Recordset
5. แสดงข้อมูล
Response.Write(<ตาราง>)
PrintFieldName(objMyRst)
สำหรับ i=1 ถึง objMyRst.PageSize
PrintFieldValue (objMyRst)
objMyRst.MoveNext
ถ้า objMyRst.Eof ให้ออกเพื่อ
ต่อไป
ตอบกลับเขียน(</table>)
แสดงให้เห็น:
1. adOpenStatic, adUseCilentBatch, adCmdText เป็นค่าคงที่ที่กำหนดโดย adovbs.inc หากต้องการใช้ ให้คัดลอก adovbs.inc ไปยังไดเร็กทอรีปัจจุบันและรวมไว้ในโปรแกรม
- --#รวมไฟล์=adovbs.inc-->
2. รหัสของฟังก์ชัน PrintFielName,PrintFieldValue เป็นดังนี้:
-
ฟังก์ชั่น PrintFieldName (objMyRst)
'พารามิเตอร์ objMyRst เป็นวัตถุชุดระเบียน
'กำหนดหมายเลข
ติ่ม objFld
การตอบสนองเขียน <tr bgcolor='#CCCCCC'>
สำหรับแต่ละ objFld ใน objMyRst.Fields
การตอบกลับเขียน <td> & objFld.Name & </td>
ต่อไป
ตอบกลับเขียน(</tr>)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น PrintFieldValue (objMyRst)
'พารามิเตอร์ objMyRst เป็นวัตถุชุดระเบียน
'กำหนดหมายเลข
ติ่ม objFld
ตอบกลับเขียน(<tr>)
สำหรับแต่ละ objFld ใน objMyRst.Fields
'Response.Write <td> & objMyRst.Fields(intLoop).value & </td>
การตอบกลับเขียน <td> & objFld.value & </td>
ต่อไป
ตอบกลับเขียน(<tr>)
ฟังก์ชันสิ้นสุด