Código fuente de 'Cliente conectado.asp'

<%@ LANGUAGE="VBSCRIPT" %>
<html>

<head>
<title>Cliente conectado - Códigos asp, programacion asp, descargas asp, rutinas asp</title>

</head>

<p align="center"><b><font size="3">Cliente conectado</font></b>
<body style="font-family: Arial; font-size: 9pt">

</p>
<h1>!!! AVISO !!!</h1>
<p>Esta página tiene código que puede usar el 100% <b>de ciclos de la CPU</b> durante 
más de 5 segundos. No ejecutes el código en servidores, restringe su uso como test.
</p>
<p>Usa este código para analizar los ciclos de CPU en tu servidor web. Pulsa el 
botón para parar la navegación, y verás cómo el número de ciclos de CPU desciende 
más rápido que si no utilizaras la propiedad IsClientConnected </p>
<hr>

<% 
      If IsConnectedAfter(5) then
         Response.Write "<p>El cliente está todavía conectado.</p>"
      Else
         'The browser is no longer connected. This would be a
         'good place to abort any transactions, clean up any
         'variables, and so forth.
      End If


     
   %> 
   
<%

   Function IsConnectedAfter(Seconds)
      Dim StartTime 'time the function started
      Dim PauseTime 'time the pause loop started

      ' Use PerfMon to monitor the CPU cycles on the Web server. You
      ' will notice that if you click stop in the browser, the CPU
      ' will settle down sooner than if the loop had continued.

      IsConnectedAfter = True
      StartTime = Now

      Do While DateDiff("s", StartTime, Now) < Seconds
         PauseTime = Now
         Do While DateDiff("s", PauseTime, Now) < 1
            'Do Nothing
         Loop
         Response.Write "."
         If Response.IsClientConnected = False then
            IsConnectedAfter = False
            Exit Function
         End If

      Loop
   End Function

   %>
   
   </body>

</html>