В крупных проектах ASP многие страницы включают функцию поворота страницы. Если каждая страница записывает программу развертывания страниц, такая работа снизит эффективность работы, не будет способствовать модульной модулизации проекта и не может повторно использовать код. Следовательно, необходимо модулировать такие функции, как поворот страницы.
Метод проектирования:
1. При вызове этого модуля вам нужно только передать набор записей и количество записей, отображаемых на каждой странице;
2. Вы можете нажать на ссылку, чтобы повернуть страницу, или вы можете напрямую ввести номер страницы и повернуть страницу после нажатия;
3. Не рассматривайте имя файла, программа может быть на текущей странице каждый раз, когда она поворачивается.
После просмотра в следующем три вопроса, наш модуль поворота публичной страницы может начать.
<%
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'◆ Название модуля: модуль поворота общедоступной страницы
'◆ Имя файла: TurnPage.asp
'◆ Входящие параметры: rs_tmp (recores set), pagesize (количество записей, отображаемых на страницу)
'◆ Вывод: Страница записи страницы повернуть
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
Subturnpage (byrefrs_tmp, pageize) 'rs_tmp set; PageSize Количество записей, отображаемых на страницу;
DimTotalPage'total страниц
Dimpageno ', какая страница в настоящее время отображается
DimReCordCount'total Количество записей
RS_TMP.PAGESIZE = PAGESIZE
RecordCount = rs_tmp.recordCount
TotalPage = int (recordCount/pagesize*-1)*-1
Pageno = request.querystring ("pageno")
«Поверните непосредственно введите количество страниц, чтобы прыгать;
Ifrequest.form ("pageno") <> "" thenpageno = request.form ("pageno")
«Если страница не выбрана, первая страница отображается по умолчанию;
Ifpageno = "" thenpageno = 1
Ifrecordcount <> 0then
Rs_tmp.absolutepage = pageno
Эндиф
«Получите текущее имя файла так, чтобы каждая страница была выполнена на текущей странице;
DimFileName, положение
filename = request.servervariables ("script_name")
position = instrrev (имя файла, "/")+1
«Получите текущее имя файла так, чтобы ссылка на страницу указывала на текущий файл;
имя файла = mid (имя файла, позы)
%>
<tableborder = 0width = '100%'>
<tr>
<tdalign = left> Общее количество страниц: <fontcolor =#ff3333> <%= totalpage%> </font> Page
Текущая страница <fontcolor =#ff3333> <%= pageno%> </font>
<tdalign = "right">
<%IfrecordCount = 0ortotalPage = 1then
Response.write "Home | предыдущая страница | Следующая страница | Последняя страница"
Иначе%>
<ahref = "<%= filename%>? pageno = 1"> Home | </a>