Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ricardo.frias

tempo de processamento de busca

Por , em ASP Clássico

Recommended Posts

ricardo.frias    0

ricardo.frias
Postado

Pessoal tenho uma página de busca em meu site que é a seguinte:

<!---#INCLUDE FILE="adovbs.inc"---><% response.buffer = "true" %><html><head><title>Consulta</title></head><body bgcolor="#FFFFFF" vlink="#0000FF"><%if request("keyword") = "" then%><font face="Verdana">Por favor digite uma palavra!</font><% else %><table border="0" width="100%" height="27">  <tr><td height="23"><form action="search1.asp" method="get"><p align="center">         <font face="Verdana">         <INPUT TYPE="text" NAME="keyword" SIZE="25" style="font-size: 8pt; font-family: Verdana; border: 1px solid #CCCCFF; color:#6699CC">         <INPUT TYPE="submit" VALUE="Busca" style="font-size: 8pt; font-family: Verdana; border: 1px solid #6699CC; background-color: #E7EFFA">        </font></p><p align="left"><font face="Verdana" size="1" color="#6699CC">>> </font><font face="Verdana" size="2" color="#6699CC">Resultado da busca para <b><%= request("keyword")%></b>.</font></p></form></td></tr></table><table border="0" width="100%">  <tr><%Set conn = Server.CreateObject("ADODB.Connection")conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("banco.mdb")Dim RS, sql set RS = Server.CreateObject("ADODB.Recordset")keyword = request("keyword")sql = "select * from banco where name like '%" & keyword & "%';"RS.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdTextIf  RS.EOF Thenresponse.write "<center><br><br><font face=""Verdana"" size=""3"" color=""#6699aa"">Nenhum registro encontrado</font></center>"elseif NOT RS.EOF thenRS.movefirst%> <font face="Verdana"> </font>        <td width="100%"><font face="Arial" size="2" color="#000080"><%= iResultCount %></font><font face="Verdana" size="2" color="#000080">. </font>        <b><font face="Verdana" size="2" color="#000080"><a href="<%= link %>"><%= name %></a></font></b><font face="Verdana">          <br>          </font>          <font face="Verdana" size="2" color="navy"><%= description %></font>        <br><br>        </td>      </tr>        <% RS.Movenext%><font face="Verdana"> </font>        </table><%RS.closeset RS=nothingend ifEND IF%>  </body></html>

O Salgado postou um código de tempo de processamento que é o seguinte:

<%Inicio_tempo = Timer 'Dispara a contagem%><!--Aqui vai todo o código de sua página--><%fim_tempo = Timer 'Pega o tempotempo_decorrido = fim_tempo - Inicio_tempoIf tempo_decorrido = 0 thenResponse.write "menos de 0.005"Elseresponse.write (Round(tempo_decorrido,4))End ifresponse.write " Segundos"%>

No meu código, aonde exatamente eu devo iniciar a contagem do tempo e aonde finalizar??? ObrigadoRicardo

Compartilhar este post

Link para o post
Compartilhar em outros sites

ricardo.frias    0

ricardo.frias
Postado

Danilo, valeu cara!!!

 

Só que dessa forma ele está disparando a contagem logo que a página é carregada. Eu gostaria de dispará-lo somente depois que a pessoa digitar a palavra e clicar em Buscar, entende?

 

Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Coloque a abertura do timmer depois do 1º "Else" (no inicio da rotina de pesquisa), e feche ele no "end if".

Assim ele te retornará somente qd for feita uma pesquisa!

 

 

Valeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito