التصفح الكلاسيكي برنامج كامل + تعليقات

لقد تحدثنا بالفعل عن برنامج ترقيم الصفحات لك في وقت سابق. نحن هنا نوفر لك واحدة ، ونحللها ، وقد يكون لديك مكاسب جديدة.

نسخة الكود كما يلي:

<٪

"البرنامج التالي هو جزء من رمز نظام مقالات تكنولوجيا البرمجة في موقع الويب الخاص بي ، مع التركيز على تسليط الضوء على ترقيم الصفحات ، بحيث يتم مسح الرموز غير المجدية الأخرى ، يمكنك تعديلها وتطبيقها

يمنع onerrorresumenext المستخدمين من تعديل عناوين URL

ifrequest.querystring ("page") = "" thenpage = 1: else: page = cint (request.querystring ("" page ")) '' عدد الصفحات إلى صفحة url =؟

setLink1 = server.createObject ("adodb.connection") قاعدة بيانات الاتصال

Link1.Open "Provider = microsoft.jet.oledb.4.0 ؛ datasource =" & server.mappath ("Database 1.mdb")

setRs = server.createObject ("adodb.recordset")

RS.Open "SELECT*من الجدول 1" ، Link1،1،1 "تحدد هذه الجمل مؤشر مجموعة السجلات ، وعدد السجلات المخزنة لكل صفحة وإعدادات الصفحة الحالية ، وهو أمر مهم للغاية.

rs.pagesize = 13

rs.absolutepage = صفحة

iferr.number <> 0then 'يمنع المستخدمين من تعديل عناوين URL وقاعدة البيانات بشكل ضار دون أخطاء السجلات

"حدث خطأ استثناء" استجابة. write

استجابة

Endif

٪>

<basetarget = '_ blank'> <!-اجعل المحتوى يطفو على السطح في نافذة جديدة->

<tableborder = 1>

<٪

fori = 0tors.pagesize-1 'يعرض محتوى البيانات المحدد. i+(الصفحة*13-13) +1 يعرض هذا الحل الرقم المحدد بعد الترحيل.

ifrs.eofthenexitfor

Response.write "<tr> <td>" & i+(الصفحة*13-13) +1 & ": <ahref = '" & rs ("connect") & "'> & rs (" uptor ") &" </a> </td> </tr> "

Rs.Movenext

التالي

٪>

<tr> <tdalign = right>

<basetarget = '_ top'> <!-اجعل اتصال الترحيل لا يظهر في النافذة الجديدة. فيما يلي البرنامج الكامل لبرنامج الترحيل المثالي الذي أريد التركيز عليه. يمكنك تعديله حسب الحاجة->

<٪

pagelen = split (request.servervariables ("query_string") ، "&") الحصول على عنوان URL للمعلمة بعد عنوان URL؟ رقم

ifubound (pagelen) <1then'f عنوان URL من النوع xxx.asp؟ page = 1 أو xxx.asp ، استخدم طريقة ترقيم الصفحات القياسية

ifpage> 1thenResponse.write "<ahref = 'a.asp؟ page = 1'> home </a> <ahref = 'a.asp؟ page =" & page-1 & "'> الصفحة السابقة </a>": else: response.write "الصفحة الرئيسية"

ifpage <rs.pageCountThenResponse.write "<hhref = 'a.asp؟ page =" & page+1 & "'> الصفحة التالية </a> <hhref = 'a.asp؟ page =" & rs.pageCount & "'> الصفحة الأخيرة </a>": else: repress.write "الصفحة التالية".

fori = 1tors.pageCount

ifi = pagethenresponse.writei و "": else: repress.write "<ahref = 'A.asp؟ page =" & i & "' '& i &" </a> "