يعلم الجميع أن عرض الترحيل لمجموعات السجلات يمكن تنفيذه بسهولة في Dreamwerver، ولكن الكود الذي تم إنشاؤه كبير جدًا بالفعل، مما يؤثر على سرعة عرض صفحة الويب، ولا يبدو واضحًا جدًا يتحقق بطريقة بسيطة ماذا عن الوظيفة؟ بالطبع، يمكنني استخدام الكود البسيط التالي لتحقيق عرض الترحيل لمجموعة السجلات. والآن سأشاركه مع الجميع.
الرموز الرئيسية هي كما يلي:
＜%
إذا كان rs1.recordcount>0 ثم 'إذا لم تكن مجموعة السجلات فارغة، فقم بمعالجة السجل rs1.pagesize = 10 'قم بتعيين عدد السجلات المعروضة على كل صفحة num=rs1.recordcount 'إجمالي عدد السجلات pagenum=rs1.pagecount' إجمالي عدد الصفحات page=request("page") 'الحصول على المعلومات الأصلية لرقم الصفحة' بداية معالجة المعلومات الأصلية لرقم الصفحة!
إذا كانت الصفحة ＜＞ "" إذن
الصفحة = سينت (الصفحة)
إذا كان err.number ＜＞ 0 إذن
خطأ. واضح
الصفحة=1
نهاية إذا
إذا كانت الصفحة <1 ثم
الصفحة=1
نهاية إذا
آخر
الصفحة=1
انتهي إذا
إذا كانت الصفحة*rs1.pagesize ＞ num وليس((page-1)*rs1.pagesize ＜ num)ثم
الصفحة=1
نهاية إذا
'نهاية معالجة المعلومات الأصلية لرقم الصفحة! قم بتعيين رقم الصفحة الحالية rs1.absolutepage = page
%>
<!--الحكم على ما إذا كانت الصفحة الحالية هي الصفحة الأخيرة، وتعيين العرض المتكرر للسجلات بناءً على الحكم-->
＜% إذا كانت الصفحة＜＞رقم الصفحة إذن
lablenum=rs1.pagesize
آخر
lablenum=num-(page-1)*rs1.pagesize
نهاية إذا
لأني = 1 إلى labelnum
%>
＜tr bgcolor="#FFFFFF"＞
＜td height = "25" ＞＜div align = "center" ＞＜%=(rs1.Fields.Item("id").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("name").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("Address").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("الفئة").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("آخر تعديل").Value)%＞＜/div＞＜/td＞
＜td＞＜div align="center"＞＜%=(rs1.Fields.Item("Modifier").Value)%＞＜/div＞＜/td＞
＜/tr＞
<%
rs1.movenext
التالي
%>
<!--ينتهي عرض السجل للصفحة الحالية، والكود التالي هو رمز رابط الترحيل لمجموعة السجلات-->
＜ عرض الجدول = "70%" حد = "0" محاذاة = "مركز" حشو الخلية = "0" تباعد الخلايا = "0"＞
＜tr＞
＜ارتفاع td = "35"＞
<div محاذاة = "يمين">
<لون الخط = "#333333">
يوجد ＜%=num%＞ روابط إجمالاً|
＜a href=linkadmin.asp?page=1＞الصفحة الرئيسية＜/a＞ |
＜%if page＞1 ثم%＞＜a href=linkadmin.asp?page=＜%=page-1%＞＞＜%end if%＞الصفحة السابقة＜/a＞ |
＜%if page＜pagenum ثم%＞＜a href=linkadmin.asp?page=＜%=page+1%＞＞＜%end if%＞الصفحة التالية＜/a＞ |
＜a href=linkadmin.asp?page=＜%=pagenum%＞＞الصفحة الأخيرة＜/a＞ |
الصفحة:＜%=صفحة%＞/＜%=pagenum%＞صفحة |
الإجمالي ＜%=pagenum%＞الصفحات＜/font＞
＜/شعبة＞
＜/تد＞
＜/tr＞
＜/الجدول＞
<!--ينتهي رمز رابط ترحيل مجموعة السجلات، ويتم تنفيذ التعليمة البرمجية التالية عندما تكون مجموعة السجلات فارغة-->
＜%آخر%＞
＜tr bgcolor="#FFFFFF"＞
＜td height="25" colspan="6"＞＜div align="center"＞＜% Response.Write("لا توجد نتائج لعرضها!") %＞
＜/div＞＜/td＞
＜/tr＞
<%
نهاية إذا
rs1.إغلاق ()
تعيين rs1 = لا شيء
%>
حسنًا، الأمر بسيط جدًا! ما عليك سوى إجراء تعديل بسيط ويمكنك إدراجه في المكان الذي يتم فيه عرض السجل على صفحة الويب الخاصة بك. جربه الآن!