Рекомендуется: настройки установки Windows 2003 IIS Установка Глава 2003: Установка по умолчанию без IIS. Чтобы установить, нажмите «Пуск» -> Административные инструменты -> Настройте мастер сервера, а затем шаг за шагом. Пришло время выбрать элементы в списке. Выберите сервер приложений (IIS, ASP.NET) из списка
Пример демонстрации: сначала создайте простую базу данных, напишите функцию, чтобы прочитать ее, и напишите температуру с тусклой переменной:
Код ASP
| Ниже приведено цитируемое содержание: <% Функция DisplayRecords () Dim SQL, Conn, Rs SQL = SELECT ID, [SZD_F], [SZD_T] из Admin Установить conn = server.createObject (adodb.connection) conn.open Driver = {Microsoft Access Driver (*.mdb)}; Dbq = & server.mappath (db.mdb) Установить rs = server.createObject (adodb.recordset) Rs.open SQL, Conn, 1, 3 Если не rs.eof, то Dim Temp Temp = <ширина таблицы = 90% Align = Center Temp = Temp & Border = 1 Bordercolor = серебро temp = temp & cellpacing = 2 cellpadding = 0> temp = temp & <tr bgcolor =#ccddee> <td width = 5% temp = temp &> id </td> <td> операция </td> temp = temp & <td> значение </td> </tr> Хотя не рупий temp = temp & <tr> <td bgcolor =#ccddee> temp = temp & rs (id) и </td> <td> & rs (szd_f) temp = temp & </td> <td> & rs (szd_t) temp = temp & </td> </tr> Rs.movenext Венд temp = temp & </table> DisplayRecords = Temp Еще DisplayRecords = Данные недоступны. Конец, если Rs.close Conn.close Установить RS = ничего Установить conn = ничего Конечная функция 'Напишите в Cache Функция DisplayCachedRecords (Secs) Dim Retval, Datval, Temp1 retval = приложение (cache_demo) datval = приложение (cache_demo_date) Если datval = то datval = dateadd (s, secs, сейчас) Конец, если Temp1 = Datediff (s, теперь, Datval) Если temp1> 0 и retval <> then DisplayCachedRecords = RETVAL 'Код отладки: Ответ. Response.write ... (& Temp1 & Seconds) </font> </b> Response.write <br> <br> Еще Dim Temp2 'Изменить DisplayRecords () на функцию, чья 'Ценность, которую вы хотите кэшировать temp2 = displayRecords () Application.lock Приложение (cache_demo) = temp2 Приложение (cache_demo_date) = dateadd (s, secs, сейчас) Application.unlock DisplayCachedRecords = temp2 'Код отладки: Ответ. Response.write </font> </b> <br> <br> Конец, если Конечная функция %> <!- Response.write displayRecords () -> <html> <голова> <TILE> Используйте кэш для чтения данных из базы данных </title> <style> Body, p, td {font-family: sans-serif; размер шрифта: 8pt; } td {Padding-left: 5; } </style> </head> <тело> <% Dim T1, T2 T1 = таймер Response.write displaycachedrecords (20) T2 = таймер %> <p align = center> Время задержки: < %= слева ((CDBL ((T2 - T1) * 1000,0)), 5) %> MS </p> </body> </html> |
Поделиться: использование компонентов ASP Adrotator в базовом учебном пособии ASP Компонент ASP Adrotator Каждый раз, когда пользователь входит на веб -сайт или обновляет страницу, компонент ASP Adrotator создает объект Adrotator для отображения другой картинки. Синтаксис: ниже приведен указанный контент