تستخدم هذه الصفحة 0 مؤشر ، أي Rs.Open SQL ، Conn ، 0،1. لكن لا يشعر أنه أسرع بكثير ، ووقت الترحيل البالغ 100000 قطعة من البيانات هو أكثر من 300 ثانية.
نسخة الكود كما يلي:
<٪
'*********************************
'الاسم: صف ترقيم الصفحات
التاريخ: 2005/12/3
المؤلف: لينغ يوي ، Xilou
'الموقع: www.xilou.net | www.chinacms.org
الوصف: لا شيء
حقوق الطبع والنشر: يرجى الرجوع إلى مصدر إعادة الطباعة ، المؤلف
'*********************************
صفحة الفصل
currpage الخاص
وثنية خاصة
urlstr الخاص
خاص tempstr
errinfo الخاص
إيزير الخاص
TotalRecord الخاص
Private TotalPage
أجهزة الاستدعاء العامة
Tempa الخاص (11)
Tempb الخاص (8)
'-----------------------------------------------------------
sub sub class_initialize ()
currpage = 1 '// العرض الافتراضي للصفحة الحالية هو الصفحة الأولى
يتم عرض Pagen = 10 '// الافتراضي 10 قطع من البيانات لكل صفحة
urlstr = "#"
tempstr = ""
errinfo = "errinfo:"
iserr = خطأ
نهاية الفرعية
sub sub class_terminate ()
إذا isObject (أجهزة الاستدعاء) ثم
Pagers.Close
تعيين أجهزة الاستدعاء = لا شيء
إنهاء إذا
محو Tempa
محو Tempb
نهاية الفرعية
'---------------------------------------------------------
// احصل على رقم الصفحة الحالي
الممتلكات العامة تدع CurrentPage (VAL)
currpage = val
نهاية الملكية
الممتلكات العامة تحصل على page ()
CurrentPage = currpage
نهاية الملكية
// احصل على عدد القطع المعروضة لكل صفحة
الممتلكات العامة دع Pagenum (VAL)
PAGEN = VAL
نهاية الملكية
الممتلكات العامة GET Pagenum ()
pagenum = pagen
نهاية الملكية
'// احصل على عنوان URL
الممتلكات العامة دع URL (VAL)
urlstr = val
نهاية الملكية
الممتلكات العامة تحصل على url ()
url = urlstr
نهاية الملكية
// الحصول على القالب
الممتلكات العامة تسمح ليم (VAL)
Tempster = Val
نهاية الملكية
الممتلكات العامة تحصل على درجة الحرارة ()
temp = tempstr
نهاية الملكية
'-----------------------------------------------------------
EXEC SUP العامة (SQL ، ConnoBJ)
عند استئناف الخطأ التالي
Set Pagers = server.createObject ("adodb.recordset")
pagers.cursorlocation = 3 'يمكن أن يؤدي استخدام المؤشرات إلى تحسين الكفاءة
pagers.pagesize = pagen 'حدد مجموعة سجل الصفحة عدد السجلات المعروضة لكل صفحة
Pagers.Open SQL ، Connobj ، 0،1
إذا err.number <> 0 ثم
err.clear
Pagers.Close
تعيين أجهزة الاستدعاء = لا شيء
errinfo = errinfo & "خطأ في إنشاء أو فتح سجل سجل ..."
iserr = صحيح
استجابة. write errinfo
استجابة
إنهاء إذا
TotalRecord = pagers.RecordCount '// ماذا لو كان 0؟
إذا totalRecord> = 1 ثم
'----------------------------------------------------------------------------يبدأ
'// احسب العدد الإجمالي للصفحات ، PS ، لماذا لا تستخدم pagers.pageCount؟
إذا كان TotalRecord Mod Pagen = 0 ثم
'pagepage = pagers.RecordCount/pagen
'آخر
'pagepage = pagers.RecordCount/pagen
'TotalPage = ABS (int (totalpage))
'end if
TotalPage = pagers.pageCount
'// معالجة رقم الصفحة المستلمة الحالية ، الافتراضي هو 1 ، لذلك إذا لم تكن نوعًا رقميًا ، فستكون 1
إذا isnumeric (currpage) ثم