Para mejorar el rendimiento de los programas ASP, las personas a menudo usan datos en caché con frecuencia en aplicaciones. Este artículo se trata de enseñarle a almacenar en caché y mejorar el rendimiento de los programas ASP por parte del editor del canal de tecnología False New New. ¡Espero que sea útil para usted aprender este conocimiento!
Enseñarle cómo almacenar en caché y mejorar el rendimiento de los programas ASP
<%
Clase wawa_app_getrows
función pública wawa_get_list (strapp, strconn, strsql)
'**************************************
'Función: extraiga una matriz de la aplicación. Si los datos en la aplicación son un valor vacío, 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 en vacío al modificar la base de datos, y la aplicación se actualizará automáticamente al navegar.
'Si actualiza la base de datos (como agregar, modificar o eliminar datos), elimine la variable de aplicación correspondiente después de modificar la base de datos.
'Use la siguiente declaración para borrar el valor de la aplicación especificado, donde el parámetro strapp es el nombre de la variable de aplicación que se eliminará
'Application.Contents.Remove (Strapp)
'www.knowsky.com
'**************************************
Dim Wawa
wawa = aplicación (strapp)
Si es Isempty (Wawa) entonces
wawa = wawa_get_rows (strconn, strsql)
Aplicación (strapp) = wawa
Final 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 use el método GetRows
'Guarde el registro en una matriz
'
'**************************************
Dim RS_WAWA
Establecer rs_wawa = createObject ("ADODB.RecordSet")
rs_wawa.open strsql, strconn, 1,1
wawa_get_rows = rs_wawa.getrows ()
rs_wawa.close
Establecer rs_wawa = nada
Función final
Clase final
%>
<%
Dim Strapp, strsql, strconn
strapp = "xinwendongtai"
strsql = "Seleccione Top 5 ID, Título de wen donde lei = 161 Orden por ID DESC"
strconn = "controlador = {servidor sql}; servidor = 192.168.0.110; base de datos = new; uid = sa; pwd = sa;"
establecer wawa_temp = nuevo wawa_app_getrows
arr_xinwendongtai = wawa_temp.wawa_get_list (strapp, strconn, strsql)
%>
< % Si ubund (arr_xinwendongtai) <> 0 entonces %>
< % para i = 0 a Ubund (arr_xinwendongtai, 2) -1 %>
< % siguiente %>
< % Else %>
< % Final si %>
El artículo anterior le enseña cómo almacenar en caché y mejorar el rendimiento de los programas ASP. Creo que todos tienen un cierto entendimiento. Si desea saber más información técnica, ¡continúe prestando atención al nuevo canal de tecnología incorrecto!