لقد تحدثنا بالفعل عن برنامج ترقيم الصفحات لك في وقت سابق. نحن هنا نوفر لك واحدة ، ونحللها ، وقد يكون لديك مكاسب جديدة.
نسخة الكود كما يلي:
<٪
"البرنامج التالي هو جزء من رمز نظام مقالات تكنولوجيا البرمجة في موقع الويب الخاص بي ، مع التركيز على تسليط الضوء على ترقيم الصفحات ، بحيث يتم مسح الرموز غير المجدية الأخرى ، يمكنك تعديلها وتطبيقها
يمنع 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> "