onlytiancai [trabalho original]
<!--Para melhorar o desempenho dos programas Asp, as pessoas geralmente armazenam em cache dados usados com frequência em aplicativos,
Mas como você atualiza o aplicativo depois de modificar o banco de dados? Este artigo fornece uma solução razoável.
Se alguém tiver um algoritmo melhor, por favor discuta no tópico, obrigado
-->
<%
Classe wawa_app_getrows
Função pública wawa_Get_List(strapp,strconn,strsql)
'************************************
'Função: Extraia o array do aplicativo. Se os dados no aplicativo estiverem vazios, chame a função wawa_Get_Rows() para atribuir um valor ao aplicativo.
' , você pode limpar o valor do aplicativo correspondente para vazio ao modificar o banco de dados, para que o aplicativo seja atualizado automaticamente durante a navegação.
' Se você atualizar o banco de dados (por exemplo, adicionar, modificar ou excluir dados) e remover as variáveis de aplicativo correspondentes após modificar o banco de dados,
'Use a seguinte instrução para limpar o valor do aplicativo especificado, onde o parâmetro strapp é o nome da variável do aplicativo a ser removida
'aplicativo.Contents.Remove(strapp)
' www.downcodes.com
'************************************
Dim wawa
wawa = Aplicação(strapp)
Se estiver vazio (wawa) Então
wawa = wawa_Get_Rows(strconn,strsql)
Aplicação(strapp) = wawa
Terminar se
wawa_Get_List = wawa
Função final
Função pública wawa_Get_Rows(strconn,strsql)
'************************************
'Função: ler registros do banco de dados e usar o método getrows
'Salva o registro em um array
'
'************************************
Dim rs_wawa
Definir rs_wawa = CreateObject("ADODB.Recordset")
rs_wawa.Open strsql,strconn,,1,1
wawa_Get_Rows = rs_wawa.GetRows()
rs_wawa.Fechar
Definir rs_wawa = Nada
Função final
Fim da aula
%>
<!-- Aqui está um exemplo para ilustrar como usar a classe acima -->
<%
dim strapp,strsql,strconn
strapp = "xinwendongtai"
strsql = "selecione os 5 principais id, título de wen onde lei = 161 ordene por id desc"
strconn="Driver={servidor sql};server=192.168.0.110;database=new;uid=sa;pwd=sa;"
definir wawa_temp = novo wawa_app_getrows
arr_xinwendongtai=wawa_temp.wawa_Get_LIst(strapp,strconn,strsql)
%>
<table width="100%" border="0" cellpacing="1">
<% Se ubound(arr_xinwendongtai)<>0 Então %>
<% para i=0 para ubound(arr_xinwendongtai,2)-1 %>
<tr>
<td><a href="view.asp?id=<%= arr_xinwendongtai(0,i) %>"><%= arr_xinwendongtai(1,i) %></a></td>
</tr>
<% próximo %>
<%outro%>
<tr>
<td>Ainda não há novidades</td>
</tr>
<% Fim se %>
</tabela>