Демонстрация таблицы, в которой набор записей отображается в столбцах и реализуется разбиение по страницам.
Автор：Eve Cole
Время обновления：2009-06-24 17:04:30
<!-- Этот пример демонстрирует общее отображение столбцов набора записей, поскольку иногда необходимо отображать несколько продуктов в строке вместо одного в строке. Если есть такая таблица, отображаемая столбцами, просто вставьте в нее следующий код. В этом примере в каждой строке отображается по 2 записи, а внизу также отображается столбец подкачки. -->
<%
'Открываем базу данных
Установить conn = Server.CreateObject("ADODB.Connection")
strconn="Driver={sql server};server=localhost;database=northwind;uid=sa;pwd=sa;"
conn.Open strconn
'Получить адрес этой страницы
Тусклое имя файла, позиция
имя_файла = Request.ServerVariables("имя_скрипта")
позиция = InstrRev(имя_файла,"/")+1
имя_файла = Mid(имя_файла,позиция)
'Открываем набор записей www.downcodes.com
set rs=server.CreateObject("adodb.recordset")
rs.open "выберите заголовок, имя, фотопуть из порядка сотрудников по идентификатору сотрудника", conn,1,1
%>
<!-- Форма отображения товара-->
<table width="90%" height="300" border="0" align="center">
<%
если нет (rs.bof и rs.eof), то
страниц=4
rs.pagesize=страницы
если не пусто(Request.QueryString("страница")), то
thispage=clng(Request.QueryString("страница"))
еще
эта страница=1
конец, если
rscount=rs.recordcount
если эта страница="" то эта страница=1
если эта страница<1, то эта страница=1
если (thispage-1)*pages>rscount тогда
если (rscount страниц мода) = 0, то
thispage=rscountpages
еще
эта страница=rscountpages+1
конец, если
конец, если
если(rscount страниц мода)=0 тогда
allpages=rscountpages
еще
allpages=rscountpages+1
конец, если
rs.absolutepage=эта страница
я = 1
%>
<тр>
<%do, пока не rs.eof и страницы>0 %>
<td valign="top"><a href="<%=rs("PhotoPath")%>" target="_blank"><img src="<%=rs("PhotoPath")%>" alt= "" width="100" height="100" border="0"></a><br>
<%=rs("titleofcourtesy")&rs("firstname")%> </td>
<%
'Деление столбцов в основном выполняется с помощью следующего решения. В этом примере в каждой строке отображаются два столбца.
если (i mod 2) =0, то
%>
</tr><tr>
<%конец, если%>
<%
страницы = страницы - 1
rs.movenext
я=я+1
петля
конец, если
%>
</таблица>
<!-- /Форма отображения товара-->
<!-- Форма страницы продукта-->
<table width="90%" border="0" align="center">
<тр>
<td> <центр>
Всего страниц <%=allpages%> Текущая страница <%= thispage %>
<% если эта страница<>1, то %>
<a href="<%=filename&"?page=1"%>">Главная страница</a> <a href="<%=filename&"?page="&(thispage-1)%>">Предыдущая страница </а>
<% Конец Если %>
<% если эта страница<>все страницы, то %>
<a href="<%=filename&"?page="&(thispage+1)%>">Следующая страница</a> <a href="<%=filename&"?page="&allpages&""%>" >Последняя страница</a>
<% Конец Если %>
</center></td>
</tr>
</таблица>
<!-- /Форма страницы продукта-->
