Рекомендуется: набор функций работы файла ASP % '======================================================================================================================== адреса '========================================================================== ==================================================================================
<%@ language = vbscript codepage = 936%>
<%
Опция Явное «Обязательное определение переменных
Dim Idcount'total Количество записей
Dim Pages'number of Peage
Dim Pagec'total Количество страниц
Dim страница 'номер страницы
Dim Pagenc 'Количество номеров страниц, отображаемых на страницу = pagenc*2+1
pagenc = 2
Максимальное количество страниц Dim Pagenmax ', отображаемые на странице
Dim Pagenmin 'Минимальное количество страниц, отображаемых на странице
page = clng (запрос (page))
Dim Start 'время начала программы
Dim Endt 'время окончания программы
Dim DataFrom'Satatable имени
DataFrom = Таблица 1
Dim Conn, Rs
Dim DataPath 'Basbase Pass
Dim SQLID 'ID, необходимый для этой страницы
Dim'Address на этой странице
я = request.servervariables (path_info)
Dim SQL'sQL утверждение
Заявление о сортировке такси
'Такси = заказ от ID ASC' Положительная сортировка
Такси = заказ от id desc 'инвертированное сортирование
Dim I 'Integer используется для петли
start = timer ()
DataPath = DB.MDB База данных
Страницы = 30
'Соединение, чтобы открыть базу данных
Dim DB
db = db.mdb 'определить путь и имя базы данных
Установить conn = server.createObject (adodb.connection)
Conn.Open Provider = microsoft.jet.oledb.4.0; Data Source = & server.mappath (db)
Если err.number <> 0, тогда
Ошибка ссылки на базу данных response.write!
response.end ()
конец, если
'Получите общее количество записей
SQL = SELECT COUNT (ID) как iDCount из [& DataFrom &]
Установить rs = server.createObject (adodb.recordset)
Rs.open SQL, Conn, 0,1
idcount = rs (idcount) 'Получите общее количество записей
Если (idcount> 0), то, если общее количество записей = 0, оно не будет обработано
if (idcount mod pages = 0), то, если общее количество записей делится на оставшееся число каждой страницы, то = общее количество записей/числа каждой страницы + 1
pagec = int (idcount/pages) 'Получите общее количество страниц
еще
pagec = int (idcount/pages)+1'ste общее количество страниц
конец, если
'Получите идентификатор, необходимый для этой страницы =================================================================================
«Читать все записи» идентификационные значения, потому что есть только идентификатор, так что скорость очень быстрая
SQL = SELECT ID из [& DATAFROM &] TAXIS
Установить rs = server.createObject (adodb.recordset)
Rs.open SQL, Conn, 1,1
rs.pearsize = количество записей страниц, отображаемых на странице
Если страница <1, то Page = 1
Если страница> Pagec, то Page = pagec
Если pagec> 0, то Rs.absolutePage = Page
для i = 1 до rs.pageize
Если ref, то выйдите для
if (i = 1) тогда
sqlid = rs (id)
еще
sqlid = sqlid & & rs (id)
конец, если
Rs.movenext
следующий
'Конец идентификатора, необходимый для получения этой страницы ====================================================================
конец, если
%>
<! Doctype html public -// w3c // dtd html 4.01 Переход // en>
<html>
<голова>
<meta http-equiv = content-type content = text/html; charset = gb2312>
<Title> Quick Paging </title>
<ссылка rel = styleSheet href = page.css type = text/css>
</head>
<body bgcolor =#f2f2f2 leftmargin = 0 topmargin = 0 marginwidth = 0 marginheight = 0>
<Таблица ширина = 100% высота = 100% граница = 0 cellpadding = 20 сотока = 0>
<tr>
<td valign = middle> <width table = 100% высота = 100% граница = 0 cellpadding = 0 cellpacing = 1 bgcolor =#cccccc>
<tr>
<td valign = top bgcolor =#ffffff> <br> <width table = 90% border = 0 align = center cellpading = 0 cellpacing = 0 class = zw>
<tr>
<td> <strong> <font color =#ff6600> Quick Paging </font> </strong> </td>
</tr>
</table>
<br>
<Таблица ширины = 90% граница = 0 Align = Center CellPadding = 3 CellPacing = 1 bgcolor = cccccccc class = zw>
<tr align = center bgcolor =#9fcb07>
<td ширина = 9%> <strong> id </strong> </td>
<td width = 37%> <strong> Тема </strong> </td>
<td width = 33%> <strong> content </strong> </td>
<td ширина = 21%> <strong> время </strong> </td>
</tr>
<%
if (idcount> 0 и sqlid <>), то, если общее количество записей = 0, он не будет обработан.
'Используйте, чтобы выбрать данные на языке этой страницы, и прочитать только данные, необходимые для этой страницы, поэтому скорость быстро
SQL = SELECT [ID], [AAAA], [BBBB], [CCCC] из [& DataFrom &], где ID в (& SQLID &) & TACEIS
Установить rs = server.createObject (adodb.recordset)
Rs.open SQL, Conn, 0,1
В то время как (не Rs.eof) 'заполните данные в таблицу
%>
<tr bgcolor =#ffffff>
<td align = center> <%= rs (0)%> </td>
<td> <%= rs (1)%> </td>
<td> <%= rs (2)%> </td>
<td align = center> <%= rs (3)%> </td>
</tr>
<%
Rs.movenext
Венд
%>
</table>
<br>
<таблица ширины = 90% граница = 0 align = centre cellpadding = 2 cellpacing = 0 class = zw>
<tr align = center>
<td align = left> Существует в общей сложности <strong> <font color =#ff6600> <%= idcount%> </font> </strong> records, <strong> <font color =#ff6600> <%= page%> </font> </strong>/<%= pagec%>, и каждая страница <strong> <font> color =#ff6600> <%= pages%> </font> </strong> записи. </td>
</tr>
</table>
<таблица ширины = 90% граница = 0 align = centre cellpadding = 2 cellpacing = 0 class = zw>
<tr align = center>
<td align = справа>
<%
'Установите номер страницы, чтобы запустить ======================================================================
pagenmin = page-pagenc 'Рассчитайте значение начала номера страницы
pagenmax = page+pagenc 'Рассчитайте конечное значение номера страницы
if (pagenmin <1), то значение начала номера страницы меньше 1, тогда = 1
Пагенмин = 1
конец, если
Если (страница> 1), то номер страницы больше 1, она будет отображаться (первая страница)
response.write (<a href = '& my &? Page = 1'> <font color = '#000000'> Page 1 </font> </a>)
конец, если
Если (pagenmin> 1), то значение начала номера страницы больше 1, оно будет отображаться (обновление)
response.write (<a href = '& my &? Page = & page- (pagenc*2+1) &'> <font color = '#000000'> arved </font> </a>)
конец, если
if (pagenmax> pagec), то, если конечное значение числа страницы больше, чем общее количество страниц, то = общее количество страниц
pagenmax = pagec
конец, если
Для i = pagenmin to pagenmax
if (i = page) then
response.write (<font color = '#ff6600'> <strong> & i & </strong> </font>)
еще
response.write ([<a href = & my &? Page = & i &> <font color = '#000000'> & i & </font> </a>])
конец, если
следующий
Если (pagenmax <pagec), то конечное значение номера страницы меньше, чем общее количество страниц, оно будет отображаться (потом)
response.write (<a href = '& my &? Page = & page+(pagenc*2+1) &'> <font color = '#000000'> после </font> </a>)
конец, если
Если (Page <pagec), то если номер страницы меньше, чем общее количество страниц, она будет отображаться (последняя страница)
response.write (<a href = '& my &? Page = & pagec &'> <font color = '#000000'> Последняя страница </font> </a>)
конец, если
'Установите номер страницы, чтобы закончить =========================================================================
%> <script language = javascript>
<!-
функция gopage () {
window.location.href = <%= my%>? Page =+ page.value;
}
//->
</script>
Идти в
<Имя ввода = страница тип = текстовое значение = <%= page%> size = 5> страница
<input type = name = name = spect value = jump> </td>
</tr>
</table>
<%
конец, если
%>
<br>
<таблица ширины = 90% граница = 0 align = centre cellpadding = 2 cellpacing = 0 class = zw>
<tr>
<td align = center>
<p>
<%
endt = timer ()
Rs.close
Установить RS = ничего
Conn.close
установить conn = ничего
%>
<%= formatnumber ((endt-start)*1000,3)%> ms </p>
<p> <a href = http://stone-stone.vip.sina.com/ target = _blank> каменное пространство </a> </p> </td>
</tr>
</table>
<br> </td>
</tr>
</table> </td>
</tr>
</table>
</body>
</html>
Поделиться: советы по настройке ASP для использования fckeditor 1. Откройте файл fckconfig.js на языке по умолчанию (по сравнению с папкой fckeditor, то же самое ниже), изменить язык автоматического обнаружения на не обнаружение и изменить язык по умолчанию на упрощенный китайский: программа fckconfig.autodetectlanguage = false; Fckconfig.defaultlanguage = 'zh-cn'; 2. Откройте файл fckconfig.js в списке шрифтов, в списке шрифтов