<%
'*********************************
'Function: multiage (числа, персидж, curpage, url_add)
«Параметры: числа, общее количество записей; Perpage, количество записей на страницу; Curpage, текущая страница; Url_add, другие параметры текущей страницы, такие как? Action = list &
Автор: Аликси
Дата: 2007/7/15
'Описание: ASP Universal Pagination Function
Пример: Множественный (100,10,2, "? Action = list &")
'*********************************
FunctionMultipage (числа, персидж, Curpage, url_add)
Curpage = int (curpage)
Dimurl
Url = request.servervariables ("script_name") & url_add
Мультистрация = ""
Dim -страница, смещение, Pagei
Ifint (numbers)> int (perpage) then
Page = 10
Смещение = 2
Dimpages, From Page, Topage
Ifnumbersmodcint (perpage) = 0then
Страницы = int (числа/персидж)
Еще
Страницы = int (numbers/perpage) +1
Эндиф
FromPage = curpage-offset
Топжа = CURPAGE+PAGE OFFSET-1
Ifpage> pagesthen
From Page = 1
Overge = страницы
Еще
Если разобрать <1then
Opege = curpage+1-stropage
From Page = 1
If (opage-frompage) <pageand (топаж-флаг) <pagesthentopage = page
Elseiftopage> Pagesthen
FromPage = Curpage-Pages+Coverge
Overge = страницы
If (opgege-frompage) <pageand (топаж-флаг)
Эндиф
Эндиф
Multipage = "<ahref = '" & url & "page = 1'> <<</a>"
Forpagei = fromPageTotopage
Ifpagei <> curpagetheten
Multipage = multiage & "<ahref = '" & url & "page =" & pagei & "'> [" & pagei & "] </a>"
Еще
Multious = multiage & "<b> [" & pagei & "] </b>"
Эндиф
Следующий
Ifint (pages)> int (page) then
Multipage = Multiage & "... <ahref = '" & url & "page =" & pages & "'> [" & pages & "] >> </a>"
Еще
Multiage = multiage & "<ahref = '" & url & "page =" & pages & ">>> </a>"
Эндиф
Эндиф
Конечная функция%>