onlytiancai [trabajo original]
<!--Para mejorar el rendimiento de los programas Asp, las personas a menudo almacenan en caché los datos de uso frecuente en la Aplicación,
Pero, ¿cómo se actualiza la aplicación después de modificar la base de datos? Este artículo le proporciona una solución razonable.
Si alguien tiene un algoritmo mejor, discútalo en el hilo, gracias.
-->
<%
Clase wawa_app_getrows
Función pública wawa_Get_List(strapp,strconn,strsql)
'************************************
'Función: extrae la matriz de la aplicación. Si los datos de la aplicación están vacíos, llame a la función wawa_Get_Rows() para asignar un valor a la aplicación.
', puede borrar el valor de la aplicación correspondiente para vaciarlo al modificar la base de datos, de modo que la aplicación se actualice automáticamente al navegar.
' Si actualiza la base de datos (por ejemplo, agrega, modifica o elimina datos), elimine las variables de aplicación correspondientes después de modificar la base de datos,
'Utilice la siguiente declaración para borrar el valor de la aplicación especificada, donde el parámetro strapp es el nombre de la variable de la aplicación que se eliminará
' aplicación.Contenido.Remove(strapp)
' www.downcodes.com
'************************************
wawa tenue
wawa = Aplicación (correa)
Si está vacío (wawa) entonces
wawa = wawa_Get_Rows(strconn,strsql)
Aplicación (correa) = wawa
Terminar si
wawa_Get_List = wawa
Función final
Función pública wawa_Get_Rows(strconn,strsql)
'************************************
'Función: leer registros de la base de datos y usar el método getrows
'Guarda el registro en un array
'
'************************************
Dim rs_wawa
Establecer rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Abrir strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.Cerrar
Establecer rs_wawa = Nada
Función final
Fin de clase
%>
<!-- Aquí hay un ejemplo para ilustrar cómo usar la clase anterior -->
<%
correa tenue, strsql, strconn
strapp="xinwendongtai"
strsql="seleccione los 5 mejores id, título de wen donde lei=161 ordene por id desc"
strconn="Controlador={servidor SQL};servidor=192.168.0.110;base de datos=nuevo;uid=sa;pwd=sa;"
establecer wawa_temp=nueva wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<ancho de tabla="100%" borde="0" espacio entre celdas="1">
<% Si ubound(arr_xinwendongtai)<>0 Entonces %>
<% para i=0 a ubound(arr_xinwendongtai,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% siguiente %>
<%Más%>
<tr>
<td>Aún no hay noticias</td>
</tr>
<% Finalizar si %>
</tabla>