onlytiancai [оригинальная работа]
<!--Чтобы повысить производительность программ Asp, люди часто кэшируют часто используемые данные в приложениях,
Но как обновить приложение после изменения базы данных? В этой статье предлагается разумное решение.
Если у кого-то есть лучший алгоритм, пожалуйста, обсудите его в теме, спасибо.
-->
<%
Класс wawa_app_getrows
общедоступная функция wawa_Get_List(strapp,strconn,strsql)
'************************************
'Функция: извлечь массив из приложения. Если данные в приложении пусты, вызовите функцию wawa_Get_Rows(), чтобы присвоить значение приложению.
' , вы можете очистить соответствующее значение приложения и сделать его пустым при изменении базы данных, чтобы приложение автоматически обновлялось при просмотре.
' Если вы обновляете базу данных (например, добавляете, изменяете или удаляете данные), то после изменения базы данных удалите соответствующие переменные приложения,
'Используйте следующий оператор, чтобы очистить указанное значение приложения, где параметр Strapp — это имя удаляемой переменной приложения.
' application.Contents.Remove(ремешок)
' www.downcodes.com
'************************************
Дим вава
wawa = Приложение (ремешок)
Если пусто(вава) Тогда
wawa = wawa_Get_Rows(strconn,strsql)
Приложение (ремешок) = вава
Конец, если
wawa_Get_List = вава
Конечная функция
public Function wawa_Get_Rows(strconn,strsql)
'************************************
'Функция: прочитать записи из базы данных и использовать метод getrows
'Сохраняем запись в массив
'
'************************************
Дим rs_wawa
Установите rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Открыть strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.Close
Установить rs_wawa = Ничего
Конечная функция
Конечный класс
%>
<!-- Вот пример, иллюстрирующий использование вышеуказанного класса -->
<%
тусклый ремешок, strsql, strconn
Strapp="xinwendongtai"
strsql="выбрать 5 лучших идентификаторов, заголовок из wen, где lei=161, упорядочить по идентификатору"
strconn="Driver={sql server};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
set wawa_temp=new wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<table width="100%" border="0" cellpacing="1">
<% Если ubound(arr_xinwendongtai)<>0 Тогда %>
<% для i=0 до ubound(arr_xinwendongtai,2)-1 %>
<тр>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% следующий %>
<%Еще%>
<тр>
<td>Новостей пока нет</td>
</tr>
<% Конец Если %>
</таблица>