Научите, как кэшировать и повысить производительность программ ASP

Чтобы улучшить производительность программ ASP, люди часто часто используют кэшированные данные в приложениях. Эта статья посвящена тому, чтобы научить вас кэшировать и улучшить производительность программ ASP редактором False New Technology Channel. Я надеюсь, что вам будет полезно изучить эти знания!

Научите, как кэшировать и повысить производительность программ ASP

<%

Класс wawa_app_getrows

публичная функция wawa_get_list (strapp, strconn, strsql)

'**********************************************

Функция: извлечь массив из приложения. Если данные в приложении являются пустым значением, вызовите функцию wawa_get_rows (), чтобы назначить значение приложению.

«Вы можете очистить соответствующее значение приложения в пустое при изменении базы данных, и приложение будет автоматически обновляться при просмотре.

«Если вы обновляете базу данных (например, добавление, изменение или удаление данных), удалите соответствующую переменную приложения после изменения базы данных.

'Используйте следующее оператор, чтобы очистить указанное значение приложения, где параметр Strapp - это имя переменной приложения, которая должна быть удалена

'Application.contents.remove (strapp)

'www.knowsky.com

'**********************************************

Dim Wawa

wawa = приложение (Strapp)

Если Импти (Вава), тогда

wawa = wawa_get_rows (strconn, strsql)

Приложение (Strapp) = wawa

Конец, если

wawa_get_list = wawa

Конечная функция

публичная функция wawa_get_rows (strconn, strsql)

'**********************************************

'Function: прочитать записи из базы данных и используйте метод GetRows

'Сохраните запись в массив

'

'**********************************************

Dim rs_wawa

Установить rs_wawa = createObject ("adodb.recordset")

rs_wawa.open strsql, strconn, 1,1

wawa_get_rows = rs_wawa.getrows ()

rs_wawa.close

Установить rs_wawa = ничего

Конечная функция

Конечный класс

%>

<%

Dim Strapp, Strsql, Strconn

strapp = "xinwendongtai"

strsql = "Выберите Top 5 ID, заголовок из Wen, где lei = 161 порядок от id desc"

strConn = "Driver = {SQL Server}; Server = 192.168.0.110; Database = new; uid = sa; pwd = sa;"

Установите wawa_temp = new wawa_app_getrows

arr_xinwendongtai = wawa_temp.wawa_get_list (strapp, strconn, strsql)

%>

< % If ubund (arr_xinwendongtai) <> 0, тогда %>

< % для i = 0 до ubund (arr_xinwendongtai, 2) -1 %>

< % следующее %>

< % Else %>

< % End, если %>

Приведенная выше статья учит вас, как кэшировать и улучшать производительность программ ASP. Я считаю, что у всех есть определенное понимание. Если вы хотите узнать больше технической информации, пожалуйста, продолжайте обращать внимание на неправильный новый канал технологии!