Чтобы улучшить производительность программ 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. Я считаю, что у всех есть определенное понимание. Если вы хотите узнать больше технической информации, пожалуйста, продолжайте обращать внимание на неправильный новый канал технологии!