<%
'페이지 프로그램
' total_records 총 레코드 수
' Everypage_records는 페이지당 레코드 수를 표시합니다.
' current_page 현재 페이지 번호
' url "list.asp?" 또는 "list.asp?keyword=key&"와 같이 전달할 변수를 포함할 수 있는 전달되는 URL입니다.
' 프로그램 호출은 비교적 간단하지만 여전히 PHP보다 더 까다롭습니다.
sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records)
total_records=Int(total_records)
또 다른
total_records=0
종료하면
IsNumeric(everypage_records)인 경우
Everypage_records=Int(everypage_records)
Everypage_records<=0이면
모든 페이지_기록=10
종료하면
또 다른
모든 페이지_기록=10
종료하면
IsNumeric (current_page)이면
current_page=Int(현재_페이지)
또 다른
현재_페이지=1
종료하면
'전체 페이지 수, 즉 마지막 페이지를 구합니다.
total_records mod Everypage_records=0이면
last_page=Int(total_records/everypage_records)
또 다른
last_page=Int(total_records/everypage_records)+1
종료하면
'current_page가 표준을 충족하는지 확인하고 해당 값을 페이지에 첨부합니다.
current_page>=last_page인 경우
페이지=마지막_페이지
elseif current_page<=1 그러면
페이지=1
또 다른
페이지=현재_페이지
종료하면
'이전 페이지
페이지<=0이면
준비=0
또 다른
준비=페이지-1
종료하면
'다음 페이지
page=last_page인 경우
다음pg=0
또 다른
nextpg=페이지+1
종료하면
'이 페이지에서 녹음을 시작합니다.
firstcount=prepg*everypage_records
'이 페이지의 기록 종료
nextpg>=1이면
lastcount=(nextpg-1)*everypage_records
또 다른
lastcount=total_records
종료하면
'페이징 탐색 바코드 시작
페이지 탐색=""
페이지nav1=""
pagenav=pagenav&"총 <b>"&total_records&"</b> 레코드 중 <b>"&firstcount&"-"&lastcount&"</b> 레코드 표시"
pagenav1=pagenav1&"총 <b>"&total_records&"</b> 레코드 중 <b>"&firstcount&"-"&lastcount&"</b> 레코드 표시"
last_page>1이면
'앞페이지와 뒷페이지가 있는 경우
pagenav=pagenav&" <a href='"&url&"page=1'>홈페이지</a> "
pagenav1=pagenav1&" <a href='"&url&"page=1'>홈페이지</a> "
준비>=1이면
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>이전 페이지</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&prepg&"'>이전 페이지</a> "
또 다른
pagenav=pagenav&" 이전 페이지"
pagenav1=pagenav1&" 이전 페이지"
종료하면
nextpg>=1이면
pagenav=pagenav&" <a href='"&url&"page="&nextpg&"'>다음 페이지</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&nextpg&"'>다음 페이지</a> "
또 다른
pagenav=pagenav&" 다음 페이지"
pagenav1=pagenav1&" 다음 페이지"
종료하면
pagenav=pagenav&" <a href='"&url&"page="&last_page&"'>마지막 페이지</a> "
pagenav1=pagenav1&" <a href='"&url&"page="&last_page&"'>마지막 페이지</a> "
pagenav=pagenav&"페이지로 이동 <input type=text name=text100 id=text100 value="&page&" size=3><input type=button name=button100 value=go onclick='window.location="""&url&" page=""+text100.value'>"
pagenav=pagenav&" 총 "&last_page&" 페이지"
pagenav1=pagenav1&" 페이지로 <input type=text name=text101 id=text101 value="&page&" size=3><input type=button name=button101 value=go onclick= ' window.location="""&url&"page=""+text101.value'>"
pagenav1=pagenav1&" 총 "&last_page&" 페이지"
end sub
이면 종료
%>