<٪
'*********************************
'الوظيفة: multipage (الأرقام ، الذروة ، curpage ، url_add)
المعلمات: الأرقام ، إجمالي عدد السجلات ؛ الزائد ، عدد السجلات لكل صفحة ؛ curpage ، الصفحة الحالية ؛ url_add ، معلمات أخرى للصفحة الحالية مثل؟ الإجراء = قائمة &
المؤلف: Alixi
"التاريخ: 2007/7/15
الوصف: وظيفة نمط ترقيم الصفحات العالمية ASP
"مثال: Multipage (100،10،2 ،"؟ Action = List & ")
'*********************************
FunctionMultipage (الأرقام ، الذروة ، curpage ، url_add)
curpage = int (curpage)
ديموورل
url = request.servervariables ("script_name") و url_add
multipage = ""
dimpage ، الإزاحة ، pagei
IFINT (أرقام)> int (الذروة) ثم
الصفحة = 10
إزاحة = 2
dimpages ، من صفحة ، topage
ifnumbersmodcint (perpage) = 0then
الصفحات = int (الأرقام/الذروة)
آخر
الصفحات = int (الأرقام/الذروة) +1
Endif
FromPage = Curpage Offset
TOPAGE = CARPAGE+PAGE-OFSET-1
IFPAGE> PAGESTHEN
من صفحة = 1
topage = الصفحات
آخر
iffrompage <1th
TOPAGE = CARPAGE+1-FORMOMPAGE
من صفحة = 1
if (topage-frompage) <pageand (topage-frompage) <pageSthentOpage = page
ElseFtOpage> Pagesthen
frompage = curpage-pages+topage
topage = الصفحات
if (topage-frompage) <pageand (topage-frompage) <pagesthenfrompage = pages-page+1
Endif
Endif
multipage = "<ahref = '" & url & "page = 1'> <<</a>"
forpagei = fromPageTotOpage
ifpagei <> curpagethen
multipage = multipage & "<ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
آخر
multipage = multipage & "<b> [" & pagei & "] </b>"
Endif
التالي
ifint (pages)> int (صفحة) ثم
multipage = multipage & "... <ahref = '" & url & "page =" & pages & "'> [" & pages & "] >> </a>"
آخر
multipage = multipage & "<ahref = '" & url & "page =" & pages & "' >>> </a>"
Endif
Endif
endfunction ٪>