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: 11pt">
</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>