Verificar existencia de una url

[vgaray]

Este código sirve para revisar la existencia de una dirección (url). Podría servir para eliminar el error de publicar 'links' hacia urls no existentes evitando así mostrar mensajes de error al usuario en nuestros sitios. Favor de editar las tres primeras lineas para comprobar su uso...

<%
url_a_revisar = "http://www.maestrodelweb.com"
'url_a_revisar = "http://www.maestrodelweb.com/paginax.htm"
'url_a_revisar = "http://www.maestrodelweb.biz"

Response.write "<br><b>" & url_a_revisar & "</b><br>"

If RevisarComponente("Msxml2.XMLHTTP") Then 'revisar que tengas instalado el componente
Select Case Revisar_esta_url(url_a_revisar) 'revisar url y obtener status de respuesta
Case 200 : Response.Write "Ok, la url si existe."
Case 404 : Response.Write "El sitio si existe, pero esa página en espécifico no."
Case Else : Response.Write "Es muy probable que esta url no exista."
End Select
Else
Response.Write "No tienes instalado el componente para poder revisar la existencia de una url."
End if

Function RevisarComponente(ProgId) 'Funcion para revisar la existencia de un componente x
Dim tmpObject
On Error Resume Next
Set tmpObject = Server.CreateObject(ProgId)
If Err.Number = 0 Then
RevisarComponente = True
Else
RevisarComponente = False
End If
Set tmpObject = Nothing
End Function

Function Revisar_esta_url(strURL)
Dim objXML
Set objXML = CreateObject("Msxml2.XMLHTTP")
objXML.open "GET", strURL, false
On error resume next ' Si acaso la url no existe, provocaría un error en la siguiente línea
objXML.send
Revisar_esta_url = objXML.Status
End Function
%>


---------------------
Tan libre como gratuito!!!