| Ниже приведено фрагмент кода: '********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ********************************* ** Название этой программы: «Infinite Stream» Программа пейджинга '** Автор: Арбитр (AASX) '** Версия: Миллион Уровень ** ** QQ: 222222xx '** Электронная почта: [email protected] '** http://www.images.org/ '********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ********************************* ** '** [слова автора] ** ** Программа пейджинга, несомненно, является более хлопотной вещью среди многих функций сетевой программы '** Большинство людей все еще используют традиционный метод подключения (rs.painsize = xx), чтобы понять ** Операции базы данных знают, что этот традиционный метод имеет недостаток: когда страница открыта впервые, ** Он будет читать все наборы записей. ** Страницы также будут очень медленными, оккупирующими ресурсами. Для данных более 100 000 или более ** Библиотека Этот традиционный метод подкисения стал очень слабым, не говоря уже о миллионах уровней (я вообще не могу трахнуть '** делать). По этой причине я побудил меня сделать эту программу. ** '** [Программа функция] ** '** Операция на пышной основе для крупных баз данных, идеальный объем записи операционных данных составляет 2 миллиона человек. ‘** (Max Level Edition будет ограничивать бесчисленные величины, и независимо от того, насколько велика база данных, скорость поворота страницы - '** без изменений), это программа пейджинга версии на уровне миллиона в Saiyang 1G, Memory 512, Win2k Ring '** Тестовые данные в области: ** ** SQLServer 2K 100 000 записей показывают 20 штук на страницу: ** Средняя скорость поворота страницы: 45 мс ** SQLServer 2K 1 миллион записей отображает 20 штук на страницу: ** Средняя скорость поворота страницы: 350 мс ** ** '** [Pagling Principle] ** ** Эта программа больше не использует метод RS.Pearsize для страниц, а тип курсора подключает базу данных '** не использует Conn, 1, x, но Conn, 0,1, который должен быть самым быстрым типом курсора, не ** Думает, что это усложняет программу. ** Это должен быть мой стиль программирования. Центр пейджинг '** «Бесконечный поток»: прочитайте только те записи, которые необходимо отображать на страницу, больше не похожа на традицию '** Программа Pagling считывает все предварительные данные, что является самым большим преимуществом этой программы, меньше ресурсов, то же самое ** Рациональная скорость также была значительно улучшена, особенно когда количество данных больше, его скорость преимущества '** более очевидно (всего около 350 мс). ** Когда программа выполнена, первая запись, отображаемая Curcorbegin и Curcorend '** Запись и значение идентификатора последней записи, как отметка следующей страницы, а затем используйте топ XX, чтобы взять '** Требуемые данные показывают это, а затем записывают значение идентификатора. ** '** [Заключение] ** ** Эта программа представляет собой общую версию, предоставленную различным любителям программ для изучения и использования, перепечатки, распространения, ремонта '** Измените или используется для других целей, пожалуйста, уважайте усердную работу автора и укажите источник. ** Если в этой программе есть недостатки, такие как ошибка и оптимизация, перейдите в веб -разработку www.csdn.net/ ** Аспиральная колонка выпустила обсуждение, для разработки индустрии программного обеспечения Китая, пожалуйста, не стоять самостоятельно :) ** '********************************************* ********************************************* ********************************************* ********************************************* ********************************************* **************, ********************************** Опция явная 'Response.flush Дим начал, в конце BERINTIME = таймер Dim Conn, SQLSTR, RS, Defrecordnum, Cursorbegin, Cursorend, Curpagenum, Hav, Hav Defrecordnum = 20 '-------------- Получите соответствующие параметры -------------------------------------- --------------------- Если запрос ("cursorbegin") = "then cursorbegin = 0 else cursorbegin = request (" cursorbegin "))))) Если запрос ("cursorend") = "cursorend = 0 else cursorend = request (" cursorend ") Если запрос ("curpagenum") <> "Затем Curpagenum = clng (запрос ("curpagenum") Ifurpagenum <= 0, затем капагенум = 1 Еще Curpagenum = 1 Конец, если HAV = запрос ("HAV") Если hav = "" Тогда hav = "Далее" '------------------------------------------------- ------------------------------------------------------ --------------------------------- '------------ 显示翻页内容函数 ---------- Функция TurnPageFS (DeprecordNum) Тусклый Пока не (rs.eof) и n <decprecordnum n = n 1 Response.write "<Ter>" & _ "<td bgcolor = 'efefef'>" & rs (0) & "</td>" & _ "<td bgcolor = 'efefef'>" & rs (1) & "</td>" & _ "<td bgcolor = 'efefef'>" & rs (2) & "</td>" & _ "<td bgcolor = 'efefef'>" & rs (3) & "</td>" & _ "<td bgcolor = 'efefef'>" & rs (4) & "</td>" & _ "<td bgcolor = 'efefef'>" & rs (5) & "</td>" & _ "</tr>" "" Если n = 1 cursorbegin = rs (0) Если n = defrecordnum или rs.eof then cursorend = rs (0) Rs.movenext Венд Конечная функция '------------------------------------------------- ------------------------ Установить conn = server.createObject ("adodb.connection") 'SQLSTR = "Provider = microsoft.jet.oledb.4.0; Data Source =" & server.mappath ("mlodata.mdb"))) Sqlstr = "Driver = {sql server}; server = arbiter; uid = arbiter; pwd = 123456; database = mldata" "" "" Conn.Open SQLSTR '---------- Статистика Общая записи/общие страницы ------------------------------------ '-Ps: рекомендуемый счет (ID), ID-автоматический номер и индекс, в противном случае скорость может быть значительно скидка '-PS: эта статистика является частью наиболее потребляемых ресурсов в этой программе. Dim TotalRcords, TotalPages SQLSTR = "SELECT COUNT (ID) в качестве Recornsum из ABC" Установите rs = const.execute (sqlstr, 0,1) TotalRecords = rs ("recordsum") TotalPages = ABS (int (TotalRecords/defrecordnum*(-1))))) Rs.close Установить RS = ничего '-------- Выберите соответствующие строки SQL на основе HAV ------- Выберите Case (HAV) Дело "назад" Cursorend = cursorbegin Sqlstr = "select top" & defalecordnum & "_ ID, заголовок, имя файла, K, imgsize, nameson _ От ABC, где id <»& cursorbegin & _ "И ID в (выберите Top" & defrecordnum_ & "ID от ABC, где ID <" & cursorbegin_ & "Заказ от id desc) порядок по идентификатору" Дело "Далее" Sqlstr = "select top" & defrecordnum_ & "Id, title, имя файла, K, imgsize, имена из ABC, где ID>" & cursorend & _ "Порядок от идентификатора" Конец выбора Установите rs = const.execute (sqlstr, 0,1) %>
|