<!-#تضمين ملف = "conn.asp"->
<٪
"الجزء التالي هو التحقق مما إذا كانت الصفحة المقدمة هي معلمة قانونية
"هذا الجزء هو الأفضل لتحديد ما إذا كانت المعلمة المقدمة هي حرف قيمة
صفحة خافتة
الصفحة = trim (طلب ("صفحة")
إذا page = "" ثم
الصفحة = 1
elseif cint (صفحة) <= 0 ثم
الصفحة = 1
آخر
الصفحة = cint (صفحة)
إنهاء إذا
"استفسار ، أخرج السجل الذي تريد عرضه
Dim RS ، SQL ، Str
تعيين rs = server.createBject ("adodb.oldset")
SQL = "SELECT * من A1"
Rs.OOPEN SQL ، CONN ، 1،3
إذا لم يكن rs.eof ثم
STR = RS ("A1")
إنهاء إذا
Rs.close
تعيين روبية = لا شيء
"ضع السجلات المسجلة في الصفيف
قاتمة strtmp
strtmp = split ((str) ، "<br>"))
"قم بإزالة السجل المراد عرضه ، واحصل على عدد الصفحات في نفس الوقت
Dim N ، TMP ، I ، J ، TT
ن = 500
أنا = 0
J = 0
افعل بينما أنا <= uborder (strtmp)
TMP = strtmp (i)
TT = صحيح
تفعل بينما tt
إذا كنت> = ubound (strtmp) ثم
TT = خطأ
J = J 1
elseif len (tmp)> = n
TT = خطأ
J = J 1
elseif len (tmp) len (strtmp (i 1))> = n ثم
TT = خطأ
J = J 1
آخر
TMP = TMP "<br>" strtmp (i 1)
أنا = أنا 1
إنهاء إذا
حلقة
إذا كانت الصفحة = j ثم str = tmp "<br>"
أنا = أنا 1
حلقة
"حدد ما إذا كانت معلمات الإرسال تعبر الحدود ، إذا عبرت الحدود ، فستحصل على محتوى الصفحة الأخيرة
إذا الصفحة> j ثم
str = tmp
إنهاء إذا
"أظهر محتوى الترحيل
"انتبه إلى معلمات المرور ، يتم تمرير الصفحة فقط هنا. إذا كانت هناك معلمات أخرى يتم تمريرها معًا ، وإلا فلن يتم عرضها بعد الترحيل.
استجابة. "الترحيل->" "" "
ل n = 1 إلى ي
إذا n = صفحة ثم
Response.write "& nbsp ؛"
آخر
Response.write "[<a href = index.asp؟ page =" & n & ">" & n & "</a>]
إنهاء إذا
التالي
reponse.write "<br> <br>" "
"أظهر هذا الجزء من هذا الجزء من المحتوى المراد عرضه
استجابة. write str
٪>