تم اختبار هذه المقالة بالكامل وهي تدعم ASP+ACCESS وASP+SQL، يرجى تعديل الأجزاء ذات الصلة.
لاحظ أنني أرفض الإجابة على الأسئلة الأساسية على عجل. هذا الرمز بسيط جدًا بالفعل. إذا كنت لا تزال لا تفهمه، فيمكنك الرجوع إلى الأعمدة الأخرى على هذا الموقع.
<!--#include file="conn.asp"-->
<% 'يحتوي ما ورد أعلاه على ملفات اتصال بقاعدة البيانات
'---------------------------------------------- الاستعلام عن قاعدة البيانات
تعيين rs=server.CreateObject("adodb.recordset")
rs.open "اختر * من الكتب حيث يتم الترتيب حسب المعرف"،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
الصفحة=طلب("الصفحة")
إذا لم يكن رقمًا (صفحة) أو صفحة = "" إذن
الصفحة=1
آخر
الصفحة = سينت (صفحة)
نهاية إذا
إذا كانت الصفحة <1 ثم
الصفحة=1
صفحة elseif> maxpage ثم
page=maxpage
نهاية إذا
rs.AbsolutePage=Page
إذا كانت الصفحة = maxpage ثم
x=iCount-(maxpage-1)*iPageSize
آخر
x=iPageSize
نهاية إذا
لأني = 1 إلى س
مقالات قد تهمك:
الصفحة الحالية 1/2