فيما يلي برنامج تعليمي مفصل حول وظائف ترقيم الصفحات يستخدم عادةً ASP. الطريقة بسيطة للغاية. الأصدقاء المهتمين ، دعنا نتعرف على ذلك مع المحرر!
نسخة الكود كما يلي:
Rs.Opensql ، Conn ، 1،1
ifrs.eofandrs.bofthen
الرد. write "
"
آخر
TotalPut = Rs.RecordCount
mapperpage = 18
ifcurrentPage
PARTERPAGE = 1
Endif
if (CurrentPage-1)*maxperpage> totalputthen
if (TotalPutModMaxperPage) = 0then
CurrentPage = TotalPut/MaxPerpage
آخر
CurrentPage = TotalPut/MaxPerpage+1
Endif
Endif
ifcurrentPage = 1th
showpage1ToTalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
عرض العرض ()
showpageTotalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
آخر
إذا (CurrentPage-1)*maxperpage
Rs.Move (CurrentPage-1)*maxperpage
DimBookmark
إشارة مرجعية = Rs.Bookmark
showpage1ToTalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
العرض
showpageTotalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
آخر
PARTERPAGE = 1
showpage1ToTalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
العرض
showpageTotalput ، maxperpage ، "infotype.asp؟ id =" & request ("id")
Endif
Endif
Endif
٪>
subshowcontent ()
٪>
بطاقة تعريف
يختار
عنوان المعلومات
تاريخ التحديث
انقر
أضف الناس
يحرر
يمسح
توليد [صفر]
أنا = 1
dowhilenotrs.eof
٪>
">
"Target =" _ Blank "> []
strcounts = truelen (thetitle1)
استجابة. writeTheTitle1
٪>
DateTime = RS ("DateTime")
yname = سنة (DateTime)
mname = شهر (DateTime)
iflen (mname)
dname = شهر (DateTime)
iflen (dname)
المجلد = yname & mname
٪>
/.htm"title="view إنشاء صفحة ثابتة "target =" _ blank ">
"> تعديل
) "> حذف
) "> إنشاء ('،' '،' width = 0 ، height = 0 ')">)
i = i+1
IFI> maxperpagetheneexitdo
Rs.Movenext
حلقة
٪>
بطاقة تعريف
يختار
عنوان المعلومات
تاريخ التحديث
انقر
أضف الناس
يحرر
يمسح
يولد
ينتهي
٪>
وظيفة وظيفة (TotalNumber ، maxperpage ، اسم الملف)
٪>
ديمين
iftotalnumbermodmaxperPage = 0then
n = TotalNumber/maxperpage
آخر
n = TotalNumber/maxperpage+1
Endif
٪>
هناك / عناصر في المجموع ،
الصفحة الحالية/
[الصفحة الرئيسية] [الصفحة السابقة]
"> [home] & page ="> [الصفحة السابقة]
[الصفحة التالية] [الصفحة الأخيرة] و page = "> [الصفحة التالية] & page ="> [الصفحة الأخيرة]
اذهب إلى:
onChange = "location.href = this.options [this.selectedIndex] .value">
ifcurrentPage = jthen
٪> & page = "محدد>
آخر
٪>
& page = ">
Endif
التالي
٪>
الوظيفية
٪>
FunctionShowPage1 (TotalNumber ، maxperpage ، اسم الملف)
٪>
Dimb
iftotalnumbermodmaxperPage = 0then
B = TotalNumber/maxperpage
آخر
B = TotalNumber/maxperpage+1
Endif
٪>
هناك / عناصر في المجموع ،
الصفحة الحالية/
dxystart = CurrentPage-5
IFDXYSTART
dxyend = CurrentPage+5
ifdxyend> bthendxyend = b
fordxy = dxystarttodxyend
IFDXY = CurrentPagethen
Response.write "[" & "" & dxy & "" & "]" & "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" = أحمر>
آخر
Response.write "[" & dxy & "" & "]" & "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" ""
Endif
التالي
٪>
الوظيفية
٪>
Rs.close
setRs = لا شيء
conn.close
setConn = لا شيء
٪>
ما سبق هو برنامج تعليمي مفصل حول وظائف ترقيم ترقيم ASP. أعتقد أنك تعلمت ذلك. لمزيد من المحتوى ذي الصلة ، يرجى الاستمرار في الانتباه إلى قناة WONEW Technology.