Рекомендуется: Parse ASP Экземпляр: Slide News Code Ниже приведено ссылочное содержание:!-это файл домашней страницы-> html> Head> Meta http-equiv = content-type content =
1. Создать объект записи.
| Ниже приведено цитируемое содержание: Dim objmyrst Установить objmyrst = server.createObject (adodb.recordset) objmyrst.cursorlocation = AduseclientBatch 'Клиент может быть обработан партией objmyrst.cursortype = adposenstatic 'тип курсора статичен |
Примечание. Объект записи не может быть создан с использованием оператора SET objmyrst = connection.excute strsql, поскольку созданный объект записи, который он создан, является AdassenFowardonly, не поддерживает набор записей.
2. Откройте объект записи
| Ниже приведено цитируемое содержание: Dim Strsql strsql = select * из ietable objmyrst.oepn strsql, activeconnection ,, adcmdtext 3. Установите свойство PageSize of RecordSet objmyrst.pageize = 20 По умолчанию PageSize - 10 |
3. Установите свойство AbsolutePage of Records.
| Ниже приведено цитируемое содержание: Dim IntcurrentPage IntcurrentPage = 1 objmyrst.absolutepage = intcurrentPage AbsolutePage составляет 1 до уровне |
4. Отображение данных
| Ниже приведено цитируемое содержание: Response.write (<Таблица>) PrintfieldName (objmyrst) Для i = 1 to objmyrst.pagesize Printfieldvalue (objmyrst) objmyrst.movenext Если objmyrst.eof, то выходите на Следующий Response.write (</table>) |
иллюстрировать:
1. AdposenStatic, AdusecilentBatch, ADCMDText - это константы, определяемые Adovbs.inc. Если вы хотите его использовать, скопируйте Adovbs.inc в текущий каталог и включите его в программу.
| Ниже приведено цитируемое содержание: <! -#Включите файл = Adovbs.inc-> 2. Функции кода PrintFielName и PrintFieldValue заключаются в следующем: <% Функция PrintFieldName (objmyrst) 'Параметр objmyrst - это объект записи 'Определите счет Dim objfld Response.write <tr bgcolor = '#cccccc'> Для каждого Objfld в objmyrst.fields Response.write <td> & objfld.name & </td> Следующий Response.write (</tr>) Конечная функция Функция PrintfieldValue (objmyrst) 'Параметр objmyrst - это объект записи 'Определите счет Dim objfld Response.write (<tr>) Для каждого Objfld в objmyrst.fields 'Response.write <td> & objmyrst.fields (intloop) .value & </td> Response.write <td> & objfld.value & </td> Следующий Response.write (<tr>) Конечная функция %> |
Поделиться: интерпретировать код запроса с несколькими ключами В веб -разработке я часто сталкиваюсь с несколькими парами ключевых слов отдельных полевых запросов, которые я обычно реализую с помощью динамических массивов. Конечно, несколько ключевых слов обычно разделены пространствами или. Я предполагаю, что несколько ключевых слов разделены пространствами, строка ключевого слова - это Keystr, а конкретный код