Número de lecturas: 9834
{lang: 'es-419'}

Para realizar una verificación de una url en un desarrollo en asp utilice este codigo, me permitio verificar si existian unas imagenes en el server caso contrario mostrar otra ruta, no utilice FileExits porque las imagenes no estaban en el mismo servidor.

<%
revisar_url = "http://www.tutores.org"
Response.write "<br>Revisando:<b>" & revisar_url & "</b><br>"
If comprobar_componente("Msxml2.XMLHTTP") Then 
Select Case Revisar_esta_url(revisar_url) 
Case 200 : Response.Write "La url Si existe."
Case 404 : Response.Write "El sitio web existe, pero no la pagina especificada"
Case Else : Response.Write "La url indicada ouede que no exista" 
End Select
Else
Response.Write "Necesitas tener instalado el componente Msxml2.XMLHTTP"
End if 
Function comprobar_componente(ProgId)
Dim objeto_temp
On Error Resume Next
Set objeto_temp = Server.CreateObject(ProgId)
If Err.Number = 0 Then
comprobar_componente = True
Else
comprobar_componente = False
End If
Set objeto_temp = Nothing
End Function
Function Revisar_esta_url(strURL) 
Dim objXML 
Set objXML = CreateObject("Msxml2.XMLHTTP") 
objXML.open "GET", strURL, false 
On error resume next
objXML.send
Revisar_esta_url = objXML.Status 
End Function
%>

Fuente

tutores.org

Be Sociable, Share!