ASP - como poner un timeout al PING

   
Vista:

como poner un timeout al PING

Publicado por Vicente (1 intervención) el 26/03/2013 22:54:37
Saludos al grupo.

Tengo el siguiente código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<%
PING="http://ping.servidor1.com/"
set http_obj = createObject("Microsoft.XMLHTTP")
http_obj.Open "POST",PING,false
On Error Resume Next
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
 
		if instr(codigo,"archivo o directorio no encontrado")<>0 then
		response.redirect "http://servidor2.com/"
 
 
		elseif instr(codigo,"404")<>0 then
		response.redirect "http://servidor2.com/"
 
 
		elseif codigo = "" Then
		response.redirect "http://servidor2.com/"
		else
 
		response.redirect "http://servidor1.com/"
 
		end if
%>


Se trata de que hace ping a un servidor, si la respuesta es que no se encuentra el archivo, o sencillamente no hay respuesta, reenvía a otro servidor (por si el primero está caído).

Funciona bien, pero el problema está en que si el primer servidor está caído, el código asp se queda esperando 20 o 30 segundos a ver si obtiene respuesta, por lo que se demora demasiado la dirección al segundo servidor.

Me gustaría modificar el código de forma que, si no se obtiene respuesta en 1 segundo, por ejemplo, no espere 20 o 30" a seguir procesando el resto del código.

¿Alguna idea, por favor?

Muchas gracias por vuestra atención.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de ASP
- Código fuente de ASP
- Cursos de ASP
- Temas de ASP
información
Códigos de ASP
- Grilla DisplayTag
- Grafico
- Reloj