<%
'Программа страницы
' total_records общее количество записей
'everpage_records отображает количество записей на странице
' current_page номер текущей страницы
' url Передаваемый URL-адрес, который может содержать передаваемые переменные, например "list.asp?" или "list.asp?keyword=key&"
' Вызов программы относительно простой, но все же более хлопотный, чем PHP. Продолжайте усердно работать
sub show_page(total_records,everypage_records,current_page,url)
if IsNumeric (total_records) then
total_records=Int(total_records)
еще
total_records=0
конец, если
если IsNumeric (каждая страница_записи), то
Everypage_records = Int (каждая страница_records)
если Everypage_records<=0, то
каждая страница_рекордс = 10
конец, если
еще
каждая страница_рекордс = 10
конец, если
если IsNumeric (current_page), то
current_page = Int (текущая_страница)
еще
текущая_страница=1
конец, если
'Получаем общее количество страниц, то есть последнюю страницу
если мод Total_records Everypage_records=0, то
Last_page=Int(total_records/everypage_records)
еще
last_page=Int(total_records/everypage_records)+1
конец, если
'Определить, соответствует ли текущая_страница стандарту, и прикрепить значение к странице
если текущая_страница>=последняя_страница, то
страница=последняя_страница
иначе если текущая_страница<=1 тогда
страница=1
еще
страница = текущая_страница
конец, если
'Предыдущая страница
если страница<=0, то
препг=0
еще
препг=страница-1
конец, если
'Следующая страница
если страница=последняя_страница, то
следующаяpg=0
еще
следующаяpg=страница+1
конец, если
'Начать запись на этой странице
firstcount=prepg*everpage_records
'Конец записи этой страницы
если следующийpg>=1, то
Lastcount=(nextpg-1)*everypage_records
еще
Lastcount=total_records
конец, если
'Начать штрих-код навигации по страницам
страницанав=""
страницаnav1=""
pagenav=pagenav&"Показать записи <b>"&firstcount&"-"&lastcount&"</b> в общем количестве <b>"&total_records&"</b> записей"
pagenav1=pagenav1&"Показать записи <b>"&firstcount&"-"&lastcount&"</b> в общем количестве <b>"&total_records&"</b> записей"
если последняя_страница>1, то
«Когда есть передняя и задняя страницы
pagenav=pagenav&" <a href="&url&"page=1'>Главная страница</a> "
pagenav1=pagenav1&" <a href="&url&"page=1'>Главная страница</a> "
если prepg>=1, то
pagenav=pagenav&" <a href='"&url&"page="&prepg&"'>Предыдущая страница</a> "
pagenav1=pagenav1&" <a href="&url&"page="&prepg&"'>Предыдущая страница</a> "
еще
pagenav=pagenav&"предыдущая страница"
pagenav1=pagenav1&"предыдущая страница"
конец, если
если следующийpg>=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&" страница=""+text100.value'>"
pagenav=pagenav&" всего "&last_page&" 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&" страниц"
конец, если
конец субтитра
%>