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 * from ietable
objMyRst.Oepn strSql،ActiveConnection،،،adCmdText
3. قم بتعيين خاصية PageSize لمجموعة السجلات
objMyRst.PageSize=20
حجم الصفحة الافتراضي هو 10
4. قم بتعيين الخاصيةAbsolutePage لمجموعة السجلات
خافت intCurrentPage
الصفحة الحالية=1
objMyRst.AbsolutePage=intCurrentPage
القيمة المطلقة للصفحة هي 1 إلى قيمة PageCount لكائن Recordset
5. عرض البيانات
الاستجابة.الكتابة(<الجدول>)
اسم حقل الطباعة (objMyRst)
لـ i=1 إلى objMyRst.PageSize
قيمة حقل الطباعة (objMyRst)
objMyRst.MoveNext
إذا كان objMyRst.Eof ثم قم بالخروج لـ
التالي
الاستجابة.كتابة(</table>)
يوضح:
1. adOpenStatic، وadUseCilentBatch، وadCmdText هي ثوابت تم تحديدها بواسطة adovbs.inc، لاستخدامها، انسخ adovbs.inc إلى الدليل الحالي وقم بتضمينها في البرنامج.
<! --#تضمين الملف=adovbs.inc-->
2. رمز وظيفة PrintFielName,PrintFieldValue هو كما يلي:
<%
اسم حقل الطباعة (objMyRst)
'المعلمة objMyRst هي كائن مجموعة السجلات
""تحديد الرقم""
خافت objFld
Response.اكتب <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>)
وظيفة النهاية