<%
'==========================================================================================================
'Xdownpageasp версия
'Версия 1.00
'CodeByzykj2000
«Электронная почта: [email protected]
'BBS: http: //bbs.513soft.net
«Эта программа может быть использована и модифицирована бесплатно. Я надеюсь, что моя программа может принести удобство вашей работы
'Но, пожалуйста, сохраните выше, пожалуйста, отказ
'
'Функции программы
«Эта программа в основном инкапсулирует часть подкрепления данных, а часть отображения данных полностью настроена пользователем.
'Поддерживать несколько параметров URL -адреса
'
'Инструкции для использования
'Описание параметра программы
'Papgesize определяет количество записей для каждой страницы страницы пейджинга
'Getrs возвращает набор записей на странице. Это свойство только читается
'GetConn получает подключение к базе данных
'Getsql получает заявление запроса
'Описание метода программы
'ShowPage отображает панель навигации страницы, единственный публичный метод
'
'==========================================================================================================
Constbtn_first = "<fontface =" "webdings" "> 9 </font>" 'определить стиль отображения кнопки первой страницы
Constbtn_prev = "<fontface =" "webdings" "> 3 </font>" 'Определите стиль отображения кнопки на предыдущей странице
Constbtn_next = "<fontface =" "webdings" "> 4 </font>" 'определить стиль отображения следующей страницы.
Constbtn_last = "<fontface =" "webdings" ">: </font>" 'Определите стиль отображения последней страницы.
Constxd_align = "center" определяет выравнивание информации о пейджинге
Constxd_width = "100%" 'Определяет размер информационного поля пейджинг
ClassXdownPage
Privatexd_pagecount, xd_conn, xd_rs, xd_sql, xd_pagesize, str_errors, int_curpage, str_url, int_totalpage, int_totalrecord, xd_surl
'=========================================================================================
'Pageize Property
'Установите размер страницы для каждой страницы
'=========================================================================================
Publicpropertyletletpagesize (int_pagesize)
Ifisnumeric (int_pagesize) тогда
Xd_pagesize = clng (int_pagesize)
Еще
str_error = str_error & "PageSize Параметр неверен"
ShowerRor ()
Эндиф
EndProperty
PublicpropertygetPagesize
Ifxd_pagesize = "" или (не (isnumeric (xd_pagesize)))
PageSize = 10
Еще
PageSize = XD_PAGESIZE
Эндиф
EndProperty
'=========================================================================================
'Getrs Property
'Вернуться к набору записи на странице
'=========================================================================================
Publicpropertygetgetrs ()
Setxd_rs = server.createObject ("adodb.recordset")