عندما يكتب مبرمجي PHP رمز البرنامج ، فإنهم عادة ما يستخدمون وظيفة ترقيم الصفحات. الرمز هو في الواقع نفس مستندات كتابة الكلمات. بعد ذلك ، اسمح لمحرر The Error New Technology يأخذك للتعرف على أساليب المبرمجين الذين يكتبون وظائف تراجع. نسخة الكود كما يلي:
<٪
الصفحة = trim (طلب ("صفحة")))
mapperpage = 40
أولا = صحيح
الأخير = صحيح
قاتمة روبية
SET RS = Server.createObject ("ADODB.RecordSet")
SQL = "SELECT ID ، TITLE ، ADD1 ، CARTYPE ، ISRED ، ENTERDATE ، يضرب من الأخبار حيث classtype = 0 و pass = 1 order by id desc"
Rs.Open SQL ، Conn ، 1،1
rs.pagesize = maxperpage
TotalPage = Rs.PageCount
إذا len (صفحة) = 0 ثم
intPage = 1
أولا = خطأ
آخر
إذا cint (صفحة) <= 1 ثم
intPage = 1
أولا = خطأ
آخر
إذا cint (page)> = rs.pageCount ثم
intPage = rs.pageCount
الماضي = خطأ
آخر
intPage = cint (صفحة)
إنهاء إذا
إنهاء إذا
إنهاء إذا
إذا لم يكن rs.eof ثم
rs.absolutepage = intPage
إنهاء إذا
لـ A = 1 إلى mapperpage
إذا كان rs.eof ثم الخروج من أجل
٪>
آخر
استجابة. write "bgColor =#f6f6f6"
إنهاء إذا
٪ >>
<٪ = a ٪>
<٪ add = rs ("add1")
إضافة فرعية ، 4
٪>
"Target =" _ Blank ">
<٪
إذا كان RS ("ISRED") = صحيح ثم
٪>
<٪ title = rs ("العنوان")
عنوان فرعي ، 20
٪>
<٪ آخر
العنوان = روبية ("العنوان")
عنوان فرعي ، 20
٪>
<٪
إنهاء إذا
٪>
<٪ = rs ("cartype") ٪>
<٪ thetime = rs ("EnterDate")
لهم = DatePart ("M" ، thetime)
إذا كان لين (ثومون) <2 ثم temon = "0" & themon
theday = datepart ("D" ، thetime)
إذا كان لين (ثيداي) <2 ثم theday = "0" & theday
ther = themon & "-" & theday
استجابة
٪>
<٪ = rs ("الزيارات") ٪>
<٪
Rs.Movenext
إذا كان rs.eof ثم الخروج من أجل
التالي
٪>
<٪ إذا كان rs.pageCount> 0 ثم ٪>
هناك ما مجموعه <٪ = rs.recordCount ٪> | الصفحة الحالية <٪ = intPage ٪>/
<٪
= rs.pageCount ٪>
<٪ نهاية إذا ٪>
<٪ إذا intPage> 1 ثم ٪>
؟
الصفحة = 1 "> الصفحة الرئيسية
<٪ آخر ٪>
الصفحة الأولى
<٪ نهاية إذا ٪>
<٪ إذا أولاً ثم ٪>
؟
الصفحة = <٪ = intPage-1 ٪> "> الصفحة السابقة
<٪ آخر ٪>
الصفحة السابقة
<٪ نهاية إذا ٪>
<٪ إذا كان الأخير و intpage
؟
الصفحة = <٪ = intPage+1 ٪> "> الصفحة التالية
<٪ آخر ٪>
الصفحة التالية
<٪ نهاية إذا ٪>
<٪ إذا كانت intpage
؟
الصفحة = <٪ = rs.pageCount ٪> "> الصفحة الأخيرة
<٪ آخر ٪>
الصفحة الأخيرة
<٪ نهاية إذا ٪>
اذهب إلى
[this.selectedIndex] .value ">
<٪ لـ B = 1 إلى Rs.PageCount
إذا ب = intPage ثم ٪>
؟ صفحة = <٪ = b ٪> "محددة>
الصفحة <٪ = b ٪>
<٪ آخر ٪>
؟ صفحة = <٪ = b ٪> "> صفحة <٪ = b ٪>
<٪ نهاية إذا
التالي ٪>
<٪
Rs.close
تعيين روبية = لا شيء
conn.close
تعيين conn = لا شيء
٪>> ثم ٪>> ثم ٪ >>>>>
من خلال محرر ERROR New Technology Channel ، أعتقد أن كل شخص لديه فهم معين لطرق المبرمجين الذين يكتبون وظائف الترحيل. إذا كنت بحاجة إلى معرفة المزيد من المعلومات ذات الصلة ، فيرجى الاستمرار في الانتباه إلى قناة التكنولوجيا الجديدة!