На этой странице используется 0 курсор, то есть Rs.open SQL, Conn, 0,1. Но это не чувствует, что это намного быстрее, а время под проживанием 100 000 фрагментов данных составляет более 300 секунд.
Кода -копия выглядит следующим образом:
<%
'*********************************
«Имя: класс страниц
Дата: 2005/12/3
'Автор: Ленг Юэ, Xilou
'Веб -сайт: www.xilou.net | www.chinacms.org
'Описание: нет
'Copyright: пожалуйста, обратитесь к источнику для перепечатки, автор
'*********************************
Класс страница
Частный Currpage
Частный Pagen
Частный Urlstr
Частный Tempstr
Частный Errinfo
Частный ISERR
Частный общий рекорд
Частная общая страница
Общественные пейджеры
Частный темп (11)
Частный Tempb (8)
'--------------------------------------------------------------
Private sub class_initialize ()
CurrPage = 1 '// Отображение по умолчанию текущей страницы - первая страница
Pagen = 10 '// По умолчанию 10 части данных отображаются на страницу
Urlstr = "#"
Tempstr = ""
Errinfo = "errinfo:"
Iserr = false
Конец суб
Private sub class_terminate ()
Если isobject (пейджеры), тогда
Pagers.close
Установить пейджерс = ничего
Конец, если
Стереть темпа
Стереть Tempb
Конец суб
'-----------------------------------------------------------
'// Получить текущий номер страницы
Общественная недвижимость Let CurrentPage (val)
CurrPage = val
Конец собственности
Общественная недвижимость получить текущую страницу ()
CurrentPage = currPage
Конец собственности
'// Получить количество отображаемых элементов на страницу
Общественная собственность пусть Pagenum (val)
Pagen = val
Конец собственности
Общественная собственность Get Pagenum ()
Pagenum = pagen
Конец собственности
'// Получить URL
Общественная собственность пусть url (val)
Urlstr = val
Конец собственности
Общественная недвижимость получить URL ()
Url = urlstr
Конец собственности
'// Получить шаблон
Общественная собственность, пусть Temp (val)
Tempstr = val
Конец собственности
Общественная недвижимость получите Temp ()
Temp = tempstr
Конец собственности
'--------------------------------------------------------------
Public Sub Exec (SQL, Connobj)
При ошибке резюме следующим
SET PAGERS = server.createObject ("adodb.recordset")
Pagers.cursorlocation = 3 'Использование клиентских курсоров может повысить эффективность
Pagers.pagesize = pagen 'определить набор записей страницы номер, отображаемые на странице
Pagers.Open SQL, Connobj, 0,1
Если err.number <> 0, тогда
Err.clear
Pagers.close
Установить пейджерс = ничего
Errinfo = errinfo & "Ошибка Создание или открытие записей ..."
Iserr = true
Response.write errinfo
Response.end
Конец, если
TotalRecord = pagers.recordCount '// Что если это 0?
Если TotalRecord> = 1 тогда
'----------------------------------------------------------------------------начинать
'// Рассчитайте общее количество страниц, PS, почему бы не использовать Pagers.PageCount?
'Если TotalRecord mod pagen = 0, то
'TotalPage = Pagers.RecordCount/Pagen
'Еще
'TotalPage = Pagers.RecordCount/Pagen
'TotalPage = ABS (int (TotalPage))
'End if
TotalPage = Pagers.PageCount
'// Обработка текущего номера полученной страницы, по умолчанию 1, поэтому, если вы не являетесь числовым типом, вы будете 1
Если isnumeric (currPage), то