<%
'*******************************
'기능 : 다중 지대 (숫자, 가포, 저작, URL_ADD)
'매개 변수 : 숫자, 총 레코드 수; PORPAGE, 페이지 당 레코드 수; 저작, 현재 페이지; url_add, action = list &와 같은 현재 페이지의 기타 매개 변수
'저자 : Alixi
'날짜 : 2007/7/15
'설명 : ASP 범용 페이지 매김 스타일 기능
'예 : multipage (100,10,2, "? action = list &")
'*******************************
functionmultipage (숫자, 가포, 저작, url_add)
CURPAGE = int (CURPAGE)
dimurl
url = request.servervariables ( "script_name") & url_add
multipage = ""
impage, 오프셋, pagei
ifint (숫자)> int (Perpage)
페이지 = 10
오프셋 = 2
DIMPAGE, FROMPAGE, TOPAGE
ifnumbersmodcint (Perpage) = 0then
pages = int (숫자/perpage)
또 다른
pages = int (숫자/perpage) +1
endif
FromPage = Curpage-Offset
Topage = Curpage+Page-Offset-1
ifpage> Pagesthen
Frompage = 1
Topage = 페이지
또 다른
iffrompage <1then
Topage = CURPAGE+1-FROMPAGE
Frompage = 1
if (topage-frompage) <pagend (topage-frompage) <pageThentOpage = page
elseiftopage> pagesthen
FromPage = CURPAGE PAGE+TOPAGE
Topage = 페이지
if (topage-frompage) <pageand (topage-frompage) <pageSthenfrompage = pages-page+1
endif
endif
multipage = "<ahref = '"& url & "page = 1'> <<</a>"
forpagei = pagetotopage에서
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
끝 기능%>