Recomendado: Configurações de instalação do Windows 2003 IIS Instalação Capítulo 2003: Instalação padrão sem IIS. Para instalar, clique em Iniciar -> Ferramentas Administrativas -> Configure o assistente do servidor e depois passo a passo. É hora de selecionar itens na lista. Selecione o servidor de aplicativos (IIS, ASP.NET) na lista
Exemplo de demonstração: primeiro crie um banco de dados simples, escreva uma função para lê -lo e escreva uma temp de variável escura:
Código ASP
| A seguir, o conteúdo citado: <% Função DisplayRecords () Dim SQL, Conn, RS sql = selecione ID, [szd_f], [szd_t] do admin Definir Conn = Server.CreateObject (Adodb.Connection) Conn.open driver = {Microsoft Access Driver (*.mdb)}; Dbq = & server.mappath (db.mdb) Set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1, 3 Se não Rs.eof então Dim temp temp = <largura da tabela = 90% alinhado = centro Temp = Temp & Border = 1 BorderColor = Silver Temp = Temp & Cellpacing = 2 CellPadding = 0> temp = temp & <tr bgcolor =#ccddee> <td width = 5% temp = temp &> id </td> <td> operação </td> temp = temp & <td> valor </td> </tr> Embora não seja Rs.eof temp = temp & <tr> <td bgcolor =#ccddee> temp = temp & rs (id) & </td> <td> & rs (szd_f) temp = temp & </td> <td> & rs (szd_t) temp = temp & </td> </tr> rs.movenext Wend temp = temp & </ table> DisplayRecords = temp Outro DisplayRecords = Dados não disponíveis. Final se rs.close Conn.Close Definir rs = nada Defina conn = nada Função final 'Escreva para cache Função DisplayCachedRecords (Secs) Dim retval, datval, temp1 retval = aplicação (cache_demo) datval = aplicativo (cache_demo_date) Se datVal = então datVal = DATADD (s, Secs, agora) Final se temp1 = datediff (s, agora, datval) Se temp1> 0 e retval <> então DisplayCachedRecords = retVal 'Código de depuração: Response.write <b> <font color = verde> leia dados usando cache Response.write ... (& temp1 e segundos restantes) </font> </b> Response.write <br> <br> Outro Dim temp2 'Altere a displayRecords () para a função cuja 'Valor que você deseja armazenar em cache Temp2 = DisplayRecords () Application.lock Aplicação (cache_demo) = temp2 Aplicativo (cache_demo_date) = DATADD (S, Secs, agora) Application.unlock DisplayCachedRecords = temp2 'Código de depuração: Response.write <b> <font color = Red> Refresh Cache Display ... Response.write </font> </b> <br> <br> Final se Função final %> <!- Response.Write DisplayRecords () -> <html> <head> <título> Use o cache para ler dados do banco de dados </ititle> <estilo> Body, P, TD {Font-Family: Sans-Serif; tamanho de fonte: 8pt; } TD {Padding-Left: 5; } </style> </head> <Body> <% Dim T1, T2 T1 = Timer Response.Write DisplayCachedRecords (20) T2 = Timer %> <p align = Center> Tempo de permanência: < %= esquerda ((CDBL ((T2 - T1) * 1000.0), 5) %> ms </p> </body> </html> |
Compartilhar: o uso de componentes do Adrotator ASP no tutorial básico do ASP O componente ASP Adrotator sempre que um usuário insere um site ou atualiza uma página, o componente ASP Adrotator cria um objeto Adrotator para exibir uma imagem diferente. Sintaxe: o seguinte é o conteúdo referenciado